关于怎么让vb.net 开发书签插件支持工作表新增和删除事件，并自适应工作簿高度

myperworld

小弟正在用vb.net开发vsto插件，是一个简单的书签功能，如下图：
现在碰到3个困扰的问题：
第1个问题，当关于用户新增和删除工作表时，书签无法自动刷新，源码如下：
ThisAddIn源码：

1. Imports Microsoft.Office.Interop.Excel
   
2. 
   
3. Public Class ThisAddIn
   
4. 
   
5.     Private Sub ThisAddIn_Startup() Handles Me.Startup
   
6.         xlapp = Me.Application
   
7.         AddHandler xlapp.WindowActivate, AddressOf xlapp_WindowActivate '多窗口显示
   
8.         AddHandler xlapp.WorkbookNewSheet, AddressOf xlapp_WorkbookNewSheet '当用户新增工作表初始化书签显示列表
   
9.         Call CreateUC() '创建usercontrol
   
10.     End Sub
    
11.     Private Sub xlapp_WindowActivate()
    
12.         Call CreateUC() '当激活新的excel工作簿，创建usercontrol
    
13.     End Sub
    
14. 
    
15.     Private Sub xlapp_WorkbookNewSheet()
    
16.         Dim UC_BookMark As New UC_BookMark()
    
17.         Call UC_BookMark.InitTreeView()  '无法调用InitTreeView方法？？？？？？？？？
    
18.     End Sub
    

复制代码

M_UC模块用于存放CreateUC() 创建usercontrol方法，由于多个工作表都需要使用，我特地加了一个dic存放handle

1. Imports Microsoft.Office.Tools
   
2. Imports Excel = Microsoft.Office.Interop.Excel
   
3. Imports System.Windows.Forms
   
4. 
   
5. Module M_UC
   
6.     Public xlapp As Excel.Application = Globals.ThisAddIn.Application
   
7. 
   
8.     Public AW As Excel.Window
   
9.     Public UC_Dic As Dictionary(Of String, CustomTaskPane) = New Dictionary(Of String, CustomTaskPane)
   
10.     Public UC_BookMarkTaskPane As CustomTaskPane
    
11. 
    
12.     Public Sub CreateUC()
    
13.         If Not xlapp.ActiveWindow Is Nothing Then
    
14.             Dim dic_key As String
    
15. 
    
16.             AW = xlapp.ActiveWindow
    
17.             dic_key = AW.Hwnd.ToString & "UC_BookMark" '因为包含多个窗体，所以加上窗体名称
    
18.             If Not UC_Dic.ContainsKey(dic_key) Then
    
19.                 UC_BookMarkTaskPane = Globals.ThisAddIn.CustomTaskPanes.Add(control:= New UC_BookMark(), title:="书签", window:=AW)
    
20.                 With UC_BookMarkTaskPane
    
21.                     .DockPosition = Microsoft.Office.Core.MsoCTPDockPosition.msoCTPDockPositionRight
    
22.                     .Width = 250
    
23.                     .Visible = False
    
24.                 End With
    
25.                 UC_Dic.Add(key:=dic_key, value:=UC_BookMarkTaskPane)
    
26.             End If
    
27.         Else
    
28.             AW = Nothing
    
29.         End If
    
30.     End Sub
    
31. End Module

复制代码

UC_BookMark，是usercontrol，代码如下：

1. Imports System.Windows.Forms
   
2. Public Class UC_BookMark
   
3. 
   
4.     Private Sub UC_BookMark_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
5.         InitTreeView()
   
6.     End Sub
   
7. 
   
8.     Public Sub InitTreeView()
   
9.             Dim sht As Excel.Worksheet = Nothing
   
10.         Dim Trv As TreeView = me.TreeView1
    
11.         Trv.Nodes.Clear()
    
12. 
    
13.         For Each sht In xlapp.Worksheets
    
