2014-01-15 27 views
0

對於現有的Word 2007表單,我有以下代碼,這是我的公司使用的,並且我被要求查看是否可以在激活時添加cusror以顯示在ActiveX文本框中。在VB ActiveX文本框中顯示光標

有問題的表單有3個選項按鈕和2個文本框,並根據單選按鈕選擇將啓用相關的文本框,但我似乎可以得到一個光標顯示在文本框啓用時。

表單上還有各種其他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 

回答

1

如果我明白你的問題正確的話,它會解決你的問題

TextBox1.Enabled = True 
TextBox1.SetFocus 
+0

感謝您的回覆。我曾嘗試使用TextBox1_Change()下的建議,但'TextBox1.SetFocus'會導致錯誤。我也嘗試添加到'如果',但仍然無法正常工作。 – murday1983

+0

將TextBox1.SetFocus放在OptionButton2_Click() – user1844933

+0

感謝您的更新,但它仍然無法正常工作。我在做出選擇時遇到調試錯誤 – murday1983

0

您需要激活的文本框,例如

TextBox1.Activate 
+0

感謝您的支持。作品exaclty我需要如何,但是當「TextBox2.Enabled =假」光標仍然顯示在最後'活躍'字段。有沒有辦法阻止這一點,因爲我只希望在「TextBox2.Enabled = True」時顯示光標 – murday1983