2. 计算机
  3. 有下面事件过程： Private Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=2Then Form1．PSet(X，Y)’

有下面事件过程： Private Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=2Then Form1．PSet(X，Y)’

admin2016-09-19  47
问题 有下面事件过程：
Private Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single)
If Button=2Then
Form1．PSet(X，Y)’PSet方法可以在X，Y处画一个点
End If
End Sub
程序运行后，产生的效果是
选项 A、在窗体上每单击鼠标左键一次，就在鼠标位置处画一个点
B、按着鼠标左键，移动鼠标，可在窗体上画出鼠标的运动轨迹
C、按着鼠标右键，移动鼠标，可在窗体上画出鼠标的运动轨迹
D、不按任何鼠标键，移动鼠标，可在窗体上画出鼠标的运动轨迹
答案C
解析 鼠标事件分点击事件和状态事件：点击事件有单击(Click)和双击(DblClick)，不区分左右键；状态事件有按下(MouscDown)、移动(MouseM0ve)和弹起(MouSeUp)，能够区分出鼠标的左、右和中间键。如果鼠标按钮是当其指针在窗体或控件之上时被按下并释放，则该对象将“捕获”鼠标并接收全部与该对象相关的鼠标事件。在本题代码中当鼠标移动时触发MouseMove事件，此时判断按下的鼠标键为右键(Bunon=2)时，则在窗体鼠标指针经过的位置依次画点，从而形成一条线。
转载请注明原文地址:https://www.kaotiyun.com/show/VOLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)