怎样在VBA用户窗体中添加popupmenu菜单啊，急

123rc 2004-06-25 06:43:41

怎样在VBA用户窗体中添加popupmenu菜单啊，急，在线等

...全文

1103 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

flyingZFX 2004-07-02

打赏
举报

用什么API，真是混帐，VBA里当然有自己的，楼上大头说的就非常好嘛，

hsx306 2004-06-28

打赏
举报

那我就没办法了

hhjjhjhj 2004-06-26

打赏
举报

Private Sub UserForm_Initialize()
Dim myBar As CommandBar
Set myBar = CommandBars.Add(Name:="Custom", Position:=msoBarPopup, Temporary:=False)
With myBar
.Controls.Add Type:=msoControlButton, ID:=3
.Controls.Add Type:=msoControlComboBox
.Controls(2).AddItem "是不是这样"
End With

End Sub
'右击窗体弹出菜单
Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
CommandBars("Custom").ShowPopup
End If
End Sub

Private Sub UserForm_Terminate()
CommandBars("Custom").Delete
End Sub

123rc 2004-06-26

打赏
举报

在Userfrom的控件上添加Popupmenu菜单，在VBA编程中没有人有这方面的需求吗？？？？

123rc 2004-06-26

打赏
举报

可是我的编程环境不是在office下，因此没有commandBar对象可用，我希望的是在userfrom窗体上的ListView控件上做一个右健菜单一半打印ListView中显示的内容

123rc 2004-06-25

打赏
举报

怎样用API了，能不能具体点，最好有示例代码

supergreenbean 2004-06-25

打赏
举报

VBA里面好象没有本身菜单的使用，不过应该可以通过API获得类似效果

hsx306 2004-06-25

打赏
举报

使用CommandBar 属性

ShowPopup 方法

将指定的命令栏作为快捷菜单，在指定坐标或当前光标位置显示。

注意如果命令栏的 Position 属性没有设置为 msoBarPopup，那么本方法无效。

expression.ShowPopup(x, y)

expression 必需。该表达式返回一个 CommandBar 对象。

x Variant 类型，可选。快捷菜单所在位置的 x 坐标。如果省略此参数，那么将取当前光标位置的 x 坐标。

y Variant 类型，可选。快捷菜单所在位置的 y 坐标。如果省略此参数，那么将取当前光标位置的 y 坐标。

示例
本示例可实现的功能为：创建一个包含两个控件的快捷菜单。ShowPopup 方法用于显示该快捷菜单。

Set myBar = CommandBars _
.Add(Name:="Custom", Position:=msoBarPopup, Temporary:=False)
With myBar
.Controls.Add Type:=msoControlButton, Id:=3
.Controls.Add Type:=msoControlComboBox
End With
myBar.ShowPopup

gdami 2004-06-25