[Risolto] Come implementare una form di conferma

[Franco_da_vc]

Ciao a tutti,

ho iniziato a scrivere un po' di codice del mio programma e devo dire che il gamberetto mi piace veramente, inizio a ritrovare il divertimento che provavo scrivendo nel precedente "SuperBasic", ora però mi sono incagliato   in un problema che non ha trovato ancora risoluzione:

Il mio programma parte in un form, alla pressione di un tasto deve comparire un secondo form di conferma del tipo "Confermi la scelta? Si NO", in un primo tempo ho realizzato un apposita classe con un form associato, il problema era che non sapevo come ritornare alla procedura chiamante il valore di uscita vero o falso.

Ho poi provato vedendo sulla "Guida per principianti Gambas" che si può istituire dei subform ed ho provato a seguire questa strada, ma francamente o io non ho ancora capito bene o il manuale è un pò scarno, il fatto è che questa seconda strada mi sembra meno percorribile della prima.

Non c'è del codice di esempio per una struttura simile a cui io possa ispirarmi?

Saluti a tutti e grazie!

[Picavbg]

Perchè ti occorre una Form modale?. Non basterebbero due pulsanti nella FMain (almeno credo che parli di quella) del tipo RadioButton? Io disegnerei una Frame, dentro di essa inserirei i due RadioButton e nella Frame.Text scriverei Conferma, mentre nelle RadioButton1.Text e  RadioButton1.Text scriverei rispettivamente Si, No.
A parte ciò se vuoi aprire una Form modale è semplicissimmo, ma ti consiglio di leggere qui.
Buon lavoro e divertimento. 
 

[vuott]

Non c'è del codice di esempio per una struttura simile a cui io possa ispirarmi?

..una mezza cosa di 'sto genere ?

Nella classe principale:

Codice: gambas [Seleziona]

Public Sub Button1_Click()

' apri il form secondario:
  Form1.ShowModal

End


Public Sub ritBool(bRit As Boolean)

' a fine esemplificativo vedi in console
' il risultato di ritorno dalla classe secondaria:  
   Print bRit
  
End

Nella classe dell'altro Form secondario:

Codice: gambas [Seleziona]

  b As Boolean   '...variabile globale !

Public Sub Button1_Click()

    b = True

' invii il valore booleano alla routine 
' ritBool della classe principale FMain:
   FMain.ritBool(b)
  
  Form1.Close

End

Public Sub Button2_Click()

    b = False

' invii il valore booleano alla routine 
' ritBool della classe principale FMain:
   FMain.ritBool(b)
  
  Form1.Close

End

[fsurfing]

anche in questo caso gambas non si fa cogliere inpreparato mettendoci a disposizione una soluzione semplice e pulita.
si può utilizzare la classe message:

Codice: [Seleziona]

dim i as integer

i=message.question("vuoi che vuott venga espulso dal forum?","SI","NO")

if i=1 then
   print "vuott verrà espulso"
else
   print "vuott non verrà espulso"
endif

nb: ogni riferimento a cose o nomi è puramente casuale

 

[vuott]

nb: ogni riferimento a cose o nomi è puramente casuale

 

....tu... tu.... non ami gli Artisti !


...però effettivamente la tua soluzione è più sbrigativa e fa apparire una finestra con tasti da scegliere.

[fsurfing]

....tu... Pianto tu.... non ami gli Artisti ! Linguaccia

ehe eh eh eh .. ultimamente non vedo più cesko sul forum così devo stuzzicare qualcun altro....

...però effettivamente la tua soluzione è più sbrigativa e fa apparire una finestra con tasti da scegliere.

si infatti, inoltre i pulsanti possono essere più di 2 , possono cointenere qualsiasi testo , e il tutto vale per qualsiasi tipologia di message (info, question, error ecc)

[Franco_da_vc]

E' vero, questa soluzione è veramente sbrigativa e veloce, ma al contempo molto elegante.

Grazie!

[Top Fuel]

Mi aggancio a questo topic visto che se ne parla.
Nella famigerata applicazione della tombola vorrei mettere il solito messaggio di presentazione al lancio dell'applicazione:

Codice: [Seleziona]

STATIC PUBLIC SUB Form_Open()
Message.Info("Tombola! V. 1.0.1\\nby TopFuel&Milio 2012", "Ok")
END

Però non viene visualizzato nulla. Dove sbaglio?

[fsurfing]

a  me su gambas3 con le qt funziona

[vuott]

Però non viene visualizzato nulla. Dove sbaglio?

Togli "STATIC"

Aggiungo che se vuoi andare a capo devi togliere un  \  da "\\n" !

Riassumendo:

Codice: gambas [Seleziona]

PUBLIC SUB Form_Open()
  Message.Info("Tombola! V. 1.0.1\nby TopFuel&Milio 2012", "Ok")
END

...oppure così:

Codice: gambas [Seleziona]

PUBLIC SUB Form_Open()
  Message.Info("Tombola! V. 1.0.1" & chr(10) & "by TopFuel&Milio 2012", "Ok")
END

In alternativa puoi usare il codice html: <BR> (ma devi aver attivato gb.qt4):

Codice: [Seleziona]

PUBLIC SUB Form_Open()
  Message.Info("Tombola! V. 1.0.1<BR>by TopFuel&Milio 2012", "Ok")
END

[Top Fuel]

Ok, adesso va. Grazie.

[fsurfing]

bravo vuott! io non avevvo visto il static 

cmq io scriverei così:

Codice: gambas [Seleziona]

    PUBLIC SUB Form_Open()  
     Message.Info("Tombola! V. " & application.version & "\nby TopFuel&Milio 2012", "Ok")  
    END  

cos' non devi modificare la versione ogni volta

[vuott]

Interessante, fsurfing, questa tua soluzione:
application.version

[dex]

ehe eh eh eh .. ultimamente non vedo più cesko sul forum così devo stuzzicare qualcun altro....

Che fine ha fatto il cesko?

[Ceskho]

ehe eh eh eh .. ultimamente non vedo più cesko sul forum così devo stuzzicare qualcun altro....

Che fine ha fatto il cesko?

Dopo 10 ore di lavoro difficilmente accendo il pc...in realtà son vivo, purtroppo per voi....