[A-03] Faire bouger des éléments dynamiquement dans un formulaire

moilou2 · 10/10/2008, 16h59

Bonjour, je voulais savoir si par le code vba, on pouvais faire bouger les choses progrssivement, un peu comme des animations powerpoint?

Merci

jpcheck · 10/10/2008, 17h02

salut,
chaque control de ton formulaire a des propriétés concernant ses dimensions, son emplacement, son apparence.
Tu peux influer sur ces valeurs.

Exemple :

Code :

 
If Len(Me.MaTextBox.Value)>0 Then
    Me.MyButton.Top = 110
Else
    Me.MyButton.Top = 100
End If

moilou2 · 10/10/2008, 17h29

OK bon ba je vais voir sa alors.

Et si je veux donner une trajectoire à une forme en passant par une multitude de point?

Pa juste entre 2 points.

6ril25 · 10/10/2008, 17h40

Salut,

je ne pense pas que tu puisses faire ça: tu va avoir un temps (ton pas) pour déplacer ton bouton, mais tu ne verras que le résultat, cad son emplacement final. Tu ne le verras pas y aller...

moilou2 · 10/10/2008, 17h46

Ah je ne sais pas moi je pense que sa doit être possible, tout est possible, avec des timer peut être ou je ne sais pas mais je pense que ce n'est pas trop compliqué en plus.

jpcheck · 10/10/2008, 17h56

oui c'est faisable, mais c'est complexe

6ril25 · 10/10/2008, 17h58

Et ben si tu arrives à qqch de propre et fluide (surtout fluide), j'suis preneur

Par contre, je me range à ton idée, avec un timer, tu dois pouvoir le déplacer...

1000 excuses, j'ai pas réfléchi suffisamment

Pierre Fauconnier · 10/10/2008, 17h59

Salut.

Voici un code dont tu pourras t'inspirer. Il y a d'autre techniques (meilleures) pour temporiser...

Code :

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim j As Long
    
    For i = 1 To 200
        TextBox1.Left = i
        TextBox1.Top = i
        Me.Repaint
        For j = 1 To 100000
        Next j
    Next i
    
End Sub

helas · 10/10/2008, 19h04

on peut simplement faire se déplacer un objet.
Dans le module du formulaire taper ce type de code

Code :

 
Dim sens As Long
 
Private Sub Form_Load()     'a l'ouverture du formulaire le sens est à droite
 sens = 1
End Sub
 
Private Sub Form_Timer()
 min = 100: max = 1000 : deplacement = 100
 If (Me!NomObjet.Left + 10 > max) Or (Me!NomObjet.Left - 10 < min) Then sens = -sens
 Me!NomObjet.Left = Me!NomObjet.Left + (deplacement * sens)
End Sub

l'objet à pour nom NomObjet (ou autre)

pour arreter, il suffit du code suivant

Code :

 
Me.TimerInterval = 0

pour démarrer

Code :

 
Me.TimerInterval = 100         'en ms : 10 fois par secondes

10/10/2008, 16h59	#1 (permalink)
moilou2 Débutant(e) Date d'inscription: décembre 2007 Messages: 988	[A-03] Faire bouger des éléments dynamiquement dans un formulaire Bonjour, je voulais savoir si par le code vba, on pouvais faire bouger les choses progrssivement, un peu comme des animations powerpoint? Merci

10/10/2008, 17h02	#2 (permalink)
jpcheck Expert Confirmé Sénior Date d'inscription: juillet 2007 Localisation: RP Âge: 24 Messages: 2 925	salut, chaque control de ton formulaire a des propriétés concernant ses dimensions, son emplacement, son apparence. Tu peux influer sur ces valeurs. Exemple : Code : If Len(Me.MaTextBox.Value)>0 Then Me.MyButton.Top = 110 Else Me.MyButton.Top = 100 End If __________________ Piou-Piou Poussin Developpeur Pas de question technique par MP, je ne réponds pas Mon perso ? Une vraie brute

10/10/2008, 17h40	#4 (permalink)
6ril25 Membre éprouvé Date d'inscription: septembre 2007 Localisation: Comtois, rends-toi, Neni ma Foi!! Âge: 29 Messages: 433	Salut, je ne pense pas que tu puisses faire ça: tu va avoir un temps (ton pas) pour déplacer ton bouton, mais tu ne verras que le résultat, cad son emplacement final. Tu ne le verras pas y aller... __________________ 6ril25 "Par trois méthodes nous pouvons apprendre la sagesse : d'abord, par la réflexion qui est la plus noble; en second lieu, par l'imitation, qui est la plus facile; et troisième, par l'expérience, qui est la plus amère." Confucius

10/10/2008, 17h56	#6 (permalink)
jpcheck Expert Confirmé Sénior Date d'inscription: juillet 2007 Localisation: RP Âge: 24 Messages: 2 925	oui c'est faisable, mais c'est complexe __________________ Piou-Piou Poussin Developpeur Pas de question technique par MP, je ne réponds pas Mon perso ? Une vraie brute

10/10/2008, 17h58	#7 (permalink)
6ril25 Membre éprouvé Date d'inscription: septembre 2007 Localisation: Comtois, rends-toi, Neni ma Foi!! Âge: 29 Messages: 433	Et ben si tu arrives à qqch de propre et fluide (surtout fluide), j'suis preneur Par contre, je me range à ton idée, avec un timer, tu dois pouvoir le déplacer... 1000 excuses, j'ai pas réfléchi suffisamment __________________ 6ril25 "Par trois méthodes nous pouvons apprendre la sagesse : d'abord, par la réflexion qui est la plus noble; en second lieu, par l'imitation, qui est la plus facile; et troisième, par l'expérience, qui est la plus amère." Confucius

10/10/2008, 17h29	#3 (permalink)
moilou2 Débutant(e) Date d'inscription: décembre 2007 Messages: 988	OK bon ba je vais voir sa alors. Et si je veux donner une trajectoire à une forme en passant par une multitude de point? Pa juste entre 2 points.

10/10/2008, 17h46	#5 (permalink)
moilou2 Débutant(e) Date d'inscription: décembre 2007 Messages: 988	Ah je ne sais pas moi je pense que sa doit être possible, tout est possible, avec des timer peut être ou je ne sais pas mais je pense que ce n'est pas trop compliqué en plus.

10/10/2008, 17h59	#8 (permalink)
Pierre Fauconnier Rédacteur/Modérateur Date d'inscription: novembre 2003 Localisation: Theux (Belgique) Âge: 41 Messages: 3 112	Salut. Voici un code dont tu pourras t'inspirer. Il y a d'autre techniques (meilleures) pour temporiser... Code : Private Sub CommandButton1_Click() Dim i As Integer Dim j As Long For i = 1 To 200 TextBox1.Left = i TextBox1.Top = i Me.Repaint For j = 1 To 100000 Next j Next i End Sub __________________ Pierre Fauconnier -------------------- "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire) Pensez au tag Mon blog sur DVP - Mes petits papiers sur DVP Je ne peux en aucun cas être tenu pour responsable des conséquences de l'utilisation des codes que je fournis dans le cadre des réponses apportées sur les forums, même s'il s'avérait que ces codes sont erronés ou amènent à des dysfonctionnements, de manière manifeste ou non.

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Access > VBA Access
[A-03] Faire bouger des éléments dynamiquement dans un formulaire

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email