设窗体上有一个名称为Labell的标签。程序运行时,单击鼠标左键,再移动鼠标,鼠标的位置坐标会实时地显示在Labell标签中;单击鼠标右键则停止实时显示,并将标签中的内容清除。下面的程序可实现这一功能,请填空。 Dim downAs Boolean

admin2012-05-23  28

问题 设窗体上有一个名称为Labell的标签。程序运行时,单击鼠标左键,再移动鼠标,鼠标的位置坐标会实时地显示在Labell标签中;单击鼠标右键则停止实时显示,并将标签中的内容清除。下面的程序可实现这一功能,请填空。
    Dim downAs Boolean
    Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
        Select Case 【  】
            Case 1
              down=True
            Case 2
              down=False
        End Select
    End Sub
    Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
    If 【  】Then
    【  】=“X=”&X&”  Y=″&Y
    Else
        Label 1.Caption=“”
      End If
    End Sub

选项

答案Button down或down=True Labll.Caption

解析 鼠标键状态由参数Bunon来设定,其值为1表示按下了鼠标左键,为2表示按下了鼠标右键,因此在MouseDown事件中需要判断Button参数的值以便进行对全局逻辑变量down的赋值:在鼠标的移动事件中,根据题意如果按下了鼠标左键(即down=True)则输出坐标,否则清空标签,因此进行判断的条件就是down是不是等于True;坐标需要输出到Labell的Caption属性中。
转载请注明原文地址:https://kaotiyun.com/show/nPhp777K
0

最新回复(0)