能否托动一个控件如image如何实现？谢谢
谢谢
问题点数：50、回复次数：6Top
1 楼BlackIceCN（星际浪子）回复于 2001-11-22 23:23:53 得分 0
...Top
2 楼leorb（◥银狐◣）回复于 2001-11-22 23:27:15 得分 0
托动一个控件。。。?Top
3 楼BlackIceCN（星际浪子）回复于 2001-11-22 23:33:56 得分 0
可能不该这么说吧
比如一个image
启动程序后
可以用鼠标托动它的位置Top
4 楼BlackIceCN（星际浪子）回复于 2001-11-22 23:35:12 得分 0
也就是image.left=mouse相对于form的x
image.top=mouse相对于form的y
Top
5 楼leorb（◥银狐◣）回复于 2001-11-23 00:07:11 得分 50
Option Explicit
Dim pX, pY As Single
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
pX = X
pY = Y
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button > 0 Then Image1.Move Image1.Left - pX + X, Image1.Top - pY + Y
End Sub
Top
6 楼BlackIceCN（星际浪子）回复于 2001-11-23 09:35:48 得分 0
谢谢Top
