by sumeet haldankar (5 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 27th July 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Data validations
API Declarations
Dim b As Boolean
Dim RegObj As New RegExp
Dim b As Boolean
RegObj.Pattern = "^[a-zA-Z0-9 ]+$"
' the pattern specifies the test string
b = RegObj.Test(Text1.Text)
If b = True Then
MsgBox "Valid"
Else
MsgBox "Invalid"
End If