VB怎么触发dragdrop事件，难道不是拖动再释放吗？这个代码不行的啊
PrivateSubForm_dragdrop(aAsControl,bAsSingle,cAsSingle)MsgBox"已经拖动窗体"EndSub...
Private Sub Form_dragdrop(a As Control, b As Single, c As Single)
MsgBox "已经拖动窗体"
End Sub 展开
MsgBox "已经拖动窗体"
End Sub 展开
1个回答
展开全部
如果要控件能够拖动，必须修改控件的DropMode模式为“1 - Automatic”。
一定注意，拖放操作的是控件，而响应事件的是，具有了DragDrop事件的控件或者窗体。你可以在窗体上增加一个文本框，然后增加一个文本框的DragDrop事件进行测试。
Private Sub Text1_DragDrop(Source As Control, X As Single, Y As Single)
MsgBox "有控件在我上面拖放而过……"
End Sub
1、你在窗体上加入一个按钮Command1
2、把Command1的DropMode属性修改为“1 - Automatic”。
3、运行窗体，然后拖动Command1，释放鼠标之后弹出“已经拖动窗体”
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
