如何设置代码,以便在文本框中单击鼠标以输入信息?

时间:2013-12-09 03:33:23

标签: vb.net

在Visual Basic 2010中。我有两个文本框和一个数字键盘。每次单击一个数字,该数字都会显示在文本框中。我是如何做到这一点所以我需要先点击进入文本框,然后才能在该文本框中输入数字?这就是我的代码中的内容。如何更改它以便必须单击文本框才能输入数字?感谢!!!

 Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
    mtbNum.Text += "5"
    txtQuantity1.Text += "5"
End Sub

Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
    mtbNum.Text += "6"
    txtQuantity1.Text += "6"
End Sub

Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
    mtbNum.Text += "7"
    txtQuantity1.Text += "7"
End Sub

2 个答案:

答案 0 :(得分:1)

请尝试以下代码。

Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
    if mtbNum.Focused = True Then
        mtbNum.Text += "5"
        Exit Sub()
    ElseIf txtQuantity1.Focused = True Then
        txtQuantity1.Text += "5"
        Exit Sub()
    Else
        Exit Sub()
    End If
End Sub

这是我的最后一次尝试,除非您发布更多代码。

答案 1 :(得分:0)

假设您正在寻找基于您选择的标记的VB.Net答案。这是一个讨论类似问题的主题。

How to check focused TextBox in vb.net winforms?