Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Chat biutente (Server) - frmOpzioni.frm

frmOpzioni.frm

Caricato da: Roberto VB
Scarica il programma completo

  1. Private Sub cmdOk_Click()
  2.     'Nascondo il form
  3.     frmOpzioni.Hide
  4. End Sub
  5.  
  6.  
  7. Private Sub txtPortaFinale_Validate(Cancel As Boolean)
  8.     'Controllo che l'utente non inserisca la porta errata
  9.     If Val(txtPortaFinale.Text) > 65535 Then
  10.         MsgBox "Inserisci un valore corretto", vbExclamation, "ERRORE"
  11.         txtPortaFinale.Text = "65535"
  12.     End If
  13.     'Controllo che l'utente non inserisca caratteri non validi
  14.     If Not IsNumeric(txtPortaFinale.Text) Then
  15.         MsgBox "Inserisci un valore corretto", vbExclamation, "ERRORE"
  16.     End If
  17.     'Controllo che l'utente non inserisca 0 come porta finale
  18.     If txtPortaFinale.Text = "0" Then
  19.         MsgBox "Valore non valido", vbExclamation, "ERRORE"
  20.     End If
  21. End Sub