Ouverture et fermeture progressive d4une fenetre en diagonale

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 767 fois - Téléchargée 57 fois

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

Ajouter un commentaire

Commentaires

Bien le code, mais tu pouvais faire beaucoup plus simple:
while me.height < 3000 and me.width < 5600
me.height = me.height + 5
me.width = me.width + 5
wend
C plus simple et je crois que ça va un peu plus vite (ptête qu'une impression....)
En tout cas, ça m'a aidé ton code!
ca ressenble a mon code de backclock....
Galactus13
Messages postés
326
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
27 juillet 2019
1 -
Merci pour ton code, c'est justement ce que j'avais besoin ! +10

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.