listbox / textbox

[Kars Lensen]

How can I let show the record from a listbox in a textbox when I go tru the listbox with the up and down arrow keys ?

[André]

Hi there, you just put the selected value of the listbox on the textfield in the click event of the listbox:

Private Sub List1_Click()
Text1.Text = List1.Text
End Sub

Have a nice day
André

[amcrae]

to allow the arrow keys to also change the text box

Private Sub List1_KeyUp(KeyCode As Integer, Shift As Integer)
Text1.Text = List1.Text
End Sub

' will change the contents of the text box when you let
' go of up or down arrow

[André]

I agree, but with the click event your user can both use the arrows and the mouse from the same event!

André

[Kars Lensen]

thanks to you all !
Both works fine
regards, Kars