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

Question

当用户右键单击列表框时，我希望有一个带有两个选项的菜单。 使用该菜单，用户可以对所选数据进行一些操作，例如添加新行，更改某些列数据或删除行。我想我可以管理该代码，但是我不了解如何创建右键单击自定义菜单。

我找不到创建此类选项的方法。有人有主意吗？

Answer 1

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

Select ListBox item on rightclick in Word VBA

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

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

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

Answer 2

仅使用类（不使用Api或Declare函数）创建的列表框的右键菜单包含以下按钮；

• 增大字体大小
• 减小字体大小
• 按 A-Z 排序
• 删除列表
• 全部删除

For VBA codes and sample file review this link