Ouverture et fermeture progressive d4une fenetre en diagonale

Commenter

Contenu du snippet

Ce code sert à fermer ou à ouvrir progressivement une fenetre en diagonale

sur form1 mettre deux bouton en haut a gauche
- command1
- command2

Source / Exemple : 


Option Explicit
Dim i       'declaration de la variable i pour la boucle

Private Sub Command1_Click()

    For i = 1 To 10000      'debut de boucle
        Form1.Width = Form1.Width - 5       'diminusion de la largeur de la fenetre ici -5
        Form1.Height = Form1.Height - 5     'diminusion de la longeur de la fenetre ici -5
            If Form1.Height = "1000" Then       'je teste si la longeur est = a 1000 alors
                Exit Sub        'je quitte la procedure
            End If      'fin de la condition
    Next i      'fin de la boucle
End Sub

Private Sub Command2_Click()

    For i = 1 To 10000      'debut de boucle
        Form1.Width = Form1.Width + 5       'agrandissement de la largeur de la fenetre ici +5
        Form1.Height = Form1.Height + 5     'agrandissement de la longeur de la fenetre ici +5
            If Form1.Height = "8500" Then       'je teste si la longueur est = a 8500
                Exit Sub        'je quite la procedure
            End If      ' fin de la condition
    Next i      'fin de la boucle
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Feuxx)