14.             Dim TrvNode As New TreeNode
    
15.             TrvNode.Tag = sht.Name
    
16.             TrvNode.Text = sht.Name
    
17.             Trv.Nodes.Add(TrvNode)
    
18.         Next
    
19. 
    
20.         ' 设定树形菜单高度
    
21.         If Not UC_BookMarkTaskPane Is Nothing Then
    
22.             Trv.Width = UC_BookMarkTaskPane.Width - 30
    
23.             Trv.Height = UC_BookMarkTaskPane.Height - 100
    
24.         End If
    
25. 
    
26.         Trv.ExpandAll()
    
27.         End Sub
    
28. 
    
29.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    
30.         InitTreeView()
    
31.     End Sub
    
32. 
    
33. End Class
    

复制代码

其中InitTreeView是用来刷新树形菜单的。由于新增工作表事件不成功，无奈加了一个按钮，手工刷新。请问通过什么方法可以实现自动刷新呢？


第2个问题也是在上面代码中，关于树形菜单自适应高度。非常奇怪，初始化加载时，无法获得UC_BookMarkTaskPane，等于nothing，为了防止报错，我只能加了if条件判断是否nothing，然后通过点击刷新按钮后才能自适应高度。

1.         ' 设定树形菜单高度
   
2.         If Not UC_BookMarkTaskPane Is Nothing Then
   
3.             Trv.Width = UC_BookMarkTaskPane.Width - 30
   
4.             Trv.Height = UC_BookMarkTaskPane.Height - 100
   
5.         End If

复制代码

第3个问题，是关于当隐藏书签面板，其隐藏状态怎么和顶部菜单toggle btn怎么交互呢？



所有源码已经打包上传，哪些大神方便的话，帮忙看看，谢谢各位！！！！

zpy2

Call UC_BookMark.InitTreeView()  '无法调用InitTreeView方法？？？？？？？？？

其他方法，debug.print 能调用吗？
照理不会这样子的

zpy2

Dim UC_BookMark As New UC_BookMark()

每次都创建一个新实例？是不是这个要全局变量

myperworld

zpy2 发表于 2022-2-15 14:30
Dim UC_BookMark As New UC_BookMark()

每次都创建一个新实例？是不是这个要全局变量

试过在M_UC模块中申明全局变量UC_BookMark：

1. Public UC_BookMark As UC_BookMark

复制代码

ThisAddin.vb中

1. 
   
2. Private Sub xlapp_WorkbookNewSheet()
   
3.         Call UC_BookMark.InitTreeView()  '无法调用InitTreeView方法
   
4. End Sub
   

复制代码

还是没有效果。

myperworld

zpy2 发表于 2022-2-15 14:27
Call UC_BookMark.InitTreeView()  '无法调用InitTreeView方法？？？？？？？？？

其他方法，debug.prin ...

调试了，能够调用InitTreeView方法，也查看了treeview的变量，已经包含了新增增加的工作表，但是界面上treeview就是不更新？！？！

myperworld

zpy2 发表于 2022-2-15 14:27
Call UC_BookMark.InitTreeView()  '无法调用InitTreeView方法？？？？？？？？？

其他方法，debug.prin ...

既能能够访问  usercontrol模块中的InitTreeView方法，那么问题会不会出方法中：
Dim Trv As TreeView = me.TreeView1  '外部模块或者thisaddin无法确定me对象？
那么请问这句怎么写，可以正确的让外部模块或者thisaddin访问usercontrol中方法呢？

wodewan

myperworld 发表于 2022-2-15 16:20
既能能够访问  usercontrol模块中的InitTreeView方法，那么问题会不会出方法中：
Dim Trv As TreeView = ...

你sheet增加事件和你初始化CTP中都是new的一个新对象，两个窗体不是同一个对象，用一个全局变量，单例模式就行。

myperworld

