|
|
请教如何实现userform窗口上textbox右键菜单?我只想能像excel那样实现右键复制/剪切/粘贴功能,百度了一下,excel vba中用如下代码可以实现:
Sub 添加快捷菜单()
Dim mypup As CommandBar
Dim com As CommandBarButton
Dim x
删除命令
Set mypup = Application.CommandBars.Add(Name:="ABC", Position:=msoBarPopup)
For x = 1 To 4
Set com = mypup.Controls.Add
com.Caption = Choose(x, "兰色幻想", "小妖", "小佩", "展翅")
'这4个是加的按钮的名字， 可以改成你自己的， 比如复制粘贴等
com.FaceId = 17 + x
com.OnAction = "A"
'这句是指定的宏的名字， 可以改成你自己的宏， 比如复制 ，粘贴功能宏
Next x
End Sub
Sub 删除命令()
Application.CommandBars("ABC").Delete
End Sub
但这个代码在cad vba中说commandbar是无效类型,请教该如何修改可以实现? |
|
置顶卡
