Déplacement d'un contrôle FrameRésolu

Question

Bonjour, J'essaye de déplacer à la souris un Frame posé sur un PictureBox. Après avoir fixé la propriété DragMode du contrôle à Automatic, je tente d'intercepter sa position avec le code suivant: Private Sub FrameAjout_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then FrameAjout.Move FrameAjout.Left + X, FrameAjout.Top + Y If FrameAjout.Left < 0 Then FrameAjout.Left = 0 If FrameAjout.Top < 0 Then FrameAjout.Top = 0 If FrameAjout.Left > Affi.ScaleWidth - FrameAjout.width Then FrameAjout.Left = Affi.ScaleWidth - FrameAjout.width If FrameAjout.Top > Affi.ScaleHeight - FrameAjout.height Then FrameAjout.Top = Affi.ScaleHeight - FrameAjout.height End Sub Tant que le bouton gauche de la souris reste enfoncé, l'enveloppe du Frame se déplace correctement mais dès que je le relâche, le Frame vient se placer n'importe où, voire disparaît! Quelqu'un voit-il la solution? Merci Jacques13

jmfmarques · Accepted Answer

Bonjour,

et comme ceci, en laissant dans son coin la propréité  Dragmode; dont nous n'avons pas besoin (donc = 0)?

Option Explicit
Dim MovTop, MovLft As Integer
Dim DbTop, DbLft As Integer


Private Sub FrameAjout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then   DbTop ScaleY(Y, 1, 3): DbLft ScaleX(X, 1, 3)
  End If
End Sub
Private Sub FrameAjout_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
    MovLft = Int((FrameAjout.Left + ScaleX(X, 1, 3)) - DbLft)
    MovTop = Int((FrameAjout.Top + ScaleY(Y, 1, 3)) - DbTop)
    FrameAjout.Move MovLft, MovTop
  End If
End Sub

cs_jacques13 · Answer

Bonsoir JMFMarques,
Merci pour ta réponse.
Malheureusement, cela ne fonctionne toujours pas: déplacements erratiques!

cs_jacques13 · Answer

Non Non!
Toutes mes excuses, JMFMarques, en mettant le DragMode à 0, ça marche!
Une fois de plus tu m'as sauvé la mise. Encore merci.
Jacques13

jmfmarques · Answer

Tiens....
Chez moi (je viens de l'essayer) ===>>> cela fonctionne toujours ...
Alors ? ===>> je dois avoir un VB meilleur que le tien, donc ...


Tu es bien certain d'avoir laissé aux autre propriété de Drag leurs valeurs par défaut, toi ?

Déplacement d'un contrôle Frame

4 réponses

Votre réponse