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
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.