Combo Box

[Geoff Gunson]

Hi

Just a quick question, is there any way of stopping a user typing text into a combo box, i.e. so they can only select what appears in the drop down list? I have tried using the lock propety but it does not let you select anything from the list or type anthing in.

Any takers?

Cheers

Geoff

[mcleran]

You need to handle the combo box's keypress and keydown events. You can then set the keyascii and keydown values to 0 and vbnull, respectively. Let me know if you need an example.

[Serge]

Or better yet, just change the Style property of the Combobox to 2 (Dropdown List).

[Geoff Gunson]

Thanks

Just the ticket!

Geoff

[Bebe]

Some code examples would be nice on how to set it to null. I did a routine on keypress and there still is the possiblity of saving it with one character if you do it right; or is that wrong? by the user?

[Serge]

Sure. All you have to do is to set ListIndex property to -1.

Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyDelete Then
        Combo1.ListIndex = -1
    End If
End Sub

Regards,

[Aldea]

About how not to allow the user to input anything in a combobox

Private Sub cboBox_Change()
cboBox.Text = "" 'or whatever text
End Sub

[Serge]

No, use Combobox1_KeyPress and Combobox1_KeyUp events to do that:

Private Sub Combo1_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
    KeyCode = 0
End Sub