IsEmail
<Extension()> _ Public Function IsEmail(ByVal value As String) As Boolean Dim reg As Regex = New Regex("^\d{3}-\d{2}-\d{4}$") Return reg.IsMatch(value) End FunctionExample:
Texbox1.Text.IsEmail
Description
Check string for valid Email address
Details
- Author: NetDorkie
- Submitted on: 16-7-2009 15:22:26
- Language: VB
- Type: System.String
- Views: 2793
Double click on the code to select all.