在VSTO（excel二次开发）中怎么使用removehandler方法？

Question

在使用vsto为excel二次开发时，为一个workbook的SheetSelectionChange事件添加了事件处理程序：

AddHandler Wkb.SheetSelectionChange, AddressOf Workbook_SheetSelectionChange

事件处理程序是：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Excel.Worksheet, ByVal Target As Excel.Range) Handles Wkb.SheetSelectionChange
......
End Sub

然后想在另一个过程中删除事件处理程序：

RemoveHandler Wkb.SheetSelectionChange, AddressOf Workbook_SheetSelectionChange

但是出现了警告：

"AddressOf" 表达式在此上下文中不起作用，因为 "AddressOf" 的方法参数需要到该事件的委托类型的宽松转换。

我尝试了用变量：

Dim h As EventHandler = AddressOf Workbook_SheetSelectionChange
RemoveHandler Wkb.SheetSelectionChange, h

结果又出现错误：

EventHandler”的值无法转换为“WorkbookEvents_SheetSelectionChangeEventHandler

请问该怎么修改代码？

Answer 1

Private Sub Wkb_SheetSelectionChange(ByVal Sh As Excel.Worksheet, ByVal Target As Excel.Range) Handles Wkb.SheetSelectionChange
......
End Sub

'标准模块中声明一个全局级变量
Public app As Excel.Application = Globals.ThisAddIn.Application

'含有事件的类中声明一个事件变量，并在类对象初始化时赋值（略）

'在需要的地方使用
AddHandler Wkb.SheetSelectionChange, AddressOf Wkb_SheetSelectionChange