请教: 有listbox1和textbox1,在textbox1输入aaa,焦点移致listbox1,当焦点在listbox1后,如按下k键,把焦点传递给textbox1,这时光标在aaa后

Question

Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)    textbox1.text=textbox1.text & chr(keycode)
    textbox1.setfocus
    keycode=0End Sub

Answer 1

Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyk
        Text1.SetFocus
        Text1.SelStart=3 'Len("aaa")=3
    End Select
    
End Sub

Answer 2

代码如下:
Private Sub List1_Click()
    Text1.SetFocus
    Text1.SelStart = Len(Text1.Text)
End SubPrivate Sub Text1_Change()
    List1.SetFocus
End Sub

Answer 3

谢谢四位老师帮助,可还是不行,用方法,text1后的焦点后,光标移到了第一个字符前面,而小妹是想光标在后面,可以继续输入.另三位和小妹的方法一样,焦点移到text1后,搜按下的字符未出现,还请教老师继续帮助,如何以,小妹想将程序发送给您,请您帮助,谢谢!!!