chicochiri
Messages postés66Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention29 décembre 2018
-
20 févr. 2006 à 12:10
chicochiri
Messages postés66Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention29 décembre 2018
-
20 févr. 2006 à 13:23
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
A voir également:
Uitilser le drag sur plusieurs control en meme temps...
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.
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.