‘ Validate an e-mail address’ Example:’ MessageBox.Show(IsValidEmail(“[email protected]”)) ‘ True’ MessageBox.Show(IsValidEmail(“vb2themax.com”)) ‘ False’ MessageBox.Show(IsValidEmail(“mbellinaso@vb2themax”)) ‘ FalseFunction IsValidEmail(ByVal email As String) As Boolean Return System.Text.RegularExpressions.Regex.IsMatch(email, _ “^w+([-+.]w+)*@w+([-.]w+)*.w+([-.]w+)*$”)End Function
‘ Validate an IP address’ Example:’ MessageBox.Show(IsValidIP(“123.14.0.255”)) ‘ => True’ MessageBox.Show(IsValidIP(“256.14.0.255”)) ‘ => FalseFunction IsValidIP(ByVal ipAddress As String) As Boolean Return System.Text.RegularExpressions.Regex.IsMatch(ipAddress, _ “^(25[0-5]|2[0-4]d|[0-1]?d?d)(.(25[0-5]|2[0-4]d|[0-1]?d?d)){3}$”)End Function
‘ Validate a URL’ Example: MessageBox.Show(IsValidUrl(“http://www.vb2themax.com”))Function IsValidUrl(ByVal url As String) As Boolean Return System.Text.RegularExpressions.Regex.IsMatch(url, _ “(http|ftp|https)://([w-]+.)+(/[w- ./?%&=]*)?”)End Function
‘ Validate a system path’ Example:’ MessageBox.Show(IsValidPath(“C:TestMemo.txt”)) ‘ => True’ MessageBox.Show(IsValidPath(“\RemotePCTestMemo.txt”)) ‘ => True’ MessageBox.Show(IsValidPath(“C:TestMem|o.txt”)) ‘ => FalseFunction IsValidPath(ByVal path As String) As Boolean Try Dim f As New System.IO.FileInfo(path)
‘ Validate a US phone number’ Example:’ MessageBox.Show(IsValidUsPhoneNumber(“(123) 456-7890”)) ‘ True’ MessageBox.Show(IsValidUsPhoneNumber(“(123) 456-78901”)) ‘ FalseFunction IsValidUsPhoneNumber(ByVal phnNum As String) As Boolean Return System.Text.RegularExpressions.Regex.IsMatch(phnNum, _ “^(((d{3}) ?)|(d{3}-))?d{3}-d{4}$”)End Function
‘ Validate a US Social Security Number’ Example:’ MessageBox.Show(IsValidUsSSN(“123-12-1234”)) ‘ True’ MessageBox.Show(IsValidUsSSN(“123-123-1234”)) ‘ FalseFunction IsValidUsSSN(ByVal ssn As String) As Boolean Return System.Text.RegularExpressions.Regex.IsMatch(ssn, _ “^d{3}-d{2}-d{4}$”)End Function
‘ this code assumes that you have used this Imports statement’ Imports Microsoft.Win32Function IsExcelInstalled() As Boolean ‘ Define the RegistryKey objects for the registry hives. Dim regClasses As RegistryKey =
‘ Return the number of checked nodes in the specified treePublic Function CountCheckedNodes(ByVal rootNode As TreeNode) As Integer Dim count As Integer = 0 ‘ count the root node, if
‘ Count the number of string occurrencesPublic Function CountOccurrences(ByVal source As String, ByVal search As String, _ Optional ByVal ignoreCase As Boolean = False) As Integer Dim options As System.Text.RegularExpressions.RegexOptions