PDA

Visualizza la versione completa : Aprire e chiudere un form parte 2


xit
02-08-2002, 12:34
A me era stato consigliato questo codice:
Public F1 As Boolean
Form3.F1 io non posso accedere al variabile così
Form. mi dà l'elenco delle proprietà non delle variabili
o sbaglio qualcuno mi può spiegare!!!



----------------------------------------------------------------------


Creara un Command Button in Form1 e Form2 di nome Command1.
Codice in Form1:

Private Sub Command1_Click()
Form3.Show
Form3.F1 = True
End Sub

Private Sub Form_Load()
Form2.Show
End Sub

Codice in Form2:

Private Sub Command1_Click()
Form3.Show
End Sub

Codice in Form3:

Public F1 As Boolean

Private Sub Form_Unload(Cancel As Integer)
If F1 Then
Form1.SetFocus
Else
Form2.SetFocus
End If
End Sub
----------------------------------------------------------------------

lufo5
02-08-2002, 14:24
le variabili pubbliche vengono viste da tutti i form.
ti conviene creare un modulo, dove dichiari le variabili pubbliche

form. ti permette di firchiamare gli oggetti e le proprietà di quel form, ma non le variabili in essoc ontenute

xit
02-08-2002, 14:37
Non so se puoi aiutarmi comunque il mio problema è questo
-----------------------------> sul evento click indietro
io non so ha quale dei due form ritornare, io vorrei fare in modo
che quando clikko indietro ritorno al form che mi ha chiamato(cioè che mi aperto in parole povere)
Che codice devo mettere?


1) Form1 ho:

Private Sub Apri_Click()
Anagrafica.Show
Unload Me
End Sub

2) Form2 ho:

Private Sub Apri_Click()
Anagrafica.Show
Unload Me
End Sub


3) Anagrafica ho :
Private Sub Indietro_Click() ------------------------>

End Sub

lufo5
02-08-2002, 15:07
Crei una variabile pubblica per esempio vFormChiamante

1) Form1 ho:


Private Sub Apri_Click()
vFormChiamante = "Form1"
Anagrafica.Show
Unload Me
End Sub


2) Form2 ho:


Private Sub Apri_Click()
vFormChiamante = "Form2"
Anagrafica.Show
Unload Me
End Sub


3) Anagrafica ho :


Private Sub Indietro_Click()
Select Case vFormChiamante
Case "Form1"
Form1.Show
Case "Form2"
Form2.Show
End Select
Unload Me
End Sub

Loading