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 :

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