VBA - 右键单击 列表框时创建菜单列表

Posted 2021-04-18

当用户右键单击列表框时，我想有一个包含两个选项的菜单。使用该菜单，用户可以对所选数据执行某些操作，例如，添加新行，更改某些列数据或删除行。我想我可以管理该代码，但我无法掌握如何创建一个右键单击自定义菜单。

我找不到创建这种选项的方法。有没有人有想法？

答案

以下是右键单击事件的一些代码：

Select ListBox item on rightclick in Word VBA

将此代码替换为您的上下文菜单代码：

Me.Caption = derivedIndex & " = " & ListBox1.List(derivedIndex)

这是弹出菜单的一个示例（您需要掌握Win32 API调用的技能......）https://www.vbarchiv.net/api/api_createpopupmenu.html