Combo box On Dbl-Click event not firing

[GraeagleBill]

I have a combo box with two events enabled, Click and Dbl-Click. I cannot get the latter to fire. I put a stop on the OnClick and it fires whenever I double-click a list item. I don't have double-click problems elsewhere in the app. What might I be missing?

[Missinglinq]

The OnClick event fires, on a Combobox, anytime a selection is made. Testing shows that the DoubleClick event only fires when it's done in the empty text box of the Combobox.

Linq ;0)>

[GraeagleBill]

Okay, so much for that approach.

I was also trying to make a distinction of a selection if the Ctrl key was down when the OnClick fired so I could take special action on the detect. I thought I could do that with the OnMouseDown but the list item doesn't seem to be available at that time. I.e., Me.cboDescription.Column(0) returns blank in the OnMouseDown event but I do get the text of the detected item in the OnClick event. So, what would be the test in the OnClick event to test for the Ctrl key being down when the item was selected?

[GraeagleBill]

Got it.........

In the OnClick event.................
If vbKeyControl then "Take the special action I need"

[GraeagleBill]

Well, that was dumb! I need to know if the control key "is down" when the user clicks on one of the combo choices.

[GraeagleBill]

I put the following code in the MouseDown event for the combo box. The text of the item selected is not available "yet" so I set a "pending" variable so the AfterUpdate of the receiving control can take the pending action at that time.

Not sure this is the most appropriate approach but 2017 is rapidly approaching and this item needs to get done........

Private Sub cboDescriptions_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'========================================================================================
' See if control key down at time of selection.
'========================================================================================
If (Shift And acCtrlMask) Then bolDFltPending = True

End Sub