Déplacement d'un label sur un userform

5 réponses

Michel

07/05/2005 à 16:35

Bonjour
J'essaie de faire déplacer un label sur un userform
C'est à dire au lancement de celui-ci le label se déplacement de façon
aléatoire sur le userform toutes les demi-secondes
Savez-vous où je pourrai trouver un exemple
Merci beaucoup
Michel

5 réponses

07/05/2005 à 18:52

page de code de userform1
Private Sub UserForm_Activate()
moveit
End Sub

dans un module :

Sub démarre()
UserForm1.Show
End Sub

Sub moveit()
Randomize
aleax = Int((UserForm1.Width - 20) * Rnd)
aleay = 10 + Int((UserForm1.Height - 10) * Rnd)
UserForm1.Label1.Top = aleay
UserForm1.Label1.Left = aleax
Application.OnTime Now + 1 / 3600 / 24, "moveit"
End Sub

(toutes les secondes, ça bouge, mais pas très discipliné, le label sort
parfois du userform...)

"Michel" a écrit dans le message de news:

Bonjour
J'essaie de faire déplacer un label sur un userform
C'est à dire au lancement de celui-ci le label se déplacement de façon
aléatoire sur le userform toutes les demi-secondes
Savez-vous où je pourrai trouver un exemple
Merci beaucoup
Michel

Michel

07/05/2005 à 19:21

Bravo Jac c'est vraiment très bien
me reste à la faire déplacer automatiquement ;-)
Merci beaucoup
Michel

"" a écrit dans le message de news:
427cf239$0$20526$

page de code de userform1
Private Sub UserForm_Activate()
moveit
End Sub

dans un module :

Sub démarre()
UserForm1.Show
End Sub

Sub moveit()
Randomize
aleax = Int((UserForm1.Width - 20) * Rnd)
aleay = 10 + Int((UserForm1.Height - 10) * Rnd)
UserForm1.Label1.Top = aleay
UserForm1.Label1.Left = aleax
Application.OnTime Now + 1 / 3600 / 24, "moveit"
End Sub

(toutes les secondes, ça bouge, mais pas très discipliné, le label sort
parfois du userform...)

"Michel" a écrit dans le message de news:

Bonjour
J'essaie de faire déplacer un label sur un userform
C'est à dire au lancement de celui-ci le label se déplacement de façon
aléatoire sur le userform toutes les demi-secondes
Savez-vous où je pourrai trouver un exemple
Merci beaucoup
Michel

Michel

08/05/2005 à 10:53

Bonjour
Euh...
Le label ne se déplace toujours pas !
Que faire ?
Merci
Michel

"" a écrit dans le message de news:
427cf239$0$20526$

page de code de userform1
Private Sub UserForm_Activate()
moveit
End Sub

dans un module :

Sub démarre()
UserForm1.Show
End Sub

Sub moveit()
Randomize
aleax = Int((UserForm1.Width - 20) * Rnd)
aleay = 10 + Int((UserForm1.Height - 10) * Rnd)
UserForm1.Label1.Top = aleay
UserForm1.Label1.Left = aleax
Application.OnTime Now + 1 / 3600 / 24, "moveit"
End Sub

(toutes les secondes, ça bouge, mais pas très discipliné, le label sort
parfois du userform...)

"Michel" a écrit dans le message de news:

Bonjour
J'essaie de faire déplacer un label sur un userform
C'est à dire au lancement de celui-ci le label se déplacement de façon
aléatoire sur le userform toutes les demi-secondes
Savez-vous où je pourrai trouver un exemple
Merci beaucoup
Michel

Michel Pierron

08/05/2005 à 12:49

Bonjour Michel;
Dans ton module Userform:
Private x!, y!, OK As Boolean

Private Sub CommandButton1_Click()
OK = False
End Sub

Private Sub UserForm_Activate()
OK = True
LabelMove
End Sub

Private Sub UserForm_Initialize()
x = Me.InsideWidth - Me.Label1.Width
y = Me.InsideHeight - Me.Label1.Height
Randomize
End Sub

Private Sub LabelMove()
Dim S As Single
Do While OK
S = Timer + 1 / 2
While Timer < S: DoEvents: Wend
Me.Label1.Move x * Rnd(1), y * Rnd(1)
Me.Repaint
Loop
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
OK = False
End Sub

MP

"Michel" a écrit dans le message de news:
#

Bonjour
Euh...
Le label ne se déplace toujours pas !
Que faire ?
Merci
Michel

"" a écrit dans le message de news:
427cf239$0$20526$
page de code de userform1
Private Sub UserForm_Activate()
moveit
End Sub

dans un module :

Sub démarre()
UserForm1.Show
End Sub

Sub moveit()
Randomize
aleax = Int((UserForm1.Width - 20) * Rnd)
aleay = 10 + Int((UserForm1.Height - 10) * Rnd)
UserForm1.Label1.Top = aleay
UserForm1.Label1.Left = aleax
Application.OnTime Now + 1 / 3600 / 24, "moveit"
End Sub

(toutes les secondes, ça bouge, mais pas très discipliné, le label sort
parfois du userform...)

"Michel" a écrit dans le message de news:

Bonjour
J'essaie de faire déplacer un label sur un userform
C'est à dire au lancement de celui-ci le label se déplacement de façon
aléatoire sur le userform toutes les demi-secondes
Savez-vous où je pourrai trouver un exemple
Merci beaucoup
Michel

08/05/2005 à 13:14

chez moi, ça marche,
tu as bien mis le Private Sub UserForm_Activate() dans le code du userform
et les deux autres sub dans un module séparé ?
ton label s'appelle bien label1 et ton userform userform1 ?
tu lances bien le truc en lancant le sub demarre ?
si tu réponds oui à tout, alors, je ne vois pas !

"Michel" a écrit dans le message de news:
#

Bonjour
Euh...
Le label ne se déplace toujours pas !
Que faire ?
Merci
Michel

"" a écrit dans le message de news:
427cf239$0$20526$
page de code de userform1
Private Sub UserForm_Activate()
moveit
End Sub

dans un module :

Sub démarre()
UserForm1.Show
End Sub

Sub moveit()
Randomize
aleax = Int((UserForm1.Width - 20) * Rnd)
aleay = 10 + Int((UserForm1.Height - 10) * Rnd)
UserForm1.Label1.Top = aleay
UserForm1.Label1.Left = aleax
Application.OnTime Now + 1 / 3600 / 24, "moveit"
End Sub

(toutes les secondes, ça bouge, mais pas très discipliné, le label sort
parfois du userform...)

"Michel" a écrit dans le message de news:

Bonjour
J'essaie de faire déplacer un label sur un userform
C'est à dire au lancement de celui-ci le label se déplacement de façon
aléatoire sur le userform toutes les demi-secondes
Savez-vous où je pourrai trouver un exemple
Merci beaucoup
Michel

Déplacement d'un label sur un userform

5 réponses

Veuillez sélectionner un problème