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...") |
|||
| (Una versione intermedia di uno stesso utente non è mostrata) | |||
| 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 | ||
| − | + | ||
| − | + | 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 | |
| − | |||
| − | |||
Versione attuale delle 04: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
