Combo boxes

Does anyone know how to drop the list of a combo box through code?

d. paulson

You can change value of TopIndex property in your code.

Good Luck!

Ruth Glushkin

You could also use the following;


Private Sub cboRetailer_GotFocus()

' drop combo
SendKeys "%{Down}", True

End Sub


cboRetailer = ComboBox

Hey thanks. That should work.

d. paulson

You could try this as well
Private Const CB_SHOWDROPDOWN = &H14F
Option Explicit
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Long) As Long

then put this where you want to drop the list
Dim lRet As Long
lRet = SendMessage(cboPlayers.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)

Note replace the combo box name with yours

hope this helps

:) ZOLDY :)