Differenze tra le versioni di "Imporre in casi particolari la riapertura dell'InputBox"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Qualora in casi particolari, stabiliti dal codice, la stringa ritornata dall'<I>InputBox</i> non soddisfi una determinata condizione (o perché non sia stata inserita la strin...") |
|||
| Riga 4: | Riga 4: | ||
Mostriamo un semplice esempio pratico, nel quale non si uscirà dal ciclo, finché non sia stata immessa nell'<I>InputBox</i> una qualsiasi stringa di caratteri: | Mostriamo un semplice esempio pratico, nel quale non si uscirà dal ciclo, finché non sia stata immessa nell'<I>InputBox</i> una qualsiasi stringa di caratteri: | ||
'''Public''' Sub Form_Open() | '''Public''' Sub Form_Open() | ||
| − | + | ||
Dim rit As String | Dim rit As String | ||
| − | + | ||
| − | + | Repeat | |
| − | + | rit = InputBox("Inserire una stringa qualsiasi:") | |
| − | + | <FONT Color=gray>' ''Se non è stato immesso nell'InputBox alcun carattere, torna all'inizio del ciclo:''</font> | |
| − | + | Until Not IsNull(rit) | |
| − | <FONT Color=gray>' ''Se non è | + | |
| − | + | Print "E' stata immessa nell'InputBox la seguente stringa di caratteri:\n"; rit | |
| − | |||
| − | |||
'''End''' | '''End''' | ||
Versione delle 22:41, 25 dic 2021
Qualora in casi particolari, stabiliti dal codice, la stringa ritornata dall'InputBox non soddisfi una determinata condizione (o perché non sia stata inserita la stringa prevista, operché non è stata inserita alcuna stringa), è possibile, volendo, imporre con un apposito ciclo la riapertura continua dell'InputBox, sino a quando non sia stata soddisfatta la condizione richiesta per la stringa ritornata.
Mostriamo un semplice esempio pratico, nel quale non si uscirà dal ciclo, finché non sia stata immessa nell'InputBox una qualsiasi stringa di caratteri:
Public Sub Form_Open()
Dim rit As String
Repeat
rit = InputBox("Inserire una stringa qualsiasi:")
' Se non è stato immesso nell'InputBox alcun carattere, torna all'inizio del ciclo:
Until Not IsNull(rit)
Print "E' stata immessa nell'InputBox la seguente stringa di caratteri:\n"; rit
End
