Ouverture et fermeture progressive d4une fenetre en diagonale

0/5 (3 avis)

Snippet vu 5 253 fois - Téléchargée 59 fois

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

Ajouter un commentaire Commentaires
Galactus13 Messages postés 335 Date d'inscription lundi 29 septembre 2008 Statut Membre Dernière intervention 16 août 2023 1
5 déc. 2008 à 04:10
Merci pour ton code, c'est justement ce que j'avais besoin ! +10
couriousous
28 juin 2001 à 19:35
ca ressenble a mon code de backclock....
noisy
27 juin 2001 à 17:08
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!
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)