Déplacer un bouton suivant la position de la souris

**AZzjeioafh** · 04/11/2009, 11h59

Bonjour, j'ai VB6 et je voulais savoir comment modifier automatiquement la position d'un bouton par rapport en fonction de la position de la souris, par exemple:
la souris arrive doucement sur le bouton et lorsque elle est sur le bouton, le bouton change de place (en restant toujours dans la form)
ou encore: le bouton garde toujours les memes coordonnées verticales mais les coordonnées horizontales sont les memes que celles de la souris (pour qu'on ai un bouton qui ait toujours les memes coordonnées horizontales que la souris)

Désolé si ce n'est pas précis

Merci

PS: Je suis un débutant, alors svp décrivez bien vos explications,svp, merci

**ucfoutu** · 04/11/2009, 13h03

Bonjourt,

commence par t'intéresser :
- à l'évènement MouseMove
- à la méthode Move

Reviens si tu rencontres encore une difficulté, en nous disant laquelle ...

PS : quant à :

"la souris arrive doucement ..."

Explique ! Elle "arrive" comment ? spontanément ? et à une vitesse définie où ?

**AZzjeioafh** · 04/11/2009, 13h30

Merci, je vais m'informer sur ça et je te donne des nouvelles.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
PS : quant à :
Citation:
"la souris arrive doucement ..."
Explique ! Elle "arrive" comment ? spontanément ? et à une vitesse définie où ?

La souris arrive "a la vitesse de celui qui la controle" elle peut venir vite ou lentement.
C'est a dire qu'elle arrive à la vitesse habituelle (ça dépend a quelle vitesse tu bouges ta souris)

**ucfoutu** · 04/11/2009, 13h35

Ah....

Alors :
elle n'arrive pas "doucement", mais arrive tout simplement (vite, doucement, brutalement ou non) sous l'impulsion de l'utilisateur ....

Bon...
Pour le reste : on attend que tu aies lu ce que sont l'évènement MouseMove et la méthode Move et que tu aies commencé quelque chose avec çà ...

**AZzjeioafh** · 15/11/2009, 17h08

Salut, désolé je bloque a chaque fois sur "comment on fait pour déplacer le bouton" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
        Button1.Location 'C'est la que ca bloque
    End Sub

Donc, comment faut il faire pour que le bouton se déplace vers une position aléatoire ou déja paramétrée ??
avec Button1.location, j'ai déja essayé = 204; 97 (par exemple) mais ça ne fonctionne pas!?!

Peux tu m'aider stp

**ucfoutu** · 15/11/2009, 17h48

Bonjour,,
le code que tu montres est un code VB.Net et non (la présente section) VB6 !
Sous quoi développes-tu donc, finalement ?

**AZzjeioafh** · 15/11/2009, 17h58

Salut, alors moi je suis un débutant et je "développe" (pas trop) Sur VB6 et VB2008
Donc je posais la question pour avec VB6 mais pour le code j'avais essayé avec VB2008

**ucfoutu** · 15/11/2009, 21h52

Envoyé par pierreh51

Salut, alors moi je suis un débutant et je "développe" (pas trop) Sur VB6 et VB2008
Donc je posais la question pour avec VB6 mais pour le code j'avais essayé avec VB2008

Je te fécicite (... bon ...) ...
Et tu n'as bien évidemment reçu aucun message d'erreur ... pourquoi ?
écris donc par exemple ceci dans vb6

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Submachinchouetteetcompagnie_Click(byval onsenmoque)
   Dim toto As string
  toto = "blabla"
End Sub

Et rien ne se passera (ni message d'erreur ni rien ...) puisque ne correspondant à aucun évènement.
Tu t'en serais rendu compte en mettant une simple Msgbox en 1èere ligne de ta sub ..===>> aucun affichage ! garanti !

Un petit rappel, maintenant ...
Voilà ce que je t'ai dit plus haut :

Pour le reste : on attend que tu aies lu ce que sont l'évènement MouseMove et la méthode Move et que tu aies commencé quelque chose avec çà ...

**justgreat** · 23/11/2009, 16h21

Envoyé par pierreh51

Salut, alors moi je suis un débutant et je "développe" (pas trop) Sur VB6 et VB2008
Donc je posais la question pour avec VB6 mais pour le code j'avais essayé avec VB2008

Essayes ça avec VB6, j'espère avoir compris ta question qui n'est pas très claire, et les autres t'ont donné de réponse mais apparement tu as besoin qu'on te le code ... Essayes si c'est ça que tu veux

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
Private Sub Form_Load()
Command1.Left = 150
End Sub
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
 'Command1.Left = position de ton boutton à partir de la gauche
 'Command1.Width = largeur de ton bouton
 'Form1.Width =largeur de ton formulaire
 
'change cette condition selon tes besoins et l'effet visuel que tu souhaite avoir
 If Command1.Left + 150 + Command1.Width < Form1.Width Then
 'si tu veux que le boutton se déplace verticalement, cherche comme on t'a dit comme utiliser la méthode Move
 'change les 150 comme convenu
 Command1.Move (Command1.Left + 150)
 Else
 'initialiser le bouton à la position 150 à partir de gauche
 Command1.Left = 150
 End If
End Sub

ps: je t'ai pas fais un code parfait, c'est juste pour te débloquer, après tu l'adapte comme tu veux