Differenze tra le versioni di "Imporre in casi particolari la riapertura dell'InputBox"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
| − | 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 stringa prevista, | + | 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 stringa prevista, o perché non è stata inserita alcuna stringa), è possibile, volendo, imporre con un apposito ciclo la riapertura continua dell'<I>InputBox</i>, 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'<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() | |
Dim rit As String | Dim rit As String | ||
| Riga 14: | Riga 14: | ||
Print "E' stata immessa nell'InputBox la seguente stringa di caratteri:\n"; rit | Print "E' stata immessa nell'InputBox la seguente stringa di caratteri:\n"; rit | ||
| − | + | End | |
Versione attuale delle 05:12, 18 nov 2023
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, o perché 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
