How to get the current path using VBScript

August 23, 2016

To get the current path using VBScript you can use the snippet below.

Samples

VBScript Sample

msgbox GetCurrentFolder()

Function GetCurrentFolder()
	Dim FSO
	Set fso = CreateObject("Scripting.FileSystemObject")
    GetCurrentFolder= FSO.GetAbsolutePathName(".")
End Function

msgbox GetCurrentFolder()

Function GetCurrentFolder()

Dim FSO

Set fso = CreateObject("Scripting.FileSystemObject")

GetCurrentFolder= FSO.GetAbsolutePathName(".")

End Function

If you have any questions or suggestions feel free to rate this snippet, post a comment or Contact Us via Email.

Related links:

How to catch specific MS-SQL SQLExceptions in C# and VB.NET

Administrator

November 20, 2015

0 Comments

To catch specific SQLExceptions using Microsoft.NET and Microsoft Sequel Server you can use the snippet below. You also need to look for the specific error numbers/codes you want to catch. To do this you can either execute the following query in the SQL Management Studio or you can use this
List of SQLException Numbers/Codes (Direct-DL around 15mb).

Samples

T-SQL Sample

SELECT * FROM master.dbo.sysmessages ORDER BY error ASC

1	SELECT * FROM master.dbo.sysmessages ORDER BY error ASC

C# Sample

private static void MySqlMethod()
{
	SqlConnectionStringBuilder builder = new SqlConnectionStringBuilder
	{
		DataSource = "localhost",
		InitialCatalog = "Northwind",
		IntegratedSecurity = true
	};

	try
	{
		using (SqlConnection connection = new SqlConnection(builder.ConnectionString))
		{
			connection.Open();
			using (SqlCommand command = connection.CreateCommand())
			{
				//inserting invalid sql (for example: column not exists)
				command.CommandText = "SELECT InvalidColumnName FROM Customers";
				command.ExecuteNonQuery();
			}
		}
	}
	catch (SqlException ex)
	{
		// Log the original exception here
		foreach (SqlError sqlError in ex.Errors)
		{
			switch (sqlError.Number)
			{
				case 207: // 207 = InvalidColumn
					//do your Stuff here
					break;
				case 547: // 547 = (Foreign) Key violation
					//do your Stuff here
					break;
				case 2601: // 2601 = (Primary) key violation
					//do your Stuff here
					break;
				default:
					//do your Stuff here
					break;
			}
		}
	}
}

private static void MySqlMethod()

