VB鼠标事件：VisualBasic案例化程序设计

鼠标是图形用户界面系统中方便快捷的操作工具,鼠标常用的操作有移动、单击(左钮单击)、右击(右钮单击)、双击(左钮双击),根据鼠标左右按钮的不同动作过程,系统进行不同的处理。

在VB中使用鼠标可进行不同的操作,系统通过使用鼠标指针或对鼠标按钮事件过程程序进行响应。某些鼠标的属性可以在设置窗体和控件时进行设置,比如鼠标的指针形状,但大多数情况,比如单击、双击和移动以及拖动鼠标需要进行必要的程序代码,以便完成响应的工作。

VB提供了5个事件过程处理鼠标事件:单击(Click)、双击(DblClick)、按下按键(MouseDown)、释放按键(MouseUp)和移动鼠标(MouseMove)。鼠标的单击或者双击过程都包含了按下和释放,因此,在处理这些事件的时候要考虑它们会产生的效果,常用的解决方法是设置标志变量来进行区别。每一个鼠标事件的产生,VB都会自动传递有关参数供事件过程代码处理。鼠标事件过程的格式为

说明:Button为鼠标按钮,指示被按下的是哪个钮,左钮按下为1,右钮按下为2,无按钮按下为0。Shift为转换参数,指示是否有与鼠标同时按下的键盘组合键(如Shift、Ctrl、Alt)。X、Y为鼠标当前位置,指示现在鼠标在屏幕上的位置坐标X和Y,程序可以使用这些参数进行控制处理。

【案例8-10】编程完成判断鼠标哪个按钮按下并用不同的颜色和文字显示。

【案例要求】

利用鼠标的MouseDown事件,通过窗体上的标签显示对应鼠标按钮被按下并用红色显示。

【案例操作】

(1)界面设计

在窗体(Form1)上添加4个标签Label1、Label2、Label3、Label4,然后将其Caption属性都设置为空(即无文字显示),设计界面如图8-13中设计效果所示。

图8-13　编程判断鼠标键被按下并用颜色显示

(2)代码设计

(3)运行程序(www.xing528.com)

按F5键或点击工具栏中的“运行”按钮运行程序,然后分别按鼠标的左右钮,运行结果如图8-13中运行效果所示。

【案例8-11】鼠标按钮和鼠标移动事件操作示例。

【案例要求】

在窗体上将鼠标移动、按下鼠标左钮(MouseDown)和松开左钮(MouseUp)分开处理,结合使用键盘上的按键(Shift)产生不同显示效果。

【案例操作】

(1)界面设计

在窗体(Form1)上添加3个命令按钮(Command1、Command2、Command3),并将按钮的名称分别改名为CmdCls、CmdMOuseMoveEn、CmdMouseMoveDis,然后将命令按钮的Caption属性分别设置为“清除窗体显示”“允许鼠标移动显示”“禁止鼠标移动显示”,设计界面如图8-14中设计效果所示。

图8-14　编程使用鼠标按钮和移动操作

(2)代码设计

(3)运行程序

按F5键或点击工具栏中的“运行”按钮运行程序后,在窗体上鼠标单击,Shift+单击,点击“允许鼠标移动显示”按钮后移动鼠标,运行结果如图8-14中运行效果所示。