mousedown 按下鼠标@H_301_13@ mouseup 放开鼠标@H_301_13@ mousemove 移动鼠标光标@H_301_13@ click 单击@H_301_13@ dblclick 双击@H_301_13@
@H_301_13@
@H_301_13@
1. Click事件与DblClick事件
@H_301_13@
@H_301_13@
双击窗体打开代码窗口，在事件选择框中选择Click、DblClick，则Click事件过程的框架就会出现在代码编辑区中。@H_301_13@ 窗体的Click事件过程的形式：@H_301_13@ Private Sub Form_Click（）@H_301_13@ End Sub@H_301_13@ 窗体的DblClick事件过程的形式：@H_301_13@ Private Sub Formes DblClick（）@H_301_13@ End Sub@H_301_13@ 在该事件过程中添加一段代码，运行程序时，当使用鼠标单击、双击窗体时，则该段代码就会被执行。@H_301_13@ 注意：双击鼠标会同时触发Click事件与Db1Click事件，即在程序运行时，当用户双击窗体时，则Click事件过程与Db1Click事件过程都将被执行。@H_301_13@
@H_301_13@
2. MouseDown事件与MouseUp事件
@H_301_13@
@H_301_13@
事件过程的形式分别如下：@H_301_13@ Private Sub Form_MouseDown(Button As Integer,Shift As Integer,x As Single,Y As Single)@H_301_13@ End Sub@H_301_13@ Private Sub Form_MouseUp(Button As Integer,shift As Integer,X As Single,255)">以上都含有四个参数，其中：@H_301_13@ Button，用来判断用户按下的是鼠标的哪一个键，可取1、2、4三个值，分别代表左键、右键和中间键。@H_301_13@ Shift， 用来判断是否开启Shift,Ctrl或Alt键构成组合状态，可取0-7任意整数。@H_301_13@ X、Y， 这两个值对应于当前鼠标的位置，采用ScaleMode属性指定的位置。@H_301_13@ @H_301_13@ 双击窗体→选择MouseDown事件：@H_301_13@ @H_301_13@ 输入响应代码：@H_301_13@ If Button=1 Then Print"鼠标左键被按下"@H_301_13@ If Button=2 Then Print"鼠标右键被按下"@H_301_13@ @H_301_13@ @H_301_13@ Print方法是窗体的一个很重要的方法，在很多实例中都使用到了该方法。
@H_301_13@
@H_301_13@
实例3.判断Shift,Ctrl或Alt键是否开启@H_301_13@ 双击窗体→选择MouseDown事件→输入响应代码：@H_301_13@ If Shift=1 And Button=1 Then Print"同时按下Shift和左键"@H_301_13@ If Shift=2 And Button=2 Then Print"同时按下Ctrl和右键"@H_301_13@ If Shift=4 And Button=1 Then Print"同时按下Alt和左键"@H_301_13@ If Shift=3 And Button=2 Then Print"同时按下Ctrl、Shift和右键"@H_301_13@ If Shift=5 And Button=1 Then Print"同时按下Shift、Alt和左键"@H_301_13@ If Shift=6 And Button=2 Then Print"同时按下Alt、Ctrl和右键"@H_301_13@ If Shift=7 And Button=1 Then Print"同时按下Shift、Ctrl、Alt和左键"@H_301_13@
@H_301_13@
@H_301_13@
3. MouseMove事件
@H_301_13@
@H_301_13@
@H_301_13@
窗体的MouseMove事件过程的形式：@H_301_13@ Private Sub Form_MouseMove（Button As Integer,Y As Single）@H_301_13@ 参数的含义及其用法与上面完全相同。
