Πώς να επικυρώσει μια διεύθυνση ηλεκτρονικού ταχυδρομείου σε VB

Visual Basic ( VB ) είναι μια γλώσσα προγραμματισμού που δημοσιεύεται από τη Microsoft , ως μέρος του Visual Studio σουίτα του . Για να εκτελέσετε επικυρώσεις για διευθύνσεις ηλεκτρονικού ταχυδρομείου , Visual Basic χρησιμοποιεί το βιομηχανικό πρότυπο " κανονική έκφραση " σύνταξη . Αυτό καθορίζει ότι οι χορδές του κειμένου ταιριάζει καθορισμένων μοτίβων . Οδηγίες
Η

1 Δημιουργήστε ένα νέο έργο κάνοντας κλικ στο " Αρχείο" και "New Project ". Δώστε το όνομα " EmailVerifier . " Θα σας παρουσιαστεί με ένα κενό Graphical User Interface ( GUI ) μορφή . 2

Σύρετε ένα " κουτάκι " και " κουμπί" από την εργαλειοθήκη στη φόρμα σας . Το πλαίσιο κειμένου θα σας δώσει μια θέση για να εισάγετε τη διεύθυνση ηλεκτρονικού ταχυδρομείου , ενώ το κουμπί θα ξεκινήσει η διαδικασία επαλήθευσης .
Εικόνων 3

Κάντε διπλό κλικ στο κουμπί για να δημιουργήσετε ένα συμβάν κλικ. Αυτό θα σας μεταφέρει στο πρόγραμμα επεξεργασίας πηγαίου κώδικα για το έργο
Η 4

Επικολλήστε τον ακόλουθο πλαίσιο της μεθόδου με τίτλο « Button1_Click : " .

Δημ. regexPattern As String = " ^ [ A - Za - z0 - 9._ % + - ] + @ [ A - Za - z0 - 9 - . . ] + \\ [ A - Za - z ] { 2,4 } $ "

Dim emailRegEx Όπως System.Text.RegularExpressions.Regex = Νέα System.Text.RegularExpressions.Regex ( regexPattern )

Αυτό δημιουργεί μια κανονική ρητή που θα ταιριάζει με τις διευθύνσεις ηλεκτρονικού ταχυδρομείου . Η κανονική έκφραση είναι αρκετά περίπλοκη , αλλά διευκρινίζει ότι μια έγκυρη διεύθυνση ηλεκτρονικού ταχυδρομείου αποτελείται από μια σειρά γραμμάτων και αριθμών , που ακολουθείται από ένα σύμβολο @ , που ακολουθείται από μια άλλη σειρά γραμμάτων και αριθμών , που ακολουθείται από μια περίοδο και σε μια σειρά από δύο . με τέσσερα γράμματα
5

Επικολλήστε τα παρακάτω αμέσως μετά τον κωδικό από το προηγούμενο βήμα :

Dim αποτέλεσμα Όπως Boolean = emailRegEx.IsMatch ( TextBox1.Text )

Debug.WriteLineIf ( αποτέλεσμα ", Αυτό το ηλεκτρονικό μήνυμα είναι έγκυρη . " )

Debug.WriteLineIf ( Χωρίς αποτέλεσμα , " Αυτό το ηλεκτρονικό μήνυμα δεν είναι έγκυρη . " )

Αυτό εκτελεί την επικύρωση και εκτυπώνει το αποτελέσματα στο πρόγραμμα εντοπισμού σφαλμάτων .
Η
εικόνων