uitilser le drag sur plusieurs control en meme temps...Résolu

Question

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

Charles Racaud · Accepted Answer

Le mieux, c'est d'indexer les boutons a d&#233;placer.
Met autant de bouton nomm&#233;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&#233;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&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

Charles Racaud · Answer

Bonjour,

En mode &#233;dition, tu clique sur un contr&#244;le, puis sur les autres en appuyant sur 'Ctrl', puis tu en d&#233;place un. Tous ceux que tu auras s&#233;l&#233;ctionner se d&#233;placeront avec.

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

chicochiri · Answer

oui

chicochiri · Answer

mais je fais comment pour programmer &#231;a ???

chicochiri · Answer

impeccable...

merci bcp

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

5 réponses