单选题
有下面事件过程： Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single，Y As Single) IfButton=2 Then Forml．PSet(X，Y)’PSet方法可以在X，Y处画一个点 End If End Sub 程序运行后，产生的效果是
A、
在窗体上每单击鼠标左键一次，就在鼠标位置处画一个点
B、
按着鼠标左键，移动鼠标，可在窗体上画出鼠标的运动轨迹
C、
按着鼠标右键，移动鼠标，可在窗体上画出鼠标的运动轨迹
D、
不按任何鼠标键，移动鼠标，可在窗体上画出鼠标的运动轨迹
【正确答案】
C
【答案解析】
解析：鼠标事件分点击事件和状态事件：点击事件有单击(Click)和双击(DblClick)，不区分左右键；状态事件有按下(MouseDown)、移动(MouseMove)和弹起(MouseUp)，能够区分出鼠标的左、右和中间键。如果鼠标按钮是当其指针在窗体或控件之上时被按下并释放，则该对象将“捕获”鼠标并接收全部与该对象相关的鼠标事件。在本题代码中当鼠标移动时触发MouseMove事件，此时判断按下的鼠标键为右键(Button=2)时，则在窗体鼠标指针经过的位置依次画点，从而形成一条线。
提交答案
关闭