Discussion :

[sandball22]

Bonjour, j'ai une petite question sur les forms.

J'ai créé 3 forms. (ex form1, form2 et form3).
l'appui sur le bouton button 1 de la form 1 ouvre la form 3.
l'appui sur le bouton button 1 de la form 2 ouvre la form 3.

lorsque je clique sur le bouton quitter de la form 3 je veux pouvoir revenir sur la bonne form qui a appelé la form 3.

y a t il moyen de savoir qu'elle form a appelé la form3 (afin que je puisse frisé des boutons sur la bonne form)?


Merci.

[DAUDET78]

Il suffit de mettre une variable global (dans un module) et de charger :
1 si c'est la form 1 qui lance form 3
2 si c'est la form 2 qui lance form 3

A la fermeture de form3, tu mets le focus sur form 1 ou form 2

[ThierryAIM]

petit exercice sur les propriétés personnalisées d'une form

FORM 3 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private m_objCaller As Form
 
Public Property Get Caller() As Form
    Set Caller = m_objCaller
End Property
 
Public Property Set Caller(objCaller As Form)
    Set m_objCaller = objCaller
End Property
 
Private Sub Form_Unload(Cancel As Integer)
    Caller.Show
    Set m_objCaller = Nothing
End Sub

FORM 1 et FORM 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Command1_Click()
    Set Form3.Caller = Me
    Form3.Show
End Sub