Question

我有一个现有的Word 2007表单的代码，我的公司使用了这个表单，并且我被要求查看是否可以添加cusror以在启用时在ActiveX TextBox中显示。

表单上有3个OptionButtons和2个TextBox的问题，根据单选按钮选择将启用相关的TextBox，但是当它启用时，我似乎可以在TextBox中显示一个光标。

表单上有各种其他TextBox，所有这些都是ArctiveX，所以我不认为我可以在'Load'上使用它，或者我可以吗？

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

在VB ActiveX TextBox中显示光标

2 个答案: