VB语句高手麻烦解答下 谢谢

来源:百度知道 编辑:UC知道 时间:2024/06/24 11:46:28
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub 这段什么意思~

像这种语句,可以用百度搜索的

用鼠标往Frame1中拖动一个可以拖动的控件时,松开鼠标后,触发DragDrop事件。

source是正在往框架Frame1中拖动的控件,比如是Label1、Command1(它们的DragMode属性要设置成1)。
X,Y是鼠标指针的即时位置,不过是Frame1中相对的一个坐标系统。

你可以试试下边的代码,看看会发生什么哦(前提是控件DragMode属性要设置为1):
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
Print Source.Name
Print X, Y
End Sub