select row in userform listbox with right-click?

[RB Smissaert]

Is it possible to select a row in a listbox in a userform with a right-click
and still have the right-click event?
I have seen solutions for this in VB using the Windows API, but it doesn't
seem possible with VBA.
Thanks for any advice.

RBS

 

[Harald Staff]

Hi RB

You'll probably need to fine tune it for your design. But this works here
with Tahoma og various sizes.:

Private Sub ListBox1_MouseDown(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim L As Long
If Button = 2 Then
L = ListBox1.TopIndex + Int(Y / (ListBox1.Font.Size * 1.2))
ListBox1.ListIndex = L
End If
End Sub

HTH. Best wishes Harald

 

[RB Smissaert]

Harald,

Thanks for that!
Beautifully simple and it works perfect.
Don't know why I hadn't come up with this myself.

RBS

 

[Harald Staff]

Glad to hear that. Thanks for the feedback.

Best wishes Harald