{

SqlConnectionStringBuilder builder = new SqlConnectionStringBuilder

{

DataSource = "localhost",

InitialCatalog = "Northwind",

IntegratedSecurity = true

};

try

{

using (SqlConnection connection = new SqlConnection(builder.ConnectionString))

{

connection.Open();

using (SqlCommand command = connection.CreateCommand())

{

//inserting invalid sql (for example: column not exists)

command.CommandText = "SELECT InvalidColumnName FROM Customers";

command.ExecuteNonQuery();

}

catch (SqlException ex)

{

// Log the original exception here

foreach (SqlError sqlError in ex.Errors)

{

switch (sqlError.Number)

{

case 207: // 207 = InvalidColumn

//do your Stuff here

break;

case 547: // 547 = (Foreign) Key violation

//do your Stuff here

break;

case 2601: // 2601 = (Primary) key violation

//do your Stuff here

break;

default:

//do your Stuff here

break;

}

VB.NET Sample

Private Sub MySqlMethod()
	Dim builder As New SqlConnectionStringBuilder() With { _
		.DataSource = "localhost", _
		.InitialCatalog = "Northwind", _
		.IntegratedSecurity = True _
	}

	Try
		Using connection As New SqlConnection(builder.ConnectionString)
			connection.Open()
			Using command As SqlCommand = connection.CreateCommand()
				'inserting invalid sql (for example: column not exists)
				command.CommandText = "SELECT InvalidColumnName FROM Customers"
				command.ExecuteNonQuery()
			End Using
		End Using
	Catch ex As SqlException
		' Log the original exception here
		For Each sqlError As SqlError In ex.Errors
			Select Case sqlError.Number
				Case 207
					' 207 = InvalidColumn
					'do your Stuff here
					Exit Select
				Case 547
					' 547 = (Foreign) Key violation
					'do your Stuff here
					Exit Select
				Case 2601
					' 2601 = (Primary) key violation
					'do your Stuff here
					Exit Select
				Case Else
					'do your Stuff here
					Exit Select
			End Select
		Next
	End Try
End Sub

Private Sub MySqlMethod()

Dim builder As New SqlConnectionStringBuilder() With { _

.DataSource = "localhost", _

.InitialCatalog = "Northwind", _

.IntegratedSecurity = True _

}

Try

Using connection As New SqlConnection(builder.ConnectionString)

connection.Open()

Using command As SqlCommand = connection.CreateCommand()

'inserting invalid sql (for example: column not exists)

command.CommandText = "SELECT InvalidColumnName FROM Customers"

command.ExecuteNonQuery()

End Using

Catch ex As SqlException

' Log the original exception here

For Each sqlError As SqlError In ex.Errors

Select Case sqlError.Number

Case 207

' 207 = InvalidColumn

'do your Stuff here

Exit Select

Case 547

' 547 = (Foreign) Key violation

'do your Stuff here

Exit Select

Case 2601

' 2601 = (Primary) key violation

'do your Stuff here

Exit Select

Case Else

'do your Stuff here

Exit Select

End Select

End Try

End Sub

Compatibility:

.NET 2.0

.NET 3.0

.NET 3.5

.NET 4.0

.NET 4.5

.NET 4.6

If you have any questions or suggestions feel free to rate this snippet, post a comment or Contact Us via Email.

Related links:

How to match strings using wildcards in C# and VB.NET

Administrator

June 17, 2015

0 Comments

To match strings using wildcards in C# and VB.NET you can use the following snippet.
It will internally convert the wildcard string to a Regex.

The Console-Output of this sample will be:

C:\Test\myFile01.xml
C:\Test\myFile02.xml

Sample C#

#region

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text.RegularExpressions;

#endregion

namespace de.fesslersoft.RegexWildCard
{
    internal class Program
    {
        private static void Main(string[] args)
        {
            var fileList = new List<String>();
            fileList.Add(@"C:\Test\myFile01.xml");
            fileList.Add(@"C:\Test\myFile02.xml");
            fileList.Add(@"C:\Test\myFolder01.xml");
            fileList.Add(@"C:\Test\myFolder02.xml");

            var wildCard = new Wildcard("*File*.xml", RegexOptions.IgnoreCase);
            foreach (var file in fileList.Where(file => wildCard.IsMatch(file)))
            {
                Console.WriteLine(file);
            }
            Console.Read();
        }
    }


    public class Wildcard : Regex
    {
        public Wildcard(string pattern) : base(ToRegex(pattern))
        {
        }

        public Wildcard(string pattern, RegexOptions options) : base(ToRegex(pattern), options)
        {
        }

        public static string ToRegex(string pattern)
        {
            return "^" + Escape(pattern).Replace("\\*", ".*").Replace("\\?", ".") + "$";
        }
    }
}

Sample VB.NET (autoconverted)

#Region ""

Imports System.Collections.Generic
Imports System.Linq
Imports System.Text.RegularExpressions

#End Region

Namespace de.fesslersoft.RegexWildCard
	Friend Class Program
		Private Shared Sub Main(args As String())
			Dim fileList = New List(Of [String])()
			fileList.Add("C:\Test\myFile01.xml")
			fileList.Add("C:\Test\myFile02.xml")
			fileList.Add("C:\Test\myFolder01.xml")
			fileList.Add("C:\Test\myFolder02.xml")

			Dim wildCard = New Wildcard("*File*.xml", RegexOptions.IgnoreCase)
			For Each file As var In fileList.Where(Function(file) wildCard.IsMatch(file))
				Console.WriteLine(file)
			Next
			Console.Read()
		End Sub
	End Class


	Public Class Wildcard
		Inherits Regex
		Public Sub New(pattern As String)
			MyBase.New(ToRegex(pattern))
		End Sub

		Public Sub New(pattern As String, options As RegexOptions)
			MyBase.New(ToRegex(pattern), options)
		End Sub

		Public Shared Function ToRegex(pattern As String) As String
			Return "^" + Escape(pattern).Replace("\*", ".*").Replace("\?", ".") + "$"
		End Function
	End Class
End Namespace

How to get the current Database and Log Filesize using MSSQL

Administrator

May 22, 2015

1 Comment

To get the current Database and Log Filesize using MSSQL you can use the snippet below. Tested using SQL Server 2012.

Sample MSSQL

with database_files_CTE as
(
    select
        name, type_desc, physical_name, size_mb = convert(decimal(11, 2), size * 8.0 / 1024),
        space_used_mb = convert(decimal(11, 2), fileproperty(name, 'spaceused') * 8.0 / 1024) from sys.database_files
)
select name,type_desc as [type],physical_name as [path],size_mb as [Filesize],space_used_mb as [Filesize used],
case size_mb when 0 then 0 else convert(decimal(5, 2), space_used_mb / size_mb * 100) end as [Filesize used %]  from database_files_CTE;

Sample Output

What is the difference between typeof(), GetType() and IS in C# and VB.NET

Administrator

March 20, 2015

7 Comments

What is the difference between typeof(), GetType() and is?

typeof() takes a type name specified at compile Time.

GetType() gets the Type of an Object at runtime

is returns true if an instance is in the inheritance tree. Since the is Keyword is casting the object, you should use it with care.

here is an example.

class Employee { } 
class Developer : Employee { }

void PrintTypes(Employee e) { 
    print(e.GetType() == typeof(Employee)) // false 
    print(e is Employee)                   // true 
    print(e.GetType() == typeof(Developer))    // true
}

How to get the executable filename in C# and VB.NET

Administrator

February 4, 2015

2 Comments

To get the executable filename in C# and VB.NET you can use one the following methods.

Sample C#

//prefered way to retrieve exe filename
Console.WriteLine(Path.GetFileName(System.Diagnostics.Process.GetCurrentProcess().MainModule.FileName));
 

Console.WriteLine(AppDomain.CurrentDomain.FriendlyName); //can cause problems when using click once, also this property does not always returns the right result.

Console.WriteLine(Path.GetFileName(Assembly.GetExecutingAssembly().Location)); //can fail when used in wcf application.
Console.WriteLine(Path.GetFileName(Assembly.GetExecutingAssembly().CodeBase)); //better if shadow copy feature is active, but can fail when used in wcf application
Console.WriteLine(Path.GetFileName(Assembly.GetEntryAssembly().Location));

Sample VB.NET

'prefered way to retrieve exe filename
Console.WriteLine(Path.GetFileName(System.Diagnostics.Process.GetCurrentProcess().MainModule.FileName))


Console.WriteLine(AppDomain.CurrentDomain.FriendlyName)
'can cause problems when using click once, also this property does not always returns the right result.
Console.WriteLine(Path.GetFileName(Assembly.GetExecutingAssembly().Location))
'can fail when used in wcf application.
Console.WriteLine(Path.GetFileName(Assembly.GetExecutingAssembly().CodeBase))
'better if shadow copy feature is active, but can fail when used in wcf application
Console.WriteLine(Path.GetFileName(Assembly.GetEntryAssembly().Location))

How to round to X decimal places in C# and VB.NET

Administrator

February 4, 2015

1 Comment

To round to X decimal places in C# and VB.NET you can use one of the following methods.
Take a look at the output image to see the results.

Sample ConsoleApp in C#

static void Main(string[] args)
{
	decimal input = Decimal.Parse("3,546932");
	decimal inputZero = Decimal.Zero;
	decimal inputShort = Decimal.Parse("3,545");
	decimal inputShorter = 1;

	Console.WriteLine("######################################################################");
	Console.WriteLine("");
	Console.WriteLine("Testinput1:\t{0}", input);
	Console.WriteLine("Testinput2:\t{0}", inputZero);
	Console.WriteLine("Testinput3:\t{0}", inputShort);
	Console.WriteLine("Testinput4:\t{0}", inputShorter);
	Console.WriteLine("");

	Console.WriteLine("########## using decimal.Round AwayFromZero 2 Decimals ##########");
	Console.WriteLine("");
	Console.WriteLine("Output 1:\t{0}",decimal.Round(input, 2, MidpointRounding.AwayFromZero));
	Console.WriteLine("Output 2:\t{0}", decimal.Round(inputShort, 2, MidpointRounding.AwayFromZero));
	Console.WriteLine("Output 3:\t{0}", decimal.Round(inputShorter, 2, MidpointRounding.AwayFromZero));
	Console.WriteLine("Output 4:\t{0}", decimal.Round(inputZero, 2, MidpointRounding.AwayFromZero));
	Console.WriteLine("");

	Console.WriteLine("########## using decimal.Round ToEven 2 Decimals ##########");
	Console.WriteLine("");
	Console.WriteLine("Output 1:\t{0}", decimal.Round(input, 2, MidpointRounding.ToEven));
	Console.WriteLine("Output 2:\t{0}", decimal.Round(inputShort, 2, MidpointRounding.ToEven));
	Console.WriteLine("Output 3:\t{0}", decimal.Round(inputShorter, 2, MidpointRounding.ToEven));
	Console.WriteLine("Output 4:\t{0}", decimal.Round(inputZero, 2, MidpointRounding.ToEven));
	Console.WriteLine("");

	Console.WriteLine("########## using .ToString(\"0.00\") 2 Decimals ##########");
	Console.WriteLine("");
	Console.WriteLine("Output 1:\t{0}", input.ToString("0.00"));
	Console.WriteLine("Output 2:\t{0}", inputShort.ToString("0.00"));
	Console.WriteLine("Output 3:\t{0}", inputShorter.ToString("0.00"));
	Console.WriteLine("Output 4:\t{0}", inputZero.ToString("0.00"));
	Console.WriteLine("");

	Console.WriteLine("########## using .ToString(\"0.00\") 5 Decimals ##########");
	Console.WriteLine("");
	Console.WriteLine("Output 1:\t{0}", input.ToString("0.00000"));
	Console.WriteLine("Output 2:\t{0}", inputShort.ToString("0.00000"));
	Console.WriteLine("Output 3:\t{0}", inputShorter.ToString("0.00000"));
	Console.WriteLine("Output 4:\t{0}", inputZero.ToString("0.00000"));
	Console.WriteLine("");

	Console.Read();
}

Sample ConsoleApp in VB.NET

Private Shared Sub Main(args As String())
	Dim input As Decimal = [Decimal].Parse("3,546932")
	Dim inputZero As Decimal = [Decimal].Zero
	Dim inputShort As Decimal = [Decimal].Parse("3,545")
	Dim inputShorter As Decimal = 1

	Console.WriteLine("######################################################################")
	Console.WriteLine("")
	Console.WriteLine("Testinput1:" & vbTab & "{0}", input)
	Console.WriteLine("Testinput2:" & vbTab & "{0}", inputZero)
	Console.WriteLine("Testinput3:" & vbTab & "{0}", inputShort)
	Console.WriteLine("Testinput4:" & vbTab & "{0}", inputShorter)
	Console.WriteLine("")

	Console.WriteLine("########## using decimal.Round AwayFromZero 2 Decimals ##########")
	Console.WriteLine("")
	Console.WriteLine("Output 1:" & vbTab & "{0}", Decimal.Round(input, 2, MidpointRounding.AwayFromZero))
	Console.WriteLine("Output 2:" & vbTab & "{0}", Decimal.Round(inputShort, 2, MidpointRounding.AwayFromZero))
	Console.WriteLine("Output 3:" & vbTab & "{0}", Decimal.Round(inputShorter, 2, MidpointRounding.AwayFromZero))
	Console.WriteLine("Output 4:" & vbTab & "{0}", Decimal.Round(inputZero, 2, MidpointRounding.AwayFromZero))
	Console.WriteLine("")

	Console.WriteLine("########## using decimal.Round ToEven 2 Decimals ##########")
	Console.WriteLine("")
	Console.WriteLine("Output 1:" & vbTab & "{0}", Decimal.Round(input, 2, MidpointRounding.ToEven))
	Console.WriteLine("Output 2:" & vbTab & "{0}", Decimal.Round(inputShort, 2, MidpointRounding.ToEven))
	Console.WriteLine("Output 3:" & vbTab & "{0}", Decimal.Round(inputShorter, 2, MidpointRounding.ToEven))
	Console.WriteLine("Output 4:" & vbTab & "{0}", Decimal.Round(inputZero, 2, MidpointRounding.ToEven))
	Console.WriteLine("")

	Console.WriteLine("########## using .ToString(""0.00"") 2 Decimals ##########")
	Console.WriteLine("")
	Console.WriteLine("Output 1:" & vbTab & "{0}", input.ToString("0.00"))
	Console.WriteLine("Output 2:" & vbTab & "{0}", inputShort.ToString("0.00"))
	Console.WriteLine("Output 3:" & vbTab & "{0}", inputShorter.ToString("0.00"))
	Console.WriteLine("Output 4:" & vbTab & "{0}", inputZero.ToString("0.00"))
	Console.WriteLine("")

	Console.WriteLine("########## using .ToString(""0.00"") 5 Decimals ##########")
	Console.WriteLine("")
	Console.WriteLine("Output 1:" & vbTab & "{0}", input.ToString("0.00000"))
	Console.WriteLine("Output 2:" & vbTab & "{0}", inputShort.ToString("0.00000"))
	Console.WriteLine("Output 3:" & vbTab & "{0}", inputShorter.ToString("0.00000"))
	Console.WriteLine("Output 4:" & vbTab & "{0}", inputZero.ToString("0.00000"))
	Console.WriteLine("")

	Console.Read()
End Sub

OUTPUT

Decimal Place Formatting

How to use Doubleclick in Devexpress Gridview in C# and VB.NET

Administrator

January 29, 2015

1 Comment

Using doubleclick events in the Devexpress Gridview Control is a simple task.
There are 2 different ways of doing this. The variant you choose, depends on the Gridview’s gridView.OptionsBehavior.Editable property. If this property is set to false you have to use the DoubleClick event. If this property is set to true you have to use the ShownEditor and HiddenEditor event. I will also give an example on how to combine both methods, if you are using both (true and false) on the gridView.OptionsBehavior.Editable.

Samples

OptionsBehavior.Editable set to False

C# Sample

private void gridView1_DoubleClick(object sender, EventArgs e)
{
	GridView view = (GridView)sender;
	Point pt = view.GridControl.PointToClient(MousePosition);
	GridHitInfo info = view.CalcHitInfo(pt);
	if ((info.InRow || info.InRowCell) &amp;&amp; info.Column != null)
	{
		Object cellValue = view.GetRowCellValue(info.RowHandle, info.Column);
		MessageBox.Show(string.Format("Made a doubleclick at rowhandle: {0}, columnhandle: {1}, value: {2}.", info.RowHandle, info.Column.ColumnHandle, cellValue));
	}
}

private void gridView1_DoubleClick(object sender, EventArgs e)

{

GridView view = (GridView)sender;

Point pt = view.GridControl.PointToClient(MousePosition);

GridHitInfo info = view.CalcHitInfo(pt);

if ((info.InRow || info.InRowCell) && info.Column != null)

{

Object cellValue = view.GetRowCellValue(info.RowHandle, info.Column);

MessageBox.Show(string.Format("Made a doubleclick at rowhandle: {0}, columnhandle: {1}, value: {2}.", info.RowHandle, info.Column.ColumnHandle, cellValue));

}

VB.NET Sample

Private Sub GridView1_DoubleClick( sender As Object,  e As EventArgs) Handles GridView1.DoubleClick
        Dim view As GridView = DirectCast(sender, GridView)
        Dim pt As Point = view.GridControl.PointToClient(MousePosition)
        Dim info As GridHitInfo = view.CalcHitInfo(pt)
        If (info.InRow OrElse info.InRowCell) AndAlso info.Column IsNot Nothing Then
	        Dim cellValue As [Object] = view.GetRowCellValue(info.RowHandle, info.Column)
	        MessageBox.Show(String.Format("Made a doubleclick at rowhandle: {0}, columnhandle: {1}, value: {2}.", info.RowHandle, info.Column.ColumnHandle, cellValue))
        End If
End Sub

Private Sub GridView1_DoubleClick( sender As Object, e As EventArgs) Handles GridView1.DoubleClick

Dim view As GridView = DirectCast(sender, GridView)

Dim pt As Point = view.GridControl.PointToClient(MousePosition)

Dim info As GridHitInfo = view.CalcHitInfo(pt)

If (info.InRow OrElse info.InRowCell) AndAlso info.Column IsNot Nothing Then

Dim cellValue As [Object] = view.GetRowCellValue(info.RowHandle, info.Column)

MessageBox.Show(String.Format("Made a doubleclick at rowhandle: {0}, columnhandle: {1}, value: {2}.", info.RowHandle, info.Column.ColumnHandle, cellValue))

End If

End Sub

OptionsBehavior.Editable set to True

When inplace editing is enabled, a click on a grid cell activates the inplace editor (rowedit).
All mouse events will be sent to the editor and cannot be handled by the GridView directly. The DoubleClick event handler is no longer being executed.

C# Sample

private void gridView1_ShownEditor(object sender, EventArgs e)
{
	BaseEdit inplaceEditor = ((GridView)sender).ActiveEditor;
	inplaceEditor.DoubleClick += inplaceEditor_DoubleClick;
}

void inplaceEditor_DoubleClick(object sender, EventArgs e)
{
	BaseEdit editor = (BaseEdit)sender;
	GridControl grid = (GridControl)editor.Parent;
	Point pt = grid.PointToClient(Control.MousePosition);
	GridView view = (GridView)grid.FocusedView;
	GridHitInfo info = view.CalcHitInfo(pt);
	if ((info.InRow || info.InRowCell) &amp;&amp; info.Column != null)
	{
		Object cellValue = view.GetRowCellValue(info.RowHandle, info.Column);
		MessageBox.Show(string.Format("Made a doubleclick at rowhandle: {0}, columnhandle: {1}, value: {2}.", info.RowHandle, info.Column.ColumnHandle, cellValue));
	}
}

private void gridView1_HiddenEditor(object sender, EventArgs e)
{
	if (sender.GetType() == typeof (BaseEdit))
	{
		BaseEdit editor = (BaseEdit) sender;
		editor.DoubleClick -= inplaceEditor_DoubleClick;
	}
}

private void gridView1_ShownEditor(object sender, EventArgs e)

{

BaseEdit inplaceEditor = ((GridView)sender).ActiveEditor;

inplaceEditor.DoubleClick += inplaceEditor_DoubleClick;

}

void inplaceEditor_DoubleClick(object sender, EventArgs e)

{

BaseEdit editor = (BaseEdit)sender;

GridControl grid = (GridControl)editor.Parent;

Point pt = grid.PointToClient(Control.MousePosition);

GridView view = (GridView)grid.FocusedView;

GridHitInfo info = view.CalcHitInfo(pt);

if ((info.InRow || info.InRowCell) && info.Column != null)

{

Object cellValue = view.GetRowCellValue(info.RowHandle, info.Column);

MessageBox.Show(string.Format("Made a doubleclick at rowhandle: {0}, columnhandle: {1}, value: {2}.", info.RowHandle, info.Column.ColumnHandle, cellValue));

}

private void gridView1_HiddenEditor(object sender, EventArgs e)

{

if (sender.GetType() == typeof (BaseEdit))

{

BaseEdit editor = (BaseEdit) sender;

editor.DoubleClick -= inplaceEditor_DoubleClick;

}

VB.NET Sample

Private Sub gridView1_ShownEditor(sender As Object, e As EventArgs) Handles GridView1.ShownEditor
	Dim inplaceEditor As BaseEdit = DirectCast(sender, GridView).ActiveEditor
	AddHandler inplaceEditor.DoubleClick, AddressOf inplaceEditor_DoubleClick
End Sub

Private Sub inplaceEditor_DoubleClick(sender As Object, e As EventArgs)
	Dim editor As BaseEdit = DirectCast(sender, BaseEdit)
	Dim grid As GridControl = DirectCast(editor.Parent, GridControl)
	Dim pt As Point = grid.PointToClient(Control.MousePosition)
	Dim view As GridView = DirectCast(grid.FocusedView, GridView)
	Dim info As GridHitInfo = view.CalcHitInfo(pt)
	If (info.InRow OrElse info.InRowCell) AndAlso info.Column IsNot Nothing Then
		Dim cellValue As Object = view.GetRowCellValue(info.RowHandle, info.Column)
		MessageBox.Show(String.Format("Made a doubleclick at rowhandle: {0}, columnhandle: {1}, value: {2}.", info.RowHandle, info.Column.ColumnHandle, cellValue))
	End If
End Sub

Private Sub gridView1_HiddenEditor(sender As Object, e As EventArgs) Handles GridView1.HiddenEditor
	If sender.GetType() = GetType(BaseEdit) Then
		Dim editor As BaseEdit = DirectCast(sender, BaseEdit)
		RemoveHandler editor.DoubleClick, AddressOf inplaceEditor_DoubleClick
	End If
End Sub

Private Sub gridView1_ShownEditor(sender As Object, e As EventArgs) Handles GridView1.ShownEditor

Dim inplaceEditor As BaseEdit = DirectCast(sender, GridView).ActiveEditor

AddHandler inplaceEditor.DoubleClick, AddressOf inplaceEditor_DoubleClick

End Sub

Private Sub inplaceEditor_DoubleClick(sender As Object, e As EventArgs)

Dim editor As BaseEdit = DirectCast(sender, BaseEdit)

Dim grid As GridControl = DirectCast(editor.Parent, GridControl)

Dim pt As Point = grid.PointToClient(Control.MousePosition)

Dim view As GridView = DirectCast(grid.FocusedView, GridView)

Dim info As GridHitInfo = view.CalcHitInfo(pt)

If (info.InRow OrElse info.InRowCell) AndAlso info.Column IsNot Nothing Then

Dim cellValue As Object = view.GetRowCellValue(info.RowHandle, info.Column)

MessageBox.Show(String.Format("Made a doubleclick at rowhandle: {0}, columnhandle: {1}, value: {2}.", info.RowHandle, info.Column.ColumnHandle, cellValue))

End If

End Sub

Private Sub gridView1_HiddenEditor(sender As Object, e As EventArgs) Handles GridView1.HiddenEditor

If sender.GetType() = GetType(BaseEdit) Then

Dim editor As BaseEdit = DirectCast(sender, BaseEdit)

RemoveHandler editor.DoubleClick, AddressOf inplaceEditor_DoubleClick

End If

End Sub

OptionsBehavior.Editable set to True or False at Runtime

C# Sample

private void gridView1_DoubleClick(object sender, EventArgs e)
{
	GridView view = (GridView)sender;
	Point pt = view.GridControl.PointToClient(MousePosition);
	GridHitInfo info = view.CalcHitInfo(pt);
	if ((info.InRow || info.InRowCell) && info.Column != null)
	{
		DoSomething(view, info);
	}
}

private void DoSomething(GridView view, GridHitInfo info)
{
	Object cellValue = view.GetRowCellValue(info.RowHandle, info.Column);
	MessageBox.Show(string.Format("Made a doubleclick at rowhandle: {0}, columnhandle: {1}, value: {2}.", info.RowHandle, info.Column.ColumnHandle, cellValue));
}

private void gridView1_ShownEditor(object sender, EventArgs e)
{
	BaseEdit inplaceEditor = ((GridView)sender).ActiveEditor;
	inplaceEditor.DoubleClick += inplaceEditor_DoubleClick;
}

void inplaceEditor_DoubleClick(object sender, EventArgs e)
{
	BaseEdit editor = (BaseEdit)sender;
	GridControl grid = (GridControl)editor.Parent;
	Point pt = grid.PointToClient(Control.MousePosition);
	GridView view = (GridView)grid.FocusedView;
	GridHitInfo info = view.CalcHitInfo(pt);
	if ((info.InRow || info.InRowCell) && info.Column != null)
	{
		DoSomething(view, info);
	}
}

private void gridView1_HiddenEditor(object sender, EventArgs e)
{
	if (sender.GetType() == typeof (BaseEdit))
	{
		BaseEdit editor = (BaseEdit) sender;
		editor.DoubleClick -= inplaceEditor_DoubleClick;
	}
}

private void gridView1_DoubleClick(object sender, EventArgs e)

{

GridView view = (GridView)sender;

Point pt = view.GridControl.PointToClient(MousePosition);

GridHitInfo info = view.CalcHitInfo(pt);

if ((info.InRow || info.InRowCell) && info.Column != null)

{

DoSomething(view, info);

}

private void DoSomething(GridView view, GridHitInfo info)

{

Object cellValue = view.GetRowCellValue(info.RowHandle, info.Column);

MessageBox.Show(string.Format("Made a doubleclick at rowhandle: {0}, columnhandle: {1}, value: {2}.", info.RowHandle, info.Column.ColumnHandle, cellValue));

}

private void gridView1_ShownEditor(object sender, EventArgs e)

{

BaseEdit inplaceEditor = ((GridView)sender).ActiveEditor;

inplaceEditor.DoubleClick += inplaceEditor_DoubleClick;

}

void inplaceEditor_DoubleClick(object sender, EventArgs e)

{

BaseEdit editor = (BaseEdit)sender;

GridControl grid = (GridControl)editor.Parent;

Point pt = grid.PointToClient(Control.MousePosition);

GridView view = (GridView)grid.FocusedView;

GridHitInfo info = view.CalcHitInfo(pt);

if ((info.InRow || info.InRowCell) && info.Column != null)

{

DoSomething(view, info);

}

private void gridView1_HiddenEditor(object sender, EventArgs e)

{

if (sender.GetType() == typeof (BaseEdit))

{

BaseEdit editor = (BaseEdit) sender;

editor.DoubleClick -= inplaceEditor_DoubleClick;

}

VB.NET Sample

Private Sub gridView1_DoubleClick(sender As Object, e As EventArgs)
	Dim view As GridView = DirectCast(sender, GridView)
	Dim pt As Point = view.GridControl.PointToClient(MousePosition)
	Dim info As GridHitInfo = view.CalcHitInfo(pt)
	If (info.InRow OrElse info.InRowCell) AndAlso info.Column IsNot Nothing Then
		DoSomething(view, info)
	End If
End Sub

Private Sub DoSomething(view As GridView, info As GridHitInfo)
	Dim cellValue As Object = view.GetRowCellValue(info.RowHandle, info.Column)
	MessageBox.Show(String.Format("Made a doubleclick at rowhandle: {0}, columnhandle: {1}, value: {2}.", info.RowHandle, info.Column.ColumnHandle, cellValue))
End Sub

Private Sub gridView1_ShownEditor(sender As Object, e As EventArgs)
	Dim inplaceEditor As BaseEdit = DirectCast(sender, GridView).ActiveEditor
	AddHandler inplaceEditor.DoubleClick, AddressOf inplaceEditor_DoubleClick
End Sub

Private Sub inplaceEditor_DoubleClick(sender As Object, e As EventArgs)
	Dim editor As BaseEdit = DirectCast(sender, BaseEdit)
	Dim grid As GridControl = DirectCast(editor.Parent, GridControl)
	Dim pt As Point = grid.PointToClient(Control.MousePosition)
	Dim view As GridView = DirectCast(grid.FocusedView, GridView)
	Dim info As GridHitInfo = view.CalcHitInfo(pt)
	If (info.InRow OrElse info.InRowCell) AndAlso info.Column IsNot Nothing Then
		DoSomething(view, info)
	End If
End Sub

Private Sub gridView1_HiddenEditor(sender As Object, e As EventArgs)
	If sender.GetType() = GetType(BaseEdit) Then
		Dim editor As BaseEdit = DirectCast(sender, BaseEdit)
		RemoveHandler editor.DoubleClick, AddressOf inplaceEditor_DoubleClick
	End If
End Sub

Private Sub gridView1_DoubleClick(sender As Object, e As EventArgs)

Dim view As GridView = DirectCast(sender, GridView)

Dim pt As Point = view.GridControl.PointToClient(MousePosition)

Dim info As GridHitInfo = view.CalcHitInfo(pt)

If (info.InRow OrElse info.InRowCell) AndAlso info.Column IsNot Nothing Then

DoSomething(view, info)

End If

End Sub

Private Sub DoSomething(view As GridView, info As GridHitInfo)

Dim cellValue As Object = view.GetRowCellValue(info.RowHandle, info.Column)

MessageBox.Show(String.Format("Made a doubleclick at rowhandle: {0}, columnhandle: {1}, value: {2}.", info.RowHandle, info.Column.ColumnHandle, cellValue))

End Sub

Private Sub gridView1_ShownEditor(sender As Object, e As EventArgs)

Dim inplaceEditor As BaseEdit = DirectCast(sender, GridView).ActiveEditor

AddHandler inplaceEditor.DoubleClick, AddressOf inplaceEditor_DoubleClick

End Sub

Private Sub inplaceEditor_DoubleClick(sender As Object, e As EventArgs)

Dim editor As BaseEdit = DirectCast(sender, BaseEdit)

Dim grid As GridControl = DirectCast(editor.Parent, GridControl)

Dim pt As Point = grid.PointToClient(Control.MousePosition)

Dim view As GridView = DirectCast(grid.FocusedView, GridView)

Dim info As GridHitInfo = view.CalcHitInfo(pt)

If (info.InRow OrElse info.InRowCell) AndAlso info.Column IsNot Nothing Then

DoSomething(view, info)

End If

End Sub

Private Sub gridView1_HiddenEditor(sender As Object, e As EventArgs)

If sender.GetType() = GetType(BaseEdit) Then

Dim editor As BaseEdit = DirectCast(sender, BaseEdit)

RemoveHandler editor.DoubleClick, AddressOf inplaceEditor_DoubleClick

End If

End Sub

If you have any questions or suggestions feel free to rate this snippet, post a comment or Contact Us via Email.

Related links:

NuGet: Failed to initialize the PowerShell Host

Administrator

January 29, 2015

1 Comment

Today i recieved the following Nuget Error while trying to install Automapper.

Failed to initialize the PowerShell host. If your PowerShell execution policy setting is set to AllSigned, open the Package Manager Console to initialize the host first.

To fix that, close all Visual Studio instances and open the Powershell Console as Administrator. Enter Set-ExecutionPolicy RemoteSigned or Set-ExecutionPolicy Unrestricted. Be aware that you need to set the execution policy on both the x86 and the x64 Powershell Console.

A more simple solution would be to put the code below in a File with an .reg extension and execute that.

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\PowerShell\1\ShellIds\Microsoft.PowerShell]
"ExecutionPolicy"="Unrestricted"


[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PowerShell\1\ShellIds\Microsoft.PowerShell]
"ExecutionPolicy"="Unrestricted"

Now start Visual Studio and Try Again, if the error appears again, try running Visual Studio as Administrator.

How to use Node Doubleclick in Devexpress Treelist in C# and VB.NET

Administrator

January 29, 2015

1 Comment

How to use Node Doubleclick in Devexpress Treelist in C# and VB.NET you can use the following snippet.

Sample C#

private void treeList1_DoubleClick(object sender, EventArgs e) 
{
	var treeList = sender as TreeList;
	var hitInfo = treeList.CalcHitInfo(treeList.PointToClient(MousePosition));
	if(hitInfo.Node != null) 
	{
		//do something
	}
}

Sample VB.NET

Private Sub treeList1_DoubleClick(sender As Object, e As EventArgs)
	Dim treeList = TryCast(sender, TreeList)
	Dim hitInfo = treeList.CalcHitInfo(treeList.PointToClient(MousePosition))
			'do something
	If hitInfo.Node IsNot Nothing Then
	End If
End Sub

CODE SNIPPETS

CODESNIPPETS FOR .NET, SQL, JAVASCRIPT, JQUERY and more

System

How to get the current path using VBScript

Samples

VBScript Sample

How to match strings using wildcards in C# and VB.NET

Sample C#

Sample VB.NET (autoconverted)

How to get the current Database and Log Filesize using MSSQL

Sample MSSQL

Sample Output

What is the difference between typeof(), GetType() and IS in C# and VB.NET

How to get the executable filename in C# and VB.NET

Sample C#

Sample VB.NET

How to round to X decimal places in C# and VB.NET

Sample ConsoleApp in C#

Sample ConsoleApp in VB.NET

NuGet: Failed to initialize the PowerShell Host