combo boxes and the keyboard

Is there a way I can know if the combo box is pulled down or a selection is made from the keyboard or the mouse?
wariarAsked:
Who is Participating?
 
yowkeeConnect With a Mentor Commented:
wariar,

  I assume I could propose it as answer. :)

----
 In this case, you could just use a variable to check about it.
Declare a variable iCheck in Form module. Set iCheck to 1 in combo1 mousedown event, set icheck to 2 in combo
keydown event.
  Then you could just check the variable to determine user has used mouse or keyboard to select an item and never
select (could combine with above selection checking).
----

  Regards.
0
 
yowkeeCommented:
wariar,

  You could use SendMessage to get these info from combo box. To check whether it's pull down, send message CB_GETDROPPEDSTATE. To check any item being selected, send message CB_GETCURSEL.

  For example:

----
  ' You may change the code to the place you want to do the   ' checking

Const CB_GETDROPPEDSTATE = &H157
Const CB_GETCURSEL = &H147
Const CB_ERR = (-1)
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Command1_Click()
    Dim lDrop As Long
    lDrop = SendMessageLong(Combo1.hwnd, CB_GETDROPPEDSTATE, 0,_                             0)
    If lDrop Then
        MsgBox "Drop Down!"
    Else
        MsgBox "Not drop down"
    End If
End Sub

Private Sub Command2_Click()
    Dim lSel As Long
    lSel = SendMessageLong(Combo1.hwnd, CB_GETCURSEL, 0, 0)
    If lSel <> CB_ERR Then
        MsgBox "Selected: " + Combo1.List(lSel)
    Else
        MsgBox "No item being selected!"
    End If
End Sub

Private Sub Form_Load()
    Combo1.AddItem "A"
    Combo1.AddItem "B"
    Combo1.AddItem "C"
    Combo1.AddItem "D"
    Combo1.AddItem "E"
End Sub

-----

Regards.
0
 
wariarAuthor Commented:
Thanks yowkee !!!
I guess I should have been more specific with my question.

How do I know if I've used the KEYBOARD or the MOUSE to either pull down the combo box or select an item from the list?
0
 
yowkeeCommented:
wariar,

  In this case, you could just use a variable to check about it.
Declare a variable iCheck in Form module. Set iCheck to 1 in combo1 mousedown event, set icheck to 2 in combo keydown event.

  Then you could just check the variable to determine user has used mouse or keyboard to select an item and never select (could combine with above selection checking).

  Regards.
0
 
wariarAuthor Commented:
yowkee,

Thanks again. I tried what you suggested but with a boolean variable. It seems to work. I appreciate the quick response.

wariar.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.