有下面事件过程: Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Butt

admin2020-07-22  28

问题 有下面事件过程:
    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

解析 MouseMove中Button是一个整数,它对应鼠标各个按钮的状态,如果某个按钮按下,其中就有一个二进制位被设置。Button 参数是具有相应于左按钮(位 0),右按钮(位 1),以及中间按钮(位 2)的一个位字段。这些位的值分别等于 1,2,和 4。它指示这些鼠标按钮的整体状态;三个二进制位中的一些、全部、或一个也没有被设置,指示这些按钮中的一些、全部、或一个也没有被按下。程序中Button = 2表示鼠标右键被按下。故答案选C。
转载请注明原文地址:https://kaotiyun.com/show/FVHp777K
0

最新回复(0)