明次 发表于 2009-4-6 12:09

vb 鼠标拖动image

Dim bx, by As Long
Dim Startmove As Boolean

Private Sub image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then bx = X: by = Y: Startmove = True
End Sub

Private Sub image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Startmove Then
Image1.Move Image1.Left + X - bx, Image1.Top + Y - by
End If
End Sub

Private Sub image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Startmove = False
End Sub

明次 发表于 2009-4-6 12:50

沙发没人坐我自己坐
页: [1]
查看完整版本: vb 鼠标拖动image


免责声明：
吾爱破解所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。本站信息来自网络，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑中彻底删除上述内容。如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:Service@52pojie.cn