picturebox图片拖动

PrivateSubForm_Load()SubForm_Load()

Image1.Picture=LoadPicture(Me.ImgPath)

FitFormImage1
Image1.Stretch=True
EndSub


PrivateSubForm_Resize()SubForm_Resize()
CallCenterImage(Image1)
EndSub

PrivateSubImage1_MouseDown()SubImage1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
gX=X
gY=Y
EndSub


PrivateSubImage1_MouseMove()SubImage1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfNotButton=vbLeftButtonThenExitSub
DimdxAsLong,dyAsLong,axAsLong,ayAsLong,tAsLong,lAsLong,ttAsLong,llAsLong
WithImage1
dy=Y-gY
dx=X-gX
ll=.Left
tt=.Top
l=Abs(ll)
t=Abs(tt)
ax=(.Width-l-Frame1.Width)
ay=(.Height-t-Frame1.Height)
Ifll>0Then
dx=0
Else
Ifdx<0Then
IfAbs(dx)>axThendx=-ax
Else
Ifdx>lThendx=l
EndIf
EndIf
Iftt>0Then
dy=0
Else
Ifdy<0Then
IfAbs(dy)>ayThendy=-ay
Else
Ifdy>tThendy=t
EndIf
EndIf
.Movell+dx,tt+dy
EndWith
EndSub


PrivateSubCenterImage()SubCenterImage(destAsImage)
dest.Move0,0
EndSub


PrivateSubFitForm()SubFitForm(destAsImage)
dest.Width=dest.Width+Width-ScaleWidth
dest.Height=dest.Height+Height-ScaleHeight
dest.Move(Form1.Width-Width)/2,(Form1.Height-Height)/2
EndSub