imports Extensibility imports System.Runtime.InteropServices Imports System.Windows.Forms #Region " Read me for Add-in installation and setup information. " ' When run, the Add-in wizard prepared the registry for the Add-in. ' At a later time, if the Add-in becomes unavailable for reasons such as: ' 1) You moved this project to a computer other than which is was originally created on. ' 2) You chose 'Yes' when presented with a message asking if you wish to remove the Add-in. ' 3) Registry corruption. ' you will need to re-register the Add-in by building the $SAFEOBJNAME$Setup project, ' right click the project in the Solution Explorer, then choose install. #End Region <GuidAttribute("B20BB3CB-DD3E-435E-B0F2-E521D7F37F1C"), ProgIdAttribute("Vanilla.Connect")> _ Public Class Connect Implements Extensibility.IDTExtensibility2 Dim applicationObject as Object Dim addInInstance as object Public Sub OnBeginShutdown(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnBeginShutdown End Sub Public Sub OnAddInsUpdate(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnAddInsUpdate End Sub Public Sub OnStartupComplete(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnStartupComplete MessageBox.Show("OnStartupComplete", "Debug", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub Public Sub OnDisconnection(ByVal RemoveMode As Extensibility.ext_DisconnectMode, ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnDisconnection End Sub Public 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 applicationObject = application addInInstance = addInInst MessageBox.Show("OnConnection", "Debug", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub End Class
From novice to tech pro — start learning today.