Déplacer une image avec la souris
S
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
S
Pas une petite idée ?
L
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