lancer un event

Question

comment peut on faire pour lancer un event?
j'ai le problème suivant :

un form principale lance une autre form.
quand je click sur la croix je fais l'event form_Unload (cancel as integer)
cancel est a 0
je met cancel a true
ma form.visible = false

tout marche correctement,
mais quand j'appui sur le btn exit de la fenetre principale,
je veux unloader tout mes forms,
de la le problème...
car je ne la unload pas, je la cache, donc ma boucle tourne
je voudrai lancer un event qui serai tu type
maFormAUnloader.Form_Unload (2)

et dans ma form_Unload je test la valeur de cancel pour voir si = 1 ou 2 et mon trt en fonction

merci

cs_Crazyht · Answer

Solution : Dans le form_QueryUnload, tu peux savoir d'ou vient la demande. Donc si la demande viens du code tu ferme sinon tu annules.

A++

Crazyht :)

neo3015 · Answer

et comment je fais ca?

stevebelgium · Answer

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    'MsgBox UnloadMode
    If UnloadMode = vbFormControlMenu Then
        Me.Visible = False
        Cancel = 1
        Form2.Show
    ElseIf UnloadMode = vbFormCode Then
        Unload Form2
        'Unload Form3
        'Unload Form4 ....
    End If
    
End Sub

Lancer un event

3 réponses

Discussions similaires