wodewan 发表于 2022-2-15 16:51
你sheet增加事件和你初始化CTP中都是new的一个新对象，两个窗体不是同一个对象，用一个全局变量，单例模 ...

感谢老师，成功了！！！但我稍微优化下增加了删除事件，没有效果，这是什么原因呢？
thisaddin代码：

1. Imports Microsoft.Office.Interop.Excel
   
2. Public Class ThisAddIn
   
3.     Private Sub ThisAddIn_Startup() Handles Me.Startup
   
4.         xlapp = Me.Application
   
5.         AddHandler xlapp.WindowActivate, AddressOf xlapp_WindowActivate '多窗口显示
   
6.         AddHandler xlapp.WorkbookNewSheet, AddressOf xlapp_WorkbookNewSheet '新增工作表事件
   
7.         AddHandler xlapp.SheetBeforeDelete, AddressOf xlapp_SheetBeforeDelete '删除工作表事件
   
8. 
   
9.         Call M_UC.CreateUC() '创建usercontrol
   
10.     End Sub
    
11.     Private Sub xlapp_WindowActivate()
    
12.         Call M_UC.CreateUC() '当激活新的excel工作簿，创建usercontrol
    
13.     End Sub
    
14. 
    
15.     Private Sub xlapp_WorkbookNewSheet() '新增工作表事件
    
16.         Call M_UC.UC_BookMark.InitTreeView()
    
17.     End Sub
    
18. 
    
19.     Private Sub xlapp_SheetBeforeDelete() '删除工作表事件------没有效果？？？？
    
20.         Call M_UC.UC_BookMark.InitTreeView()
    
21.     End Sub
    
22. 
    
23. End Class
    

复制代码

zpy2

myperworld 发表于 2022-2-15 16:14
调试了，能够调用InitTreeView方法，也查看了treeview的变量，已经包含了新增增加的工作表，但是界面上tr ...

https://docs.microsoft.com/zh-tw/dotnet/api/system.windows.forms.treeview.endupdate?redirectedfrom=MSDN&view=windowsdesktop-6.0#System_Windows_Forms_TreeView_EndUpdate
endupdate试试。。。微软。。。。

myperworld

研究出来了，带入工作表名参数就可以了，然后在InitTreeView做相应修改。

1. Imports Microsoft.Office.Interop.Excel
   
2. 
   
3. Public Class ThisAddIn
   
4. 
   
5.     Private Sub ThisAddIn_Startup() Handles Me.Startup
   
6.         xlapp = Me.Application
   
7.         AddHandler xlapp.WindowActivate, AddressOf xlapp_WindowActivate '多窗口显示
   
8.         AddHandler xlapp.WorkbookNewSheet, AddressOf xlapp_WorkbookNewSheet '新增工作表事件
   
9.         AddHandler xlapp.SheetBeforeDelete, AddressOf xlapp_SheetBeforeDelete '删除工作表事件
   
10.         AddHandler xlapp.WindowResize, AddressOf xlapp_WindowResize '改变尺寸
    
11.         Call M_UC.CreateUC() '创建usercontrol
    
12.     End Sub
    
13.     Private Sub xlapp_WindowActivate()
    
14.         Call M_UC.CreateUC() '当激活新的excel工作簿，创建usercontrol
    
15.     End Sub
    
16.     Private Sub xlapp_WorkbookNewSheet() '新增工作表事件
    
17.         Call M_UC.UC_BookMark.InitTreeView()
    
18.     End Sub
    
19.     Private Sub xlapp_SheetBeforeDelete(ByVal sh As Excel.Worksheet) '删除工作表事件
    
20.         Call M_UC.UC_BookMark.InitTreeView(del_shtname:=sh.Name)
    
21.     End Sub
    
22.     Private Sub xlapp_WindowResize() '
    
23.         Call M_UC.UC_BookMark.InitTreeView()
    
24.     End Sub
    
25. End Class
    

复制代码

谢谢@wodewan老师！！