‘ Return a Boolean value indicating whether the .NET Framework is installed’ Note: this function require the CheckRegistryKey functionsFunction IsDotNetFrameworkPresent() As Boolean Const HKEY_LOCAL_MACHINE = &H80000002 IsDotNetFrameworkPresent = CheckRegistryKey(HKEY_LOCAL_MACHINE, _
Some control events provide the mouse pointer’s current position within the control’s client area; others provide only the screen coordinates of the mouse pointer (the same as returned by Cursor.Position).
Here it is some code that shows how to use reflection to dynamically set an event handler for a class’ event. Sub TestSub() ‘ create a Person Dim pe As
‘ Find a control in a hierarchy of controls’ Example:’ Dim txtCtl As Control = FindControlRecursive(DataGrid1, “FirstNameTextBox”)Function FindControlRecursive(ByVal ctrl As Control, _ ByVal id As String) As Control ‘ Exit
‘ EvalFileName ensures that the basename of a file or directory’ conforms to the Microsoft file naming guidelines (see MSDN webpage)’ http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base/’ naming_a_file.asp” Return value:’ True = Valid basename’ False
‘ Return the index in a ListControl given a text’ Example:’ Dim i As Integer = GetIndexFromText(ListBox1, “hello”)Function GetIndexFromText(ByVal lst As ListControl, ByVal value As String) As _ Integer Return
Being an avid Access Programmer I have been frustrated with the limitation of VB DropDownLists to using only 1 field as the value. I found a way to simulate/work around
‘ Select the ListControl element with a given text’ Example: SelectItemFromText(ListBox1, “hello”)Sub SelectItemFromText(ByVal lst As ListControl, ByVal value As String) lst.SelectedIndex = lst.Items.IndexOf(lst.Items.FindByText(value))End Sub
The VB’s MkDir function creates a directory in a specified path. If the directory already exists, MkDir raises error 75 (Path/file access error); yet, it raises the same error code