select row in userform listbox with right-click?
 

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

select row in userform listbox with right-click?
 

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" skrev i melding
...
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

select row in userform listbox with right-click?
 

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" wrote in message
...
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" skrev i melding
...
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

select row in userform listbox with right-click?
 

Glad to hear that. Thanks for the feedback.

Best wishes Harald

"RB Smissaert" skrev i melding
...
Harald,

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