主题：如何判断某个快捷菜单是否已经存在

版主：

Dim contains As Boolean = False
For Each m As object In ContextMenus
    If m.name = "Cell" Then
        contains = True
        Exit For
    End If
Next
msgbox(contains)

谢谢了。

版主：
     如何判断，cell这个右键快捷菜单是否激活？

激活什么意思？判断是否已经弹出？无法判断。

想判断是否执行了这条语句：        e.ContextMenu = ContextMenus("任务一览表右键菜单")

Dim contains As Boolean = False
For Each m As object In ContextMenus
    If m.name = "任务一览表右键菜单" Then
        contains = True
        Exit For
    End If
Next
if contains Then

   e.ContextMenu = ContextMenus("任务一览表右键菜单")

End If

谢谢了。