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

最新推荐文章于 2025-03-07 09:34:08 发布

原创

最新推荐文章于 2025-03-07 09:34:08 发布 · 1.4k 阅读

3 ·

CC 4.0 BY-SA版权

这篇博客介绍了如何在VB环境下，当用户在ListBox上点击右键时，动态弹出一个菜单。通过API声明和代码实现，可以获取鼠标位置对应的Listbox项，并显示自定义菜单。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'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