In asp(web app) it is required field validator what in vb (window app)

[seshu]

Hi Everybody
it has been a long time me coming into this site well today i am back with a small doubt in asp.net for designing a web page we take required field validators to check whether the user has entered the correct format of email address or not but here in window app using vb how to validate a textfield whethere the user has given the correct email id or not are there any tolls are we need to go by coding if have to go by coding then some one plz help me out


regards
seshu

[sani723]

i never worked in desktop app but i think there isn't aby use the function to validate email

Imports System.Text.RegularExpressions

Function EmailAddressCheck(ByVal emailAddress As String) As Boolean

Dim pattern As String = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"

Dim emailAddressMatch As Match = Regex.Match(emailAddress, pattern)

If emailAddressMatch.Success Then
EmailAddressCheck = True
Else
EmailAddressCheck = False
End If
End Function

[Mahesh83]

Hi Everybody
it has been a long time me coming into this site well today i am back with a small doubt in asp.net for designing a web page we take required field validators to check whether the user has entered the correct format of email address or not but here in window app using vb how to validate a textfield whethere the user has given the correct email id or not are there any tolls are we need to go by coding if have to go by coding then some one plz help me out


regards
seshu

Hi Seshu

For email Validation we can use Object on textbox Validating Event put the code it will help you

Dim reg = CreateObject("VBScript.Regexp")
        Dim sParams As String
        sParams =Textbox1.Text
        reg.pattern = "^(\w+\.)*(\w+)*(\w+\-)*(\w+)@(\w+\-)*(\w+\.)+([a-zA-Z]{2,4})$"
        If (sParams = "") Then
        MsgBox("Please Insert its Blank)
        Textbox1.Focus()
        Else
            If (reg.test(sParams) = False) Then
                MsgBox("Please Insert valid Emailid")
                Textbox1.Focus()
            End If
        End If

[seshu]

Thank you mahesh
you have really helped me out because i dont get satisfy if i dont compleet my work in a satisfied manner
since morning i was strugling to write this kind of code but i dint get any iodea
any how thank you once again
regards
seshu