Visualizza wikitesto di Imporre in casi particolari la riapertura dell'InputBox

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, operché 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:
 '''Public''' Sub Form_Open()
 
  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)
 
  Print "E' stata immessa nell'InputBox la seguente stringa di caratteri:\n"; rit
   
 '''End'''