在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呢????????? 展开
到底有什么区别啊?
为什么有的时候给命令按钮编了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呢????????? 展开
4个回答
展开全部
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,必须是点击和放松的位置都在标签上才会触发事件
当设置在按下鼠标状态下,移动鼠标才可以运行的事件,就可以设置两个状态:
定义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,必须是点击和放松的位置都在标签上才会触发事件
展开全部
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
先发生down,然后up,这二个动作完成就发生click动作
你可以在窗口上添加一个标签控件Label2将
Private Sub Form_Click()
Label1.Caption = "click"
End Sub
改成
Private Sub Form_Click()
Label2.Caption = "click"
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个过程变化太快了
你把Label1.Caption =全部替换为msgbox,试试
你把Label1.Caption =全部替换为msgbox,试试
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
同意一楼
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询