以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]快捷菜单问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59189)
--  作者：pcxjxjhkw
--  发布时间：2014/10/30 15:47:00
--  [求助]快捷菜单问题

如何判断某一快捷菜单是否存在的代码是什么？

请教大家，谢谢

 
--  作者：有点甜
--  发布时间：2014/10/30 16:15:00
--  

Dim flag As Boolean = False
For Each cm As object In ContextMenus
    If cm.name = "cell" Then
        flag = True
        Exit For
    End If
Next

msgbox(flag)
--  作者：pcxjxjhkw
--  发布时间：2014/10/30 16:17:00
--  

谢谢，甜老师