Question

让我先说我已经环顾四周，我想我的问题太具体了，无法获得任何直接的结果。这也是我的第一个VB项目。

我正在尝试制作一个简单的销售点GUI。我有两个文本框（价格，现金投标）和11个按钮制作数字键盘。我想要做的是能够点击数字键盘按钮（例如，按钮“1”和“0”输入10美元），它将转到光标最后点击的文本框。

所以这是一个例子：我点击文本框“价格”，然后点击按钮“1”和按钮“0”。然后，这将在“价格”文本框中键入10。之后，我希望能够点击“Cash Tendered”文本框，并且能够使用与之前相同的数字小键盘按钮进行相同的操作。

Answer 1

您可以使用布尔值来跟踪上次选择的文本框

在价格文本框中单击时，将布尔值设置为true。单击Cash Tendered文本框时，将布尔值设置为false。单击键盘中的某个数字按钮时，测试布尔值以查看上次选择的文本框，然后在该文本框中输入数字。

示例：

Public Class Form1

    Dim lastClickedTextBox1 As Boolean

    Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click
        lastClickedTextBox1 = True
    End Sub

    Private Sub TextBox2_Click(sender As Object, e As EventArgs) Handles TextBox2.Click
        lastClickedTextBox1 = False
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If lastClickedTextBox1 = True Then
            TextBox1.Text = "Box 1 was it"
        Else
            TextBox2.Text = "Box 2 was it"
        End If
    End Sub
End Class

根据Cursor的位置将文本添加到文本框中

1 个答案: