Uitilser le drag sur plusieurs control en meme temps...
Résolu
Signaler
chicochiri
chicochiri
- Messages postés
- 66
- Date d'inscription
- lundi 19 janvier 2004
- Statut
- Membre
- Dernière intervention
- 29 décembre 2018
chicochiri
- Messages postés
- 66
- Date d'inscription
- lundi 19 janvier 2004
- Statut
- Membre
- Dernière intervention
- 29 décembre 2018
A voir également:
- Uitilser le drag sur plusieurs control en meme temps...
- Drag&drop de controles - Codes sources - Delphi / Pascal (API)
- Drag and drop dans un contrôle listview - Codes sources - Visual Basic / VB.NET (Control)
- Delphi / Pascal : Drag'n drop entre 2 contrôles de même nature - CodeS SourceS - Guide
- Une nouvelle façon de controler ducon: drag + hittest - Codes sources - Flash (ActionScripts)
- Contrôle de saisie javascript formulaire - Guide
5 réponses
Charles Racaud
- Messages postés
- 3172
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
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.
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.
Charles Racaud
- Messages postés
- 3172
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
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.
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.
chicochiri
- Messages postés
- 66
- Date d'inscription
- lundi 19 janvier 2004
- Statut
- Membre
- Dernière intervention
- 29 décembre 2018
oui
chicochiri
- 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 ???
chicochiri
- Messages postés
- 66
- Date d'inscription
- lundi 19 janvier 2004
- Statut
- Membre
- Dernière intervention
- 29 décembre 2018
impeccable...
merci bcp
merci bcp