Gambas-it

Archivi (sola lettura) => Programmazione (Gambas 2) => Topic aperto da: Diakrufus - 22 Gennaio 2011, 21:04:54

Titolo: [Risolto] Validazione email dentro una TextBox
Inserito da: Diakrufus - 22 Gennaio 2011, 21:04:54

Ciao come da oggetto ho creato una Textbox con un Button dove inserire l'indirizzo email, con il codice che ho prelevato da questo forum. Funziona tutto, ma se la textbox contiene un campo vuoto  la validazione da questo errore "No subject provider" ecco il codice

Codice: [Seleziona]

PUBLIC SUB Button1_Click()

  DIM myemail AS String
  DIM validemail AS String
  DIM re AS RegExp
  
  myemail = TextBox1.Text
  
  re = NEW RegExp(myemail, "(?i)\\b[a-z0-9._%\\-]+@[a-z0-9._%\\-]+\\.[A-Z]{2,4}\\b")   
  
  validemail = re.Text
  
  IF NOT validemail THEN
    Message.Info(myemail & " is not a legal email address", "OK")
    
  ELSE
    myemail = TextBox1.Text 
  END IF 

END

:hatecomputer:

Titolo: Re: Validazione email dentro una TextBox
Inserito da: milio - 22 Gennaio 2011, 21:13:44

E fare un controllo se la textbox risulta vuota?  :-\

del tipo:

Codice: [Seleziona]

If Not TextBox1.Text Then
  Message.Error("Email non valida")
  Return
End If

prima di passare il valore alla variabile mymail?

Titolo: Re: Validazione email dentro una TextBox
Inserito da: Diakrufus - 23 Gennaio 2011, 18:55:54

Ho Risolto così:

Codice: [Seleziona]

 Risultato["email"] = TextMail.Text
 ' inizio la validazione della TextMail
  IF NOT TextMail.Text THEN
     Risultato["uff"] = TextUff.Text 
      Risultato.Update
      Connessione.Commit
      Connessione.CLOSE
 RETURN
  END IF

myemail = TextMail.Text
  
  re = NEW RegExp(myemail, "(?i)\\b[a-z0-9._%\\-]+@[a-z0-9._%\\-]+\\.[A-Z]{2,4}\\b")   
  
  validemail = re.Text
  
    IF NOT validemail THEN
        Message.Info(myemail & "   Email non valida", "Controlla")
    ELSE
        myemail = TextMail.Text
 
        Risultato.Update
        Connessione.Commit
        Connessione.CLOSE
 ENDIF

Grazie  tante milio  :)