VSTO探索笔记之右键菜单及ListObject对象事件响应

sanbe

windows7 64bit+excel 2010+vs2013
windows7 64bit+excel2010+vs2010测试通过

添加右键菜单代码

1. 
   
2. Dim combar As Microsoft.Office.Core.CommandBar = activeWorksheet.Application.CommandBars("Cell")'右键菜单
   
3. DelRightMenu("List Range Popup", "test")'删除右建菜单
   
4. Dim mycol As Microsoft.Office.Core.CommandBarControl =combar.Controls.Ad(Microsoft.Office.Core.MsoControlType.msoControlButton)
   
5. Dim comBut As Microsoft.Office.Core.CommandBarButton = TryCast(mycol, Microsoft.Office.Core.CommandBarButton)
   
6. If Not IsNothing(comBut) Then
   
7.     comBut.Tag = "test"
   
8.     comBut.Caption = "测试"
   
9.     comBut.Style = Microsoft.Office.Core.MsoButtonStyle.msoButtonAutomatic
   
10.     AddHandler comBut.Click, AddressOf comBut_Click'事件委托
    
11. End If
    

复制代码

删除右键菜单过程

1. 
   
2.     Public Shared Sub DelRightMenu(ByVal BarName As String, ByVal Tag As String, Optional ByVal Visible As Boolean = True)
   
3.         Dim bars As Microsoft.Office.Core.CommandBarControls = Globals.ThisAddIn.Application.CommandBars(BarName).Controls
   
4.         For Each col As Microsoft.Office.Core.CommandBarControl In bars
   
5.             If col.Tag = Tag Then
   
6.                 col.Delete()
   
7.             Else
   
8.                 col.Visible = Visible
   
9.             End If
   
10.         Next
    
11.     End Sub
    

复制代码

菜单单击事件

1. 
   
2.     Public Shared Sub comBut_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean)
   
3.         MsgBox("测试")
   
4.     End Sub
   

复制代码

以下内容没找到最佳处理方法，采用VB.net的事件委托方法
ListObject右键单击事件委托

1. 
   
2. Public Shared WithEvents myListObjet As Microsoft.Office.Interop.Excel.ListObject'公共声明ListObject响应事件
   
3. '以下委托放到其他过程中
   
4. AddHandler myOrderListObjet.Application.SheetBeforeRightClick, AddressOf Worksheet_myListObjet_BeforeRightClick'委托右键事件
   
5. 
   

复制代码

ListObject右键单击事件,添加右建菜单

1. 
   
2. Public Sub Worksheet_myListObjet_BeforeRightClick(ByVal sh As Object, ByVal Target As Microsoft.Office.Interop.Excel.Range, ByRef Cancel As Boolean)
   
3.     Dim combar As Microsoft.Office.Core.CommandBar = activeWorksheet.Application.CommandBars("List Range Popup")'ListObject对象菜单
   
4.     DelRightMenu("List Range Popup", "test")'删除ListObject对象右建菜单
   
5.     Dim mycol As Microsoft.Office.Core.CommandBarControl =combar.Controls.Ad(Microsoft.Office.Core.MsoControlType.msoControlButton)
   
6.     Dim comBut As Microsoft.Office.Core.CommandBarButton = TryCast(mycol, Microsoft.Office.Core.CommandBarButton)
   
7.     If Not IsNothing(comBut) Then
   
8.         comBut.Tag = "test"
   
9.         comBut.Caption = "测试"
   
10.         comBut.Style = Microsoft.Office.Core.MsoButtonStyle.msoButtonAutomatic
    
11.         AddHandler comBut.Click, AddressOf comBut_Click'事件委托
    
12.     End If
    
13. End Sub
    

复制代码

其它笔记链接：VSTO探索笔记

业余爱好者

很给力，学习了

su45

好东东！用得着！

sgtlcjb

AddHandler myOrderListObjet  出错