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

admin2013-10-16  43

问题 有下面事件过程:
    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)时,则在窗体鼠标指针经过的位置依次画点,从而形成一条线。
转载请注明原文地址:https://jikaoti.com/ti/UO60FFFM
0

最新回复(0)