在VSTO(excel二次开发)中怎么使用removehandler方法?

史巴燕
  • 1
新手上路,请多包涵

在使用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

请问该怎么修改代码?

回复
阅读 1k
1 个回答
lsfyff
  • 2
新手上路,请多包涵

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

撰写回答
你尚未登录,登录后可以
  • 和开发者交流问题的细节
  • 关注并接收问题和回答的更新提醒
  • 参与内容的编辑和改进,让解决方法与时俱进
你知道吗?

宣传栏