[VB] Gestire più istruzioni IF

[renygade]

Diciamo che se devo scrivere così:

Select case TextBox1.Text
case "00000000":
MsgBox("Valore non valido", vbCritical, "Errore")
case "11111111":
MsgBox("Valore non valido", vbCritical, "Errore")
End Select


diventa sempre una ripetizione di codice quindi vale la pena che continui a scrivere come prima.

Il fatto che tutti i valori siano uguali è solo un esempio, ma potrebbero essere anche tutti diversi.

Con l'or non funziona o forse lo scrivo male io

If TextBox1.Text = "00000000" or "11111111" or "22222222" or "33333333" Then MsgBox("Valore non valido", vbCritical, "Errore")

Ciao

Il select permette di scrivere anche

Select case TextBox1.Text
case "00000000", "11111111", ​ "22222222" :

L'OR funziona con IF, però devi specificare ogni volta l'operatore di confronto, quindi diventa:

If TextBox1.Text = "00000000" or TextBox1.Text = "11111111" or TextBox1.Text = "22222222"

Per il resto ci sono metodi specializzati per verificare le stringhe. Se ad esempio vuoi verificare
se nella textbox sono stati inseriti numeri ch'è la funzione IsNumeric...