vb在 ListBox 之中点击右键弹出菜单

'1.API 的声明：
Const LB_ITEMFROMPOINT = &H1A9
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

 '2.代码

Private Sub Listbox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   On Error Resume Next
     If Button = 2 Then
           Dim Pos As Long, idx As Long
           Pos = X / Screen.TwipsPerPixelX + Y / Screen.TwipsPerPixelY * 65536
           idx = SendMessage(ListFin.hwnd, LB_ITEMFROMPOINT, 0, ByVal Pos)
           ' idx 即等于鼠标所在位置的选项
           If idx < 65536 Then
                 Listbox1.ListIndex = idx
                 PopupMenu pop1   'pop1为菜单
           End If
     End If
End Sub

相关文章参考：

※VB Listbox 添加不重复的值

※Listbox 之中点击右键弹出菜单

※Listbox 的水平卷动轴

※VB动态拖曳Listbox Item位置

相关

文 章 参考 ：

※vb屏蔽文本框点右键时的弹出菜单

※VB 小技巧自定义TextBox文本框右键菜单

※VB 自启动建立右键菜单

※VB在菜单上增加图标

※vb在 ListBox 之中点击右键弹出菜单

※【引用】在VB6.0中实现弹出式菜单的几种方法

※在vb中实现真正锁定的带自定义菜单的文本控件