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

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

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

二级VB

NCRE全国计算机二级

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