www.bt365.com您现在的位置:主页 > www.bt365.com >

VB图像控制

2019-04-19 11:15365bet足球联赛

展开全部
DimxpAsIntegerDimypAsIntegerDimxzAsIntegerDimyxAsIntegerPrivateSubImage1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Button = 1xp = Xyp = YImage1。
MousePointer = 7EndSubPrivateSubImage1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Ifxp0Andyp0ThenImage1。
左=图像1
左图+(X-xp)
Up =图像1
On +(Y?Yp)EndIfxz =图片1。
Leftyz = Image1
TopEndSubPrivateSubImage1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Button = 1xp = yp = 0 Image1。
MousePointer = 0EndSub