Discussion :

[Silivrion]

Bonjour à tous,
Voilà j'ai un petit problème et je me suis résolu à l'exposer ici...
Il y a un petit moment déjà, j'ai fais des recherches pour savoir comment donner la possibilité à l'utilisateur de pouvoir déplacer des "control".
Sur ce forum, la solution qui revenait le plus souvent était celle du "dragdrop" avec la fonction "move".
Le problème, c'est que je ne trouve pas cette méthode très précise.

A titre d'exemple, quand on travail sur vb et que l'on fait son interface, on peut déplacer très facilement et très précisément les contrôles à l'endroit où l'on souhaite, malheureusement je n'ai pas du tout ce rendu avec la fonction "move".

Avez vous une solution plus performante?

Merci d'avance pour votre aide

[SfJ5Rpw8]

faudrai voir le code que tu utilise avec la fonction Move .. je ne vois pas de raison pour quelle soit moins précise ...

[Silivrion]

Code :

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

1
2
3
Private Sub Form_DragDrop(Source As Control, x As Single, y As Single)
    Source.Move x, y
End Sub

EDIT: je vais affiner ma question, en fait sous VB quand on fait son interface, le déplacement se fait par "cran", j'aimerais bien faire de même pour mon appli...

[jmfmarques]

Tu as mal cherché sur ce forum...
Cherche un peu mieux
J'ai donné très récemment un code à Lucas42
Le voià (20 secondes pour le trouver)
http://www.developpez.net/forums/sho...61&postcount=9

[Silivrion]

merci beaucoup, je suis désolé pourtant j'ai fais l'effort de chercher (comme à chaque fois sinon j'aurais beaucoup plus de messages à mon actif).
Bon et bien je met ce topic résolu.

[jmfmarques]

Je viens de relire mon propre code...
Ce sera mieux d'ajouter ici un Me.Refresh (pour éviter des petites trainées résiduelles quand tu vas trop vite dans le drag)

Code :

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

1
2
3
4
5
6
7
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
    Command1.Move Int((Command1.Left + ScaleX(X, 1, 3)) - x0), Int((Command1.Top + ScaleY(Y, 1, 3)) - Y0)
    Me.Refresh
  End If
  
End Su

[Silivrion]

merci, ça marche niquel .
Je croyais que l'apparition des traces dues aux déplacements était à cause de la lenteur de mon ordinateur.