Non c'è del codice di esempio per una struttura simile a cui io possa ispirarmi?
..una mezza cosa di 'sto genere ?
Nella classe principale:
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:
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
si può utilizzare la classe message:
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
;D
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:
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?
Togli "STATIC"
Aggiungo che se vuoi andare a capo devi togliere un \ da "\\n" !
Riassumendo:
PUBLIC SUB Form_Open()
Message.Info("Tombola! V. 1.0.1\nby TopFuel&Milio 2012", "Ok")
END
...oppure così:
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):
PUBLIC SUB Form_Open()
Message.Info("Tombola! V. 1.0.1<BR>by TopFuel&Milio 2012", "Ok")
END
cmq io scriverei così:
PUBLIC SUB Form_Open()
Message.Info("Tombola! V. " & application.version & "\nby TopFuel&Milio 2012", "Ok")
END
cos' non devi modificare la versione ogni volta