‘ Read a property via reflection or return a default value’ Example: MessageBox.Show(GetProperty(Button1, “Text”, “”))Function GetProperty(ByVal obj As Object, ByVal propertyName As String, _ ByVal defaultValue As Object) As Object

‘ Return the value of the public field with the specified name,’ defined inside the obj object’ Note: requires Imports System.Reflection” Example:’ Public TestField As String = “hello”‘ …’ MessageBox.Show(GetField(Me,

‘ Invoke a method via reflection and return its result – return null if method ‘ doesn’t exist or throws’ Note: requires Imports System.Reflection” Example:’ Function GetCompleteName(ByVal firstName As String,’

‘ Check whether an object supports a member with the specified name” Examples:’ Debug.WriteLine(IsMemberSupported(Button1, “BackColor”)) ‘ => True’ Debug.WriteLine(IsMemberSupported(Button1, “Focus”)) ‘ => True’ Debug.WriteLine(IsMemberSupported(Button1, “TextColor”)) ‘ => False’ Debug.WriteLine(IsMemberSupported(Button1, “Print”))

‘ Retrieve the content of an embedded text file’ Note: the file must be included in the project as an embedded resource.’ – after adding the file to the project

‘ Check whether a given regular expression is in valid format’ Examples:’ Debug.WriteLine(IsValidRegularExpression(“^(((d{3}) ‘ ?)|(d{3}-))?d{3}-d{4}$”)) ‘ => True’ Debug.WriteLine(IsValidRegularExpression(“^[|)$”)) ‘ => FalseFunction IsValidRegularExpression(ByVal regex As String) As Boolean Try Dim

‘ Return a validation summary string with all the error messages, if any,’ of the controls inside the specified container,’ associated to an ErrorProvider control’ ‘ Example:’ Dim summary As

‘ Check whether an object is storing a numeric value’ Examples:’ Dim s As String = “hello”‘ Dim d As Double = 2.4′ Dim i As Integer = 5’ Debug.WriteLine(IsNumeric(d))

‘ Return the application’s path.’ Note: it also works with add-ins’s dll, whereas Application.StartupPath ‘ returns’ Visual Studio .NET’s startup path instead’ Example: MessageBox.Show(GetApplicationPath())Function GetApplicationPath() As String Return System.IO.Path.GetDirectoryName _

‘ Returns an array with all the controls in the specified container control and ‘ its child containers’ Example:’ ‘ print the name of all the controls on the form

‘ Unregister an Enterprise Service from the COM+ Catalog’ Note: requires a reference to the System.EnterpriseServices.dll assembly’ Note: applicationID is the name of the COM+ application that contains the ‘

‘ Execute an array of sql script files with batch statements,’ by using the same SqlCommand object’ – connString is the connection string for the destination database” Example:’ Dim connString

‘ Get the path of the SQL Server’s OSQL.exe utilityFunction GetOsqlPath() As String Dim regKey As Microsoft.Win32.RegistryKey = _ Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _ “SOFTWAREMicrosoftMicrosoft SQL Server80ToolsClientSetup”) If regKey Is Nothing Then Return

‘ Register an Enterprise Service in the COM+ Catalog’ Note: requires a reference to the System.EnterpriseServices.dll assembly’ This version identify the enterprise service with its path’ Example: RegisterEnterpriseService(“C:TempTestService.dll”)Sub RegisterEnterpriseService(ByVal servicePath

‘ Execute an array of sql script files with batch statements,’ by using the OSQL utility’ – dbName is the name of the destination database’ – isWinAuth, login and pwd

‘ Get the path of the Oracle’s SqlPlus.exe utilityFunction GetSqlPlusPath() As String Dim regKey As Microsoft.Win32.RegistryKey = _ Microsoft.Win32.Registry.LocalMachine.OpenSubKey(“SOFTWAREORACLE”) If regKey Is Nothing Then Return “” End If Dim sqlplusPath