U prvoj formi (Form1) stavi nesto ovako:
Code:
Private WithEvents m_Frm As Form2
u Form2 stavi nesto ovako
Code:
Public Event Finished(ReturnData as Variant)
kad iz prve forme prikazujes drugu, prikazi je ovako:
Code:
Me.Hide
m_Frm.Show
ako vracas nesto iz Form2 u Form1 to smestis u ReturnData (lepse ("programerskije") nego da radis sa public i global promenljivama) i i dignes taj event Finished kad se klikne na ok button, na primer. Isto tako mozes da imas event Canceled koji dizes kad se klikne na Cancel dugme (ako ga imas). U Form1 hendlujes event Finished forme Form2, tj. njene instance m_Frm.
Code:
Private Sub cmdOk_Click()
' smesti u ReturnData ono sto treba da bude vraceno prvoj formi
RaiseEvent Finished(ReturnData)
Unload Me
End Sub
Code:
Private Sub m_Frm_Finished(ReturnData as Variant)
' obradi podatke koje je vratila forma Form2
Me.Show
End Sub