1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

En VB6, comment intercepter l'appui sur l'outil réduire (vbminimized) windowsta [Résolu]

Signaler
Messages postés
31
Date d'inscription
lundi 14 mai 2007
Statut
Membre
Dernière intervention
14 février 2011
 -
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 -
Bonjour
Comment intercepter l'appui sur les outils  'réduire/agrandir' d'une feuille, en VB6, pour y introduire du code?
Existe-t-il l'équivalent d'un QueryUnload ?
gerard_05170
Afficher la suite

6 réponses

Réponse 1 / 6
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 52
Salut,
>[auteur/GERARD05170/1061490.aspx gerard_05170] : si tu estimes que ton problème est résolu, merci d'appuyer sur le bouton réponse accpetée sur le ou les posts qui t'ont aidé à avancer (ce bouton est la pour ca)

@+: Ju£i?n
Pensez: Réponse acceptée
Réponse 2 / 6
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
 37
C'est l'évènement Resize de la form, dedant tu peux tester la propriété WindowsState pour voir l'état de la form.

L'évènement intervien après le redimentionnement. A ma connaissance, il n'y en a pas avant, il n'y a que celui là.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
Réponse 3 / 6
Messages postés
31
Date d'inscription
lundi 14 mai 2007
Statut
Membre
Dernière intervention
14 février 2011
merci, j'essai
gerard_05170
Réponse 4 / 6
Messages postés
31
Date d'inscription
lundi 14 mai 2007
Statut
Membre
Dernière intervention
14 février 2011
cela ne semble pas fonctionner

gerard_05170
Réponse 5 / 6
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
 37
Private Sub Form_Resize()

    If Me.WindowState = vbMinimized Then
        MsgBox "La fenetre a été réduite"
    End If

End Sub

---- Sevyc64  (alias Casy) ---- <hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
Réponse 6 / 6
Messages postés
31
Date d'inscription
lundi 14 mai 2007
Statut
Membre
Dernière intervention
14 février 2011
Merci, ça marche
cordialement

gerard_05170
Répondre Posez votre question