在VB ActiveX文本框中顯示光標

Question

我為我的companby使用的現有Word 2007表單提供了以下代碼，並且被要求查看是否可以在啟用ActiveX TextBox時添加要顯示在ActiveX TextBox中的cusror。

在具有3個OptionButton和2個TextBox的表單上存在問題，根據單選按鈕的選擇，將啟用相關的TextBox，但是啟用它后，似乎可以在TextBox中顯示一個光標。

表單上還有其他各種TextBox，它們都是ArctiveX，所以我不認為可以在“加載”上使用它，還是可以嗎？

Private Sub OptionButton1_Click()

If OptionButton1.Value = True Then
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox1.BackColor = &HE0E0E0
TextBox2.BackColor = &HE0E0E0
TextBox1.Text = Empty
TextBox2.Text = Empty
End If

End Sub

----------------------------------------------

Private Sub OptionButton2_Click()

If OptionButton2.Value = True Then
TextBox1.Enabled = True
TextBox2.Enabled = False
TextBox1.BackColor = &HFFFFFF
TextBox2.BackColor = &HE0E0E0
TextBox2.Text = Empty
End If

End Sub

----------------------------------------------

Private Sub OptionButton3_Click()

If OptionButton3.Value = True Then
TextBox1.Enabled = False
TextBox2.Enabled = True
TextBox1.BackColor = &HE0E0E0
TextBox2.BackColor = &HFFFFFF
TextBox1.Text = Empty
End If

End Sub

----------------------------------------------

Private Sub TextBox1_Change()

End Sub

----------------------------------------------

Private Sub TextBox2_Change()

End Sub

Answer 1

如果我正確理解您的問題，它將解決您的問題

TextBox1.Enabled = True
TextBox1.SetFocus

Answer 2

您需要激活文本框，例如

TextBox1.Activate