Option Explicit
Private Sub cmdOk_Click()
'Nascondo il form
frmOpzioni.Hide
End Sub
Private Sub txtPortaFinale_Validate(Cancel As Boolean)
'Controllo che l'utente non inserisca la porta errata
If Val(txtPortaFinale.Text) > 65535 Then
MsgBox "Inserisci un valore corretto", vbExclamation, "ERRORE"
txtPortaFinale.Text = "65535"
End If
'Controllo che l'utente non inserisca caratteri non validi
If Not IsNumeric(txtPortaFinale.Text) Then
MsgBox "Inserisci un valore corretto", vbExclamation, "ERRORE"
End If
'Controllo che l'utente non inserisca 0 come porta finale
If txtPortaFinale.Text = "0" Then
MsgBox "Valore non valido", vbExclamation, "ERRORE"
End If
End Sub
