Utilizzo di MsgBox

[ivosperi]

Ciao a tutti
Non riesco ad usare gli MsgBox, forse devo caricare qualche componente?
si possono usare come in vb:

risultato = MsgBox("Testo del messaggio", 64, "Titolo")

o ci sono altri sistemi

Grazie mille ciao ivo

[madnessmike]

Usa questo comando:

Codice: [Seleziona]

Message("Corpo del messaggio")

Poi se devi applicare le icone (tipo Waring e Info) usa:

Codice: [Seleziona]

Message.Info("Messagio")  'Messaggio d'informazione
Message.Warning("Messaggio") 'Messaggio di Warning
Messagge.Error("Messaggio") 'Messaggio d'errore
Message.Question("Messaggio",["Pulsante1","Pulsante2","Pulsante3"]) 'Messaggio di domanda con pulsanti 
'personalizzati,il valore di return corrisponde 
'al pulsante premuto, cioè 1, 2 o 3

Spero ti possa bastare :-)

[ivosperi]

Grazie
Scusa se approfitto ma avrei un altra domanda:
Voglio mettere un controllo sulla chiusura di una form:

PUBLIC SUB Form_Close()

 Message.Question("Uscire dal programma?", "Annulla", "Esci")

END

Puoi aiutarmi ancora?
Ciao ivo

[leo72]

Codice: [Seleziona]

PUBLIC SUB Form_Close()
DIM Risposta AS Integer

  Risposta = Message.Warning("Vuoi davvero uscire dall'applicazione?", "Sì", "No")
  IF Risposta = 2 THEN
    STOP EVENT
  ENDIF
END

Message usato come finestra di avviso con pulsanti di scelta restituisce un intero che indica la posizione del pulsante premuto dall'utente tra quelli impostati. Quindi, nell'esempio qui sopra "Sì" è il pulsante n° 1 mentre "No" è il pulsante n° 2.
Se premo "No", ferma l'evento bloccando la chiusura del form.

Non è più bello :

PUBLIC SUB Form_Close()
SELECT Message.Warning("Vuoi davvero uscire dall'applicazione?", "Sì", "No")
 CASE 2
   STOP EVENT
 END SELECT
END

Certo che comunque leggere un pò la guida non guasterebbe .... si sta riempendo il forum di domande e risposte banali invece di cose interessanti

[leo72]

Beh, nessuna domanda è mai banale, soprattutto se fatta da un utente alle prime armi.
E poi è un modo per rinfrescare le nozioni, non trovi?

Quanto il codice da te postata, Gambas è un linguaggio "aperto" nel senso che per ogni problema esistono infinite soluzioni: ognuno applica quella più nota/pulita/preferita. ;-)

[Ceskho]

giac_fab ha scritto:
Non è più bello :

PUBLIC SUB Form_Close()
SELECT Message.Warning("Vuoi davvero uscire dall'applicazione?", "Sì", "No")
 CASE 2
   STOP EVENT
 END SELECT
END

Certo che comunque leggere un pò la guida non guasterebbe .... si sta riempendo il forum di domande e risposte banali invece di cose interessanti

La possibilità di aiutare qualcun altro va oltre i dubbi che questa persona pone...

possono anche chiederti cos'è un form....nessuno ti obbliga a rispondere...

[ivosperi]

Grazie mille a tutti,

Capisco che non è corretto aprire una nuova discussione per ogni cavolata ma avevo cercato qui:

Premando F1 in gambas esce questo html in inglese dal quale faccio molta fatica a trovare quello che cerco
Cercando MsgBox o visualizzare messaggi o messaggi dalla wiki non appare nulla
Cercando MsgBox dal cerca del forum appaiono varie discussioni ma nessuna con quello che cerco, tranne questa:
http://www.gambas-it.org/gmbs/modules/newbb/viewtopic.php?topic_id=412&forum=2&post_id=3625#forumpost3625
dove chi ha scritto usa MsgBox come in vb


Grazie ancora Ciao ivo

[leo72]

Usa MsgBox come in VB perché quel codice... è VB :-)

Comunque giusto per rendervi le idee chiare Vi riporto l'esempio di codice che utilizzavo in visual basic che sto provando a riconvertire con gambas e non ci sono ancora riuscito...

[ivosperi]

ops...  hai ragione scusa ciao

[ivosperi]

Scusate se approfitto ancora ma avrei ancora qualche domanda:

Come posso fare per uscire da una sub (EXIT SUB) ?

Si possono mettere più istruzioni sulla stessa riga (":" separatore) ?

Posso creare variabili globali, che valgano in ogni form o modulo (Global) ?

Grazie ancora Ivo

[madnessmike]

Come posso fare per uscire da una sub (EXIT SUB) ?

Usa il comando

Codice: [Seleziona]

RETURN

Si possono mettere più istruzioni sulla stessa riga (":" separatore) ?

Passaparola  :oops:

Posso creare variabili globali, che valgano in ogni form o modulo (Global) ?

Basta creare nel codice del form da dove inizia il programma, prima delle routines un comando del genere, uno per ogni variabile globale:

Codice: [Seleziona]

PUBLIC Variabile AS Tipo

Questa dichiarazione vale per tutte le routine della classe/modulo in cui è stata creata. Se poi la vuoi usare in altre classi, va richiamata in questo modo

Codice: [Seleziona]

FormApertura.Variabile=ecc...

[ivosperi]

Grazie mille ciao

[leo72]

Gambas accetta una istruzione/comando/funzione/assegnazione per riga di codice, eccetto che per i blocchi condizionali IF/THEN contenenti una unica istruzione, dove è ammesso anche che l'istruzione seguente al THEN sia sulla stessa linea: IF condizione THEN istruzione (es.: IF A = 1 THEN B = 1).

Una soluzione alternativa alle variabili globali è quella di dichiararle come Public all'interno di un modulo: in questo modo possono essere richiamate da qualunque altro modulo o classe o form del progetto semplicemente con la dicitura NomeModulo.NomeVariabile.