要求在程序运行时,如果按住鼠标左键不放而移动鼠标,鼠标的位置坐标同步显示在窗体右上角的标签(名称为Labell)中,如右图所示,放开鼠标左键后,停止同步显示。 下面可以实现此功能的程序是( )。

admin2020-06-30  47

问题 要求在程序运行时,如果按住鼠标左键不放而移动鼠标,鼠标的位置坐标同步显示在窗体右上角的标签(名称为Labell)中,如右图所示,放开鼠标左键后,停止同步显示。

下面可以实现此功能的程序是(     )。

选项 A、Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
           If Button=l Theft
                Labell=”X=”&X&”Y=”&Y
           End If
    End Sub
B、Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
           If Button=l Then
                 Labell=”X=”&X&”Y=”&Y
           End If
    End Sub
C、Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
            If Button=l Then
                Labell=”X=”&X&”Y=”&Y
            End If
    End Sub
D、Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
          Labell=”X=”&X&”Y=”&Y
    End Sub

答案C

解析 鼠标移动时产乍的垮件是MouseMove:事件。MouselDown事件过程的参数定义如下:
    Sub Folln_MouseMove(Button As integer,Shifc AsIntegel·,xAs Single,y As single)其中Button表示被按下的鼠标键,按下左键时值为l,按下右键时值为2,按下中间键时值为4。x,y参数表示鼠标光标当前位置的坐标。 题目要求按住左键时移动显示鼠标位置,因此在事件过程要判断是否按下了左键,按下了左键则在标签中显鼠标位置,否则不显示。因此可用If Button=1来判断是否按下了左键及是否显示鼠标位置。因此应该选择C选项。
转载请注明原文地址:https://jikaoti.com/ti/A8S0FFFM
0

最新回复(0)