VB.NET Excel插件开发教程：创建自定义工具栏

vb.net 开发中使用excel 插件学习方法及代码

做excel插件开发，可能需要为excel添加自定义的工具栏。这个也是非常的简单的。 
  
Public Class ConnectClass Connect 
     
    Implements Extensibility.IDTExtensibility2 
    Dim app As Excel.Application 
    Dim wb As Excel.Workbook 
    Dim ws As Excel.Worksheet 
    Dim addInInstance As Object 
    Dim pasteText As Microsoft.Office.Core.CommandBarButton  ‘定义一个工具栏按钮 
  
    Public Sub OnBeginShutdown()Sub OnBeginShutdown(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnBeginShutdown 
    End Sub 
     
    Public Sub OnAddInsUpdate()Sub OnAddInsUpdate(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnAddInsUpdate 
    End Sub 
     
    Public Sub OnStartupComplete()Sub OnStartupComplete(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnStartupComplete 
    End Sub 
     
    Public Sub OnDisconnection()Sub OnDisconnection(ByVal RemoveMode As Extensibility.ext_DisconnectMode, ByRef custom As System.Array)
 Implements Extensibility.IDTExtensibility2.OnDisconnection 
    End Sub     
    Public Sub OnConnection()Sub OnConnection(ByVal application As Object, ByVal connectMode As Extensibility.ext_ConnectMode, 
ByVal addInInst As Object, ByRef custom As System.Array) 
Implements Extensibility.IDTExtensibility2.OnConnection 
        If TypeOf (application) Is Excel.Application Then app = CType(application, Excel.Application) 
        addInInstance = addInInst