button 和shift 在vb中的作用

如题所述

vbRightButton是VB定义的一个常量,它的值等于2,也就是说,上面那句If判断永远是真,所以只要有鼠标单击,就会执行if块中的弹出操作.

把常量换成字面量,你就明白了:
If Button = 2 Or vbRightButton Then

相当于:
If Button = 2 Or 2 Then

所以应该去掉vbRightButton,才能达到预期的效果.当然为了代码好理解,可以使用这个常量:
If Button = vbRightButton Then

这样就是表示,当Button等于右键单击时操作If中的代码.
温馨提示:内容为网友见解,仅供参考
无其他回答

VB中MoveDown(5,6,1)中的三个数字分别代表什么?
shift 一个整数,该整数相应于 SHIFT,CTRL,和 ALT 键的状态。某键被按下使得一个二进制位被设置。shift 参数是具有相应于 SHIFT 键(位 0),CTRL 键(位 1),以及 ALT 键(位 2)最少二进制位的一个位字段。这些位的值分别等于 1,2,和 4。shift 参数指示这些键的状态。这些位中可能有...

vb mousedown事件中shift数值代表
if shift =6 and button = 1或2 1代表鼠标左键 2代表鼠标右键 then shift的值可以这样理解 Shift键=1 Ctrl键=2 Alt键=4 所以 shift+ctrl就=3 alt+ctrl就=6 shift+alt就=5 shift=6 就代表需要同时按下alt+ctrl

VB里的mousemove事件举例
VB(Visual Basic)中的MouseMove事件是一个在用户移动鼠标指针时触发的事件。它允许开发者编写代码来处理鼠标移动事件,例如更新用户界面元素或执行其他与鼠标位置相关的操作。在VB中,MouseMove事件通常与图形用户界面(GUI)元素(如窗体、按钮、文本框等)相关联。当用户在这些元素上移动鼠标时,MouseMove事...

VB识别鼠标左右键
左键按下为vbRightButton,滚轮按下为4知道这个就好实现你所说的功能了你在Mousedown事件中添加下面代码:if button = vbRightButton thenmsgbox "按下右键"elseif button = vbLeftButton thenmsgbox "按下左键"判断左右键同时放开代码如下:Option Explicit ...

vb 里 Button = 1的意思
Button=1 左键 Button=2 右键 Private Sub PicBoard_Mouse(Button As Interger………这里就有Button啊……Shift是用来指示Ctrl Shift Alt 等按键有哪些被按下用的 Shift键 1 Ctrl键 2 Alt键 4 如果Shift=1的话,就说明只按下了Shift键 如果Shift=2的话,就说明只按下了Ctrl键 如果Shift=3...

vb MouseDown 什么意思
下面例子可以在窗口打印鼠标状态 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Print Button, Shift Print X, Y End Sub MouseMove、MouseUp 参数与MouseDown相同,只不过对应事件不一致,MouseMove是鼠标移动事件,MouseUp是鼠标按键释放事件 ...

vb mouseup括号里的是什么四个是什么意思
MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)鼠标按下按键事件,button指的是鼠标按键值1,2,4为三键鼠标的按键,对应左键、右键、中间键;shift指的是shift按键是否按下按下为1,没按下为0,x,y是鼠标指针对应当前对象的坐标值。

vb中如何响应鼠标右击事件
Select Case Button Case 1 Label1.Caption = " 左"Case 2 Label1.Caption = " 右"Case 4 Label1.Caption = " 中"End Select End Sub button 返回一个整数,用来标识该事件的产生是按下 ( MouseDown ) 或者释放 ( MouseUp ) 按钮引起的。button 参数是具有相应于左按钮(位 0),右按钮(...

vb的中按下和松开鼠标右键的事件是什么
'如下,按下事件中,如果Button参数值为vbLeftButton Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = vbLeftButton Then MsgBox "按下鼠标左键"ElseIf Button = vbRightButton Then MsgBox "按下鼠标右键"End If End Sub ...

vb中单击命令按钮触发哪些事件
触发downclick事件;单击向上箭头时,触发upclick事件.2.键盘事件keypress:单击某一键时产生的事件.通常对获取焦点的对象,当按下键盘键并放开时触发keypress事件.参数:键ASCⅡ码,shiftctrlalt状态其中,shiftctrlalt状态为三键值的和.shift值为1,ctrl值为2,alt值为43.改变对象内容事件interactivechange:当用...

相似回答