Déplacer une image avec la souris

Bonjour ,

dans le fichier ci-joint , un userform , une frame, un contrôle image , pour déplacer l'image j'utilise un scrollbar , serait-il possible de déplacer l'image avec la souris ?

merci de votre expertise

Pas une petite idée ?

Bonjour

J'arrive à déplacer l'image avec la souris (cliquer/déplacer) mais je n'arrive pas à lier les déplacement des scrollbars avec les déplacements de l'image.

Voici le code car le fichier zip est encore trop gros :

Public LgImag As Integer
Public HtImag As Integer
Public XImag As Integer
Public Yimag As Integer

Public LargFram As Integer
Public HautFram As Integer
Public XFram As Integer
Public YFram As Integer

Public XDep As Integer
Public YDep As Integer
Public XArr As Integer
Public YArr As Integer

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    XDep = X
    YDep = Y
End Sub

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    'Application.Cursor = xlDefault ' xlNorthwestArrow
    XArr = X
    YArr = Y
End Sub
Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    DeplaX = XArr - XDep
    DeplaY = YArr - YDep

    XImag = XImag + DeplaX
    If XImag > XFram - 48 Then XImag = XFram - 48
    If XImag + LgImag < XFram + LargFram Then XImag = XFram + LargFram - LgImag
    Image1.Left = XImag

    Yimag = Yimag + DeplaY
    If Yimag > YFram - 30 Then Yimag = YFram - 30
    If Yimag + HtImag < YFram + HautFram Then Yimag = YFram + HautFram - HtImag
    Image1.Top = Yimag

End Sub

Private Sub UserForm_Initialize()

    Call CommandButton1_Click
    'Image1.AutoSize = True
    'Image1.Picture = ImageList1.ListImages(1).Picture

    LgImag = Image1.Width
    HtImag = Image1.Height
    XImag = Image1.Left
    Yimag = Image1.Top

    XFram = Frame1.Left
    YFram = Frame1.Top
    LargFram = Frame1.Width
    HautFram = Frame1.Height

    XImag = XImag - (LgImag / 2) '  XFram - (LargFram / 2)
    Yimag = Yimag - (HtImag / 2) ' YFram - (HautFram / 2)
    Image1.Left = XImag
    Image1.Top = Yimag

End Sub

Private Sub CommandButton1_Click()
    Image1.AutoSize = True
    Image1.Picture = ImageList1.ListImages(1).Picture

    With Me.Frame1
        .ScrollBars = fmScrollBarsBoth
        .ScrollHeight = Image1.Height
        .ScrollWidth = Image1.Width
    End With
End Sub

A plus

Rechercher des sujets similaires à "deplacer image souris"