[VB6] If con InputBox

wingman87 · 20-01-2007, 20:15

Ho un pezzo di codice che dice così:

Codice:

Do While Len(temp) = 0
      temp = InputBox("Inserire risposta")
Loop

Oltre a ripetere la richiesta nel caso in cui non sia stato scritto niente xò vorrei anche poter uscire dal ciclo premendo il tasto annulla. Probabilmente è una cavolata ma non mi viene in mente una soluzione..

mynos79 · 21-01-2007, 09:15

La funzione InputBox, premendo il pulsante ANNULLA, restituisce una stringa di lunghezza ZERO ... quindi il tuo loop sarà infinito; e non si può nemmeno confrontare il risultato con le costanti del VB quali VbOK o VbCancel come per il MsgBox.

Ti consiglio di cambiare il ragionamento e non considerare il tasto annulla, ma magari per fare annullare far scrivere "annulla" nell' inputbox e fare un controllo con IF a posteriori dentro al DO-LOOP ...
Oppure crearti una inputbox personalizzata.

wingman87 · 21-01-2007, 12:53

Grazie mille!

dvbman · 31-01-2007, 22:18

se non ricordo male, la costante è VbCancel

mynos79 · 31-01-2007, 23:56

Quote:

Originariamente inviato da dvbman

se non ricordo male, la costante è VbCancel

InputBox non ammette controlli con le costanti del vb quali VbOk, VbCancel, etc etc come invece si può fare con MsgBox ...

dvbman · 01-02-2007, 00:08

Quote:

Originariamente inviato da mynos79

InputBox non ammette controlli con le costanti del vb quali VbOk, VbCancel, etc etc come invece si può fare con MsgBox ...

hai ragione, ricordavo male (qua)

20-01-2007, 20:15	#1
wingman87 Senior Member Iscritto dal: Nov 2005 Messaggi: 2782	[VB6] If con InputBox Ho un pezzo di codice che dice così: Codice: Do While Len(temp) = 0 temp = InputBox("Inserire risposta") Loop Oltre a ripetere la richiesta nel caso in cui non sia stato scritto niente xò vorrei anche poter uscire dal ciclo premendo il tasto annulla. Probabilmente è una cavolata ma non mi viene in mente una soluzione..

21-01-2007, 09:15	#2
mynos79 Senior Member Iscritto dal: Jun 2005 Città: Mestre (VE) Messaggi: 1415	La funzione InputBox, premendo il pulsante ANNULLA, restituisce una stringa di lunghezza ZERO ... quindi il tuo loop sarà infinito; e non si può nemmeno confrontare il risultato con le costanti del VB quali VbOK o VbCancel come per il MsgBox. Ti consiglio di cambiare il ragionamento e non considerare il tasto annulla, ma magari per fare annullare far scrivere "annulla" nell' inputbox e fare un controllo con IF a posteriori dentro al DO-LOOP ... Oppure crearti una inputbox personalizzata. __________________ IN WIN 909 / AMD Ryzen 9 3950X / Gigabyte X570 Aorus Xtreme / 4x8gb G.Skill 3200 / Gigabyte Aorus RTX2080Ti Xterme / 2x Gigabyte Aorus NVMe M.2 1Tb / Corsair AX1200i / full liquid EK - Bitspower / circa 160 trattative nel mercatino

31-01-2007, 22:18	#4
dvbman Senior Member Iscritto dal: Jul 2005 Città: 127.0.0.1 Messaggi: 1632	se non ricordo male, la costante è VbCancel __________________ Think! Search Ask

21-01-2007, 12:53	#3
wingman87 Senior Member Iscritto dal: Nov 2005 Messaggi: 2782	Grazie mille!

Strumenti
Mostra una versione stampabile Invia questa pagina per email