[VB5] Validare indirizzo di posta inserito in una TextBox

[vr-claudio]

Ciao ragazzi
ho una casella che utiliizzo per inserire le email, quello che mi piacerebbe fare è che se io dopo la "@" scrivo qualcosa che sia diverso ad esempio da "libero.it" mi dia errore!
Sicuramente sarà una sciocchezza ma io mi sto perdendo!

Grazie mille

[vr-claudio]

[MItaly]

Gestisci l'evento Validate della casella di testo e nel gestore eventi verifica la correttezza di quanto inserito dall'utente. Puoi lavorare con la InStr per ottenere il carattere in cui si trova @ e la Mid$ per ottenere la sottostringa che ti interessa.

[vr-claudio]

GRAZIE MILLE PER LA RISPOSTA
MA FACCIO MOLTA FATICA A CAPIRE, DATO CHE NON SONO UN GENIO, MA SOLO UN APPASSIONATO...QUINDI GENTILMENTE SE PUOI FARMI UN ESEMPIO TE NE SAREI GARTO

CLAUDIO

[MItaly]

Private Sub Text1_Validate(Cancel As Boolean)
    Dim ATpos As Long
    ATpos = InStr(1, Text1.Text, "@")
    If ATpos = 0 Or Mid$(Text1.Text, ATpos + 1) <> "libero.it" Then
        MsgBox "Puoi inserire solo un indirizzo di posta @libero.it.", vbCritical
        Cancel = True
    End If
End Sub

[vr-claudio]

HO INSERITO IL CODICE NELL'EVENTO LOSTFOCUS() E FUNZIONA ALLA GRANDE
GRAZIE MILLE

[alka]

Originariamente inviato da vr-claudio
HO INSERITO IL CODICE NELL'EVENTO LOSTFOCUS() E FUNZIONA ALLA GRANDE
GRAZIE MILLE

Non scrivere i messaggi in maiuscolo: equivale convenzionalmente ad URLARE.