22/10/09 9:18
artel
saluti.
all'interno di una routine di form1 ho una chiamata di apertura di un'altra form (form2) la quale una volta chiusa tramite una variabile Global RITORNO mi restituice un risultato RITORNO=true o false.
sia form1 che form 2 sono child
Prima non usavo mdi form e aprendo la seconda form com form2.show 1 spostavo ogni evento sulla form2 e il codice in form1 dove avveniva la chiamta di form2 si bloccava fino a che non chiudevo la form2 avendo così il valore della variabile RITORNO e di conseguenza indirizzare con if RITORNO= true o false la restante parte di codice della routine della form1.
Ora con l'utilizzo di mdi_form mi apre la form2 ma esegue comunque tutto il codice con RITORNO = Empty.
non sò se sono stato chiaro, posto un pò di codice
'''codice in un modulo
global RITORNO as boolean
'''codice in form 1
privete sub Apri_MsgBox()
''''''''form2.show 1 'parte del codice prima di usare le mdi form
form2.show 'usando le mdi form
if RITORNO=true then
else
end if
end sub
''''codice in form 2
Private Sub Command1_Click
RITORNO=true
end sub
all'interno di una routine di form1 ho una chiamata di apertura di un'altra form (form2) la quale una volta chiusa tramite una variabile Global RITORNO mi restituice un risultato RITORNO=true o false.
sia form1 che form 2 sono child
Prima non usavo mdi form e aprendo la seconda form com form2.show 1 spostavo ogni evento sulla form2 e il codice in form1 dove avveniva la chiamta di form2 si bloccava fino a che non chiudevo la form2 avendo così il valore della variabile RITORNO e di conseguenza indirizzare con if RITORNO= true o false la restante parte di codice della routine della form1.
Ora con l'utilizzo di mdi_form mi apre la form2 ma esegue comunque tutto il codice con RITORNO = Empty.
non sò se sono stato chiaro, posto un pò di codice
'''codice in un modulo
global RITORNO as boolean
'''codice in form 1
privete sub Apri_MsgBox()
''''''''form2.show 1 'parte del codice prima di usare le mdi form
form2.show 'usando le mdi form
if RITORNO=true then
else
end if
end sub
''''codice in form 2
Private Sub Command1_Click
RITORNO=true
end sub
aaa