Comment savoir qu'un USF est fermé

xavier44 · 4 Avril 2005

Bonjour le Forum,
Comment récupérer une info lorsq'un USF est fermé avec la croix en haut à droite afin de pouvoir lancer un action.

Merci pour votre aide.

PascalXLD · 4 Avril 2005

Bonjour

Du style

Code:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = vbFormControlMenu Then  

.....


End if


End Sub

Bon courage

xavier44 · 4 Avril 2005

Re bonjour à tous
Merci Pascal76 pour la réponse. c'est parfait.

_Thierry · 4 Avril 2005

Re: UserForm CloseMode (Capter la Fermeture)

Bonjour Pascal, Xavier

Alors fini les vacances Pascal ? Welcome Back sur XLD !

Bon en complément, car assez mal documenté sans l'aide, voici un pense bête de 'QueryClose' => 'CloseMode'

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Select Case CloseMode
        Case 0 'Ou Constante vbFormControlMenu
            MsgBox 'Fermeture pas la Croix ou ''ALT F4'''
        Case 1 'Ou Constante vbFormCode
            MsgBox 'Fermeture programmation ''CommndButton'' ou autre'
        Case Else
            MsgBox 'Gros Plantage, ou Windows TaskManager, ou coupure EDF lol'
    End Select
   
End Sub

Bon Après Midi
@+Thierry

PascalXLD · 4 Avril 2005

Re: UserForm CloseMode (Capter la Fermeture)

Re

Et oui les vacances sont finies. J'ai pris un bon bol d'air iodé alors c'est reparti pour un tour

Et bien sinon merci pour le complément d'information.

Bonne soirée

Comment savoir qu'un USF est fermé

xavier44

XLDnaute Nouveau

PascalXLD

XLDnaute Barbatruc

xavier44

XLDnaute Nouveau

_Thierry

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

Discussions similaires