vb怎么调用MouseDown

答案:2 悬赏:0 手机版

解决时间 2021-03-04 16:01

提问者网友：自食苦果
2021-03-04 07:44

我想在Form画直线用了 Sub Form_MouseDown ，Sub Form_MouseMove..等sub过程然后可以画了，我想用一个按钮来控制画图（开始时不画图和平常一样，点了下按钮，然后就可以画图，调用了上面的sub）sub间不能嵌入sub，请问vb高手怎么实现sub控制和调用

最佳答案

五星知识达人网友：第四晚心情
2021-03-04 08:48

定义一个全局的变量,DrawBegin,开始时设为False
在Command_Click中写入
DrawBegin=True
再在你的每个Sub中加入判断
if DrawBegin then
' 画线代码
...
End If
在你的MouseUp的最后把DrawBegin设置为False

要是你开始和终止画线都用MouseDow就加一个全局记数常量DownCount
为1时DrawBegin=True;为2时DrawBegin=False再把DownCount设为0

全部回答

1楼网友：逃夭
2021-03-04 09:03

mousepointer属性和mousedown没有关系。前者只是改变指针的形状而已，后者是一个事件。如果你希望mousepointer属性导致执行效果不同，可以这样： private sub form_mousedown(button as integer, shift as integer, x as single, y as single) select case me.mousepointer case 1 msgbox "1" case 2 msgbox "2" end select end sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息