新VisualBasic 程序设计 vb8教程.pptVIP

（3）编写MouseMove事件过程 Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_X As Singer, Y As Singer) R=Rnd*800 If R200 Then R=200 If Trace And (Button And 2)Then Circe(X,Y),R End If End Sub 上述过程判断鼠标键是否被按下（Trace=True），并且按下的是否是右键（Button And 2）。按下右键移动鼠标，每移动一个位置，以鼠标光标的当前位置为圆心，以200—800 twip之间的随机数为半径画一个圆。 实例编程： 和按钮参数Button一样，转换参数Shift也是一个整数值，并用其低3位表示Shift、Ctrl和Alt键的状态，某键被按下使得一个二进制为被设置。 …… Alt键 Ctrl键 Shift键 Shift 参数 ?转换键（shift） 具体讲述： Shift参数反映了当按下指定的鼠标键时，键盘上转换键（Shift、Ctrl和Alt键）的当前状态。 Button参数值 作