在VB6.0企业版中,对于mousemove、mouseup、mousedown、click 到底有什么区别啊?窗体还有命令按钮!!!

在VB6.0企业版中,对于mousemove、mouseup、mousedown、click到底有什么区别啊?为什么有的时候给命令按钮编了click却只能执行到Mouse... 在VB6.0企业版中,对于mousemove、mouseup、mousedown、click
到底有什么区别啊?
为什么有的时候给命令按钮编了click 却只能执行到MouseUp啊?
而按下enter键却能执行click
Private Sub Command1_Click()
Label1.Caption = "command1 click"
End Sub

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "command1 mousedown"
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "command1 mousemove"
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "command1 mouseup"
End Sub

Private Sub Command2_Click()
Label1.Caption = "command2 click"
End Sub

Private Sub Form_Click()
Label1.Caption = "click"
End Sub

Private Sub Form_DblClick()
Cls
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "mousedown"
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "mouseup"
End Sub

当我按下窗体显示 MouseDown、松开显示click,为什么没有MouseUp呢?
同时设置了mouseup、click为什么执行mouseup而不执行click呢?????????
展开
 我来答
职搬业砖
推荐于2016-11-22 · TA获得超过123个赞
知道小有建树答主
回答量:117
采纳率:0%
帮助的人:110万
展开全部
4个单次意思是“:移动鼠标(MouseMove),按下鼠标(mousedown),放松鼠标(MouseUp),点击鼠标(click),只要按下鼠标(不管是否松手),就会激发MouseDown事件,放松鼠标时(只是放松时),激活MouseUp事件,click要满足按下和松开两个条件。只要移动鼠标,就可以激发MouseMove事件,不管此时鼠标被按住或放松状态
当设置在按下鼠标状态下,移动鼠标才可以运行的事件,就可以设置两个状态:
定义m为状态 平时m默认为0(放松状态下)
MouseDown:m=1
mousemove:if m=0 then exit sub(如果m=0,就退出本次事件)
if m=1 then >>>>>.(如果m=1,就执行事件.....)
mouseup:m=0
一般情况下,click可以处理大多数事件,但是对于上述事件和对于鼠标触发有先后顺序区别的就不行了,mousedown事件,反应快,mouseup和click反应同步
比如一个标签,点击时,马上触发mousedown,不管放松的位置,放松时,马上触发mouseup,不管点击的位置,但是对于click,必须是点击和放松的位置都在标签上才会触发事件
百度网友95cc616
2012-09-19 · TA获得超过251个赞
知道小有建树答主
回答量:448
采纳率:100%
帮助的人:274万
展开全部
click动作=down+up
先发生down,然后up,这二个动作完成就发生click动作
你可以在窗口上添加一个标签控件Label2将

Private Sub Form_Click()
Label1.Caption = "click"
End Sub
改成
Private Sub Form_Click()
Label2.Caption = "click"
End Sub
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
沙慧月03
2012-09-19 · TA获得超过2157个赞
知道大有可为答主
回答量:2717
采纳率:100%
帮助的人:3630万
展开全部
这个过程变化太快了
你把Label1.Caption =全部替换为msgbox,试试
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友4417b6452
2012-09-19 · 超过21用户采纳过TA的回答
知道答主
回答量:125
采纳率:0%
帮助的人:73.3万
展开全部
同意一楼
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式