message 3 tasti

[dex]

hello raga

in un messagebox devo inserire un terzo button per annullare un ciclo for

in pratica mi serve un message con tre button (Elimina,Annulla,Esci)
nel quale Esci annula il ciclo

Codice: [Seleziona]

     for i = 1 to MyRS.count
         IF Message.Delete("Vuoi eliminare questo Record?", "Elimina", "Annulla") = 1
             Medcli = MyRS!idcliente  
             MyRS = ModMain.MyConn.edit("clienti", "idcliente=" & Medcli)
             MyRS.Delete
             Message.Info("Record eliminato")
         ENDIF
     next

[milio]

ma non ti basta scrivere:

Codice: [Seleziona]

Message.Delete("Vuoi eliminare questo record","Elimina","Annulla","Esci")

?

[dex]

ma non ti basta scrivere:

Codice: [Seleziona]

Message.Delete("Vuoi eliminare questo record","Elimina","Annulla","Esci")

?

in questo caso annulla o esci hanno la stessa funzione. non entrano nell'if e annullano l'operazione.

a me serve Elimina (comincia il ciclo for), Annulla(Annulla l'operazione), Esci(Interrompe il ciclo for anche se questi è già iniziato).

in questo caso Esci si dovrebbe usare dopo aver premuto elimina e serve solo per bloccare in caso di errori.

[Ceskho]

Codice: [Seleziona]

     for i = 1 to MyRS.count
         IF Message.Delete("Vuoi eliminare questo Record?", "Elimina", "Annulla") = 1
             Medcli = MyRS!idcliente  
             MyRS = ModMain.MyConn.edit("clienti", "idcliente=" & Medcli)
             MyRS.Delete
             Message.Info("Record eliminato")
         ELSE
              BREAK
         END IF
     next

[Berserker79]

Ciao, prova il SELECT CASE al posto dell'IF.

[fsurfing]

secondo me così non può funzionare, anche perchè premendo un pulsante il message si chiude , altrimenti il ciclo for non potrebbe neppure iniziare.
ti conviene una volta partito il ciclo far comparire una finestrella con il pulsante per uscire dal ciclo

[leo72]

Un modo semplice sarebbe di usare un ToggleButton, che mantiene cioè uno stato una volta premuto. Così basta che dal ciclo For..Next tu controlli lo stato del ToggleButton.

Oppure usare un Button normale che modifichi il valore di una variabile visibile a livello di form.

[Picavbg]

io, nel programma che  sto realizzando, ho usato un funzione message con la seguente impostazione:

Codice: [Seleziona]

SELECT Message.Error("Attenzione! -> Tabella Residui" & Chr(10) & "V U O T A" & Chr(10) & Chr(10) & "Cosa vuoi fare?", "FORZO CHIUSURA PROGRAMMA", "PROSEGUO")
            CASE 1        ' È stato premuto il pulsante del messaggio --> "FORZO USCITA"
                QUIT 
            CASE 2
              b_SwErro = TRUE       'per richiesta operatore di proseguire con Tabella Residui VUOTA
        END SELECT 

Non ho mai usato un  terzo pulsante, però come ti ha indicato anche Berserker79, così dovrebbe funzionare. Devi solo aggiungere un test di tipo CASE 3
Vedi  SELECT Message.Question a pag.114 di "A Beginner's Guide to Gambas".   Auguri. 
Ciao.

[dex]

grazie delle dritte raga

penso di aver risolto unendo i consigli di fsurfing e leo72.
ora mi metto all'opera e faccio comparire una seconda finestra(non modale) con un button che interrompe il ciclo for.