addin.bas

在vb中镶入汇编、VC

Attribute VB_Name = "modAddIn"
Option Explicit

Declare Function WritePrivateProfileString& Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal FileName$)

Public Const ADDIN_NAME = "CompileController"

'To define the caption that appears in the Add-In Manager window go to the
'Object Browser (F2), select clsConnect, right click, select "Properties ..."
'VB's "Member Options" dialog should appear.  In the "Description" text box
'enter the caption you want to appear in the Add-Manager window.

Public theConnection As clsConnect

Dim mfrmControlPanel As frmControlPanel

Public Sub InitializeAddIn()
    'put any desired initialization code here
End Sub

'This procedure must be executed before VB's Add-In Manager will
'recognize the add-in as available.  Normally the procedure should be
'executed by the setup program.  During program development you will need
'to run it once in the immediate window to make the add-in available in
'your local environment.
Public Sub CreateError(ByVal sErrorDescription As String)
    MsgBox "Error: " & "[" & ADDIN_NAME & " Add-In] " & sErrorDescription
    'Debug.Print "[" & ADDIN_NAME & " Add-In] " & sErrorDescription
End Sub

Public Function ShowControlPanel(ByRef sApplicationName As String, ByRef sCommandLine As String, bRefreshModuleList As Boolean) As String

    On Error GoTo EH
    
    If mfrmControlPanel Is Nothing Then
        Set mfrmControlPanel = New frmControlPanel
        bRefreshModuleList = True
    End If

    mfrmControlPanel.Activate sApplicationName, sCommandLine, bRefreshModuleList

    With mfrmControlPanel
        Select Case .msUserAction
            Case "Next Module"
                ShowControlPanel = .msUserModules
            Case "Finish Compile", "Skip to Link"
                ShowControlPanel = .msUserAction
            Case Else
                ShowControlPanel = ""
        End Select
    End With

    Exit Function

EH:
    CreateError "Unexpected error trying to show control panel: " & Err.Description
   
End Function

Sub HideControlPanel()
    On Error GoTo EH
    mfrmControlPanel.Hide
    Exit Sub
EH:
    CreateError "Unexpected error trying to hide control panel: " & Err.Description
End Sub

'Customize appropriately
Public Sub DisconnectAddIn()
    If mfrmControlPanel Is Nothing Then
        'we are done
    Else
        Unload mfrmControlPanel
    End If
    UnhookCreateProcess False   'silently unhook it
End Sub