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

admin2018-05-08  29

问题 有下面事件过程:
    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)的一个位字段。这些位的值分别等于l,2,和4。它指示这些鼠标按钮的整体状态;三个二进制位中的一些、全部、或一个也没有被设置,指示这些按钮中的一些、全部、或一个也没有被按下。程序中Button=2表示鼠标右键被按下。故答案选C。
转载请注明原文地址:https://kaotiyun.com/show/BYGp777K
0

最新回复(0)