VisualBasic 程序设计 vb8教程.pptVIP

和按钮参数Button一样，转换参数Shift也是一个整数值，并用其低3位表示Shift、Ctrl和Alt键的状态，某键被按下使得一个二进制为被设置。 …… Alt键 Ctrl键 Shift键 Shift 参数 ?转换键（shift） 具体讲述： Shift参数反映了当按下指定的鼠标键时，键盘上转换键（Shift、Ctrl和Alt键）的当前状态。 Button参数值 作 用 000（十进制0） 未按任何键 001（十进制1） 左键被按下（默认） 010（十进制2） 右键被按下 011（十进制3） 左、右键同时被按下 100（十进制4） 中间键被按下 101（十进制5） 同时按下中间和左键 110（十进制6） 同时按下中间和右键 111（十进制7） 3个键同时被按下 Shift参数设置值 ?转换键（shift） 具体讲述： Shift参数和Button参数测试程序 Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_X As Singer, Y As Singer) If Shift =1 And Button=1 Then Print”同时按下 Shift键和左键” If Shift =2 And Button=2 Then Print”同时按下Ctrl键和右键” If Shift =4 And Button=1 Then Print”同时按下 Alt 键和左键” If Shift =3 And Button=2 Then Print”同时按下 Ctrl 、 Shift键和右键” If Shift =5 And Button=1 Then Print”同时按下 Shift、Alt 键和右键” If Shift =6 And Button=2 Then Print”同时按下 Alt 、Ctrl键和右键” If Shift =7 And Button=1 Then Print”同时按下 Alt 、Ctrl 、Shift键和左键” End Sub ?转换键（shift）---------（具体实例） 具体讲述： 上述过程把Shift参数和Button参数结合起来进行测试。如果同时按下转换键和鼠标键，则显示相应的信息。 在图片框中画一个箭头，当在图片框内移动鼠标时，箭头会随着鼠标光标的移动而改变方向。 1、首先在窗体内建立一个图片框和一个标签，其属性设置如下表： 对象 属性 设置值 窗体 Left 1035 Top 1200 Width 2850 Height 2400 Caption Mouse Vane 图片框 Name Vane 标签 Alignment 2-Center Caption （空白） 实例解析： 2、编写如下过程： Private Sub vane_MouseDown(Button As Integer, Shift As Integer,_X As Si