VB ActiveX TextBox에 커서 표시

Question

내 companby가 사용하는 기존 Word 2007 양식에 다음 코드를 사용하고 ActiveX TextBox에 표시 할 cusror를 추가 할 수 있는지 확인하도록 요청되었습니다.

3 개의 OptionButton과 2 개의 TextBox가있는 폼에는 질문이 있습니다. 라디오 버튼 select에 따라 관련 TextBox가 활성화되지만 TextBox가 활성화되면 커서가 표시 될 수 있습니다.

폼에는 ArctiveX라는 다양한 TextBox가 있으므로 '로드'에 사용할 수 있다고 생각하지 않습니까?

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