PDA

Visualizza versione completa : VB - Apro un form e aspetto.


simoner
10-01-2007, 17.15.20
Ho un form1 all'evento Load fa una serie di operazioni... a metò di queste devo inserire dei dati (non uso una inbox ma un altro form)... lo script di form1 si deve fermare fino a quando non chiudo il form di inserimento, come?

Semi.genius
10-01-2007, 19.23.20
Non ho capito niente... non potersti spiegare in modo più "umano"? :p

LoryOne
10-01-2007, 19.42.51
Supponi di avere 2 form (Form1 e Form2) con un pulsante ognuno.
Supponi di aver definito una variabile che sia accessibile da entrambi, ad esempio "Fermati"

Public Fermati As Long

Supponi ora di eseguire un conteggio da 1 a 10 sul form1 dopo aver premuto il pulsante, ma di bloccare il conteggio a 5 in quanto il form2 deve eseguire altre operazioni prima che form1 completi le sue:

Private Sub Command1_Click()
Dim L As Long

For L = 1 To 10
Print L
If L = 5 Then
Form2.Show
While Fermati = 0
DoEvents
Wend
End If
Next
End Sub

Supponi ora che form2 effettui un altro conteggio da 1 a 10, poi si scarichi dalla memoria e consenta a form1 di completare il conteggio:

Private Sub Command1_Click()
Dim L As Long

For L = 1 To 10
Print L
Next
Fermati = L
Unload Me
End Sub

...sarebbe Form2 a cambiare il valore di Fermati in modo da consentire a Form1 di procedere.
C'è infatti semaforo rosso su form1 quando si giunge a 5, ma è Form2 a segnalare il verde perchè form1 possa procedere ;)
Form1,Form2 e Fermati sono inclusi nel dispositivo del semaforo e la variabile Fermati è il temporizzatore

LoryOne
10-01-2007, 19.44.33
Non ho capito niente... non potersti spiegare in modo più "umano"? :p

Simoner....SEI UNA BESTIA :D

P8257 WebMaster
10-01-2007, 23.36.02
Ciao Loryyyy :D

Dav82
11-01-2007, 02.37.59
Ma ciao a tutti e due :D

PS: viste le ultime uscite di Lory, alla cervello-patch sono stati allocati tutti i programmatori disponibili :p

simoner
11-01-2007, 09.16.24
Scusate mi stavo perdendo in un bicchier d'acqua... era una cazzata e l'ho pure spiegata male.... Già risolto, bastava andare a giocare a pallone e cambiare aria...

Grazie a tutti... anche se mi avete detto che sono una bestia...;)

miciomao
11-01-2007, 10.03.03
Ma ciao a tutti e due :D

PS: viste le ultime uscite di Lory, alla cervello-patch sono stati allocati tutti i programmatori disponibili :p






E io che c'ho la carnagione scura ?



scusa simoner ma che te la tieni per te la solussao ?
Illuminaci... quella del pallone non regge :)

Dav82
11-01-2007, 13.29.19
Penso si riferisca al consiglio di Loryone :)

LoryOne
11-01-2007, 17.55.40
Ma ciao a tutti e due :D

PS: viste le ultime uscite di Lory, alla cervello-patch sono stati allocati tutti i programmatori disponibili :p



Un sentito grazie per l' impegno profuso nel provare ad imbrigliare neuroni impazziti che fanno a cazzotti per trovare posto in uno spazio angusto e pure sovraffollato ;) :D
La pazienza è dei forti

LoryOne
11-01-2007, 17.57.59
Penso si riferisca al consiglio di Loryone :)

Che ?
Io gli ho detto di uscire a giocare a pallone ?

Io gli ho detto di uscire si ma ... di giocare al dottore