combobox down list

[joemo2003]

can anybody tell me what is the code to show the drop down list in combobox when press the down arrow in the keyboard? i am using VB6.

[Killer42]

can anybody tell me what is the code to show the drop down list in combobox when press the down arrow in the keyboard? i am using VB6.

Well, this sort of works, except that the list disappears again when you try to scroll down it. Might be a place to start, though.

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyDown Then
    Beep
    KeyCode = vbKeyF4
  End If
End Sub

[sukeshchand]

This is not a good practice. Use this code on the gotfocus event this will be better

Private Sub Combo1_GotFocus()
SendKeys "{F4}": DoEvents
End Sub

[joemo2003]

the list do scroll down, but it can not select item when press the down key. how to make it press the downkey one time is scroll down the list, and press again then move the selection in the combobox? just like the google toolbar.

thanks

Well, this sort of works, except that the list disappears again when you try to scroll down it. Might be a place to start, though.

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyDown Then
    Beep
    KeyCode = vbKeyF4
  End If
End Sub

[Killer42]

the list do scroll down, but it can not select item when press the down key.

Well, that's what I said. I just threw that together to provide you something to work with. It's certainly not a complete solution.

The alternative suggested by sukeshchand may be a much better way to go.

The real problem with using the down arrow to open the list is that you have to be able to tell whether the list is currently displayed or not. One possibility would be to set a flag in the GotFocus event, then only do the "drop-down on down arrow" the first time the key is pressed. But this is only a small improvement, as you still couldn't tell for sure whether you would be opening or closing the list.

[sukeshchand]

Try to do like this
Here i am not recomented to use this because this is not a proper way to do that.

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
    KeyCode = 0
    DoEvents
    SendKeys "{escape}"
    DoEvents
    SendKeys "{f4}"
    DoEvents
    KeyCode = vbKeyDown
    DoEvents
End If
End Sub

[joemo2003]

Thanks a lot

Try to do like this
Here i am not recomented to use this because this is not a proper way to do that.

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
    KeyCode = 0
    DoEvents
    SendKeys "{escape}"
    DoEvents
    SendKeys "{f4}"
    DoEvents
    KeyCode = vbKeyDown
    DoEvents
End If
End Sub