將文本添加到文本框，具體取決於光標所在的位置

Question

讓我開始說我已經四處張望，我想我的問題太具體以至於無法獲得任何直接結果。這也是我的第一個VB項目。

我想做一個簡單的銷售點GUI。我有兩個文本框（價格，現金投標）和11個按鈕製作數字鍵盤。我想要做的是能夠點擊數字鍵盤按鈕（例如，按鈕「1」和「0」輸入10美元），然後轉到光標最後點擊的文本框。

所以這裏是一個例子：我點擊文本框「價格」，然後點擊按鈕「1」和按鈕「0」。然後這將輸入10到「價格」文本框。之後，我希望能夠點擊「現金投標」文本框，並能夠像以前一樣使用相同的數字鍵盤按鈕進行相同的操作。

A picture of the GUI可用。

Answer 1

你可以使用一個布爾值來跟蹤當你在價格文本框設置布爾爲真單擊其中的文本框是最後一次選擇

。當您單擊現金投標文本框時，將布爾值設置爲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