你把前三句删掉就行,不用判断位置,直接设置 你要输入的自定义的值就行。
(第一句也没用,既然光标在ComboBox里闪动,它当然已经获得了焦点)
Combo1.SelText = "B"
Private Sub Command1_Click()
Me.Combo1.SetFocus
Me.Combo1.SelStart = 1 '光标的位置可以是从0 到 len(combo1.text)
Me.Combo1.SelLength = 0
Me.Combo1.SelText = "B"
End Sub
Private Sub Command1_Click()
Me.Combo1.SetFocus
Combo1.SelStart = 1
Combo1.SelLength = 0
Combo1.Clear
Combo1.SelText = InputBox("请输入你的值", "提示")
End Sub
??你不是自问自答了吗