Uitilser le drag sur plusieurs control en meme temps...

Résolu
Signaler
Messages postés
66
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
29 décembre 2018
-
Messages postés
66
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
29 décembre 2018
-
bonjour

je travaille actuellemement sur un mode edition dans mon application.

je voudrai pouvoir selectionner plusieur commanButton en meme temps et les deplacer.
Pour cela j'utilise la propriete commandButton.drag, mais je n'arrive pas a en selectionner plusieurs en meme temps......je sait pas si c'est clair???

merci

5 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
Le mieux, c'est d'indexer les boutons a déplacer.
Met autant de bouton nommés 'Cmd1' que tu veut avec n'importe quel index sur une form.
Avec ce code, tu pourras cliquer sur n'importe quel bouton, tous se déplaceronts

Option Explicit
Private PtClickX As Single, PtClickY As Single
Private Sub Cmd1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
PtClickX = X
PtClickY = Y
End If
End Sub
Private Sub Cmd1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Dim Cmd As CommandButton
For Each Cmd In Cmd1
Cmd.Move Cmd.Left + (X - PtClickX), Cmd.Top + (Y - PtClickY)
Next
End If
End Sub

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
Bonjour,

En mode édition, tu clique sur un contrôle, puis sur les autres en appuyant sur 'Ctrl', puis tu en déplace un. Tous ceux que tu auras séléctionner se déplaceront avec.

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
Messages postés
66
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
29 décembre 2018

oui
Messages postés
66
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
29 décembre 2018

mais je fais comment pour programmer ça ???
Messages postés
66
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
29 décembre 2018

impeccable...

merci bcp