Bonjour,
Je souhaiterai qu'à l'ouverture de mon formulaire le champs "Texte0" s'élargisse d'une certaine valeur.
Je ne sais pas comment adapter le code ci-dessous qui me permet de déplacer ce champ vers la droite d'une certaine valeur :
Une petite demande supplémentaire : j'ai également constaté que l'animation du contrôle sur chargement du form ne se voit uniquement lorsque l'on passe de l'état du formulaire mode création à aperçu mais lorsque l'on ouvre directement le formulaire sans passé par son son état en mode création j'ai l'impression que l'animation se fait le temps du chargement du form et donc lorsqu'il est complètement ouvert on ne voit pas le champ bouger.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Private Sub Form_Load() Dim lngIndice As Long Dim lngPosition As Long Dim sngDurée As Single lngPosition = Me!Texte0.Left sngDurée = 1 / 20 For lngIndice = 1 To 10 Attente sngDurée Me!Texte0.Left = lngPosition + lngIndice * 567 / 10 Next End Sub Sub Attente(prmsngDurée As Single) Dim sngArrêt As Single sngArrêt = Timer + prmsngDurée Do Until Timer > sngArrêt DoEvents Loop End Sub
Faut-il mettre une temporisation supplémentaire qui laisse le temps au form de se charger et ensuite de laisser le code réaliser l'animation ?
En vous remerciant pour votre aide,
Franck
Partager