Imporre in casi particolari la riapertura dell'InputBox

Da Gambas-it.org - Wikipedia.

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