Usa questo comando:
Message("Corpo del messaggio")
Poi se devi applicare le icone (tipo Waring e Info) usa:
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 :-)
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.
Come posso fare per uscire da una sub (EXIT SUB) ?
Usa il comando
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:
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
FormApertura.Variabile=ecc...