accessaddin.dsr

《Wrox Excel 2003 VBA Programmers Reference》 （Jun.2004）的源码

VERSION 5.00
Begin {AC0714F6-3D04-11D1-AE7D-00A0C90F26F4} AccessAddin 
   ClientHeight    =   6840
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7584
   _ExtentX        =   13377
   _ExtentY        =   12065
   _Version        =   393216
   Description     =   "Exposes the Addin to MS-Access"
   DisplayName     =   "Excel 2003 Sequence"
   AppName         =   "Microsoft Access"
   AppVer          =   "Microsoft Access 11.0"
   LoadName        =   "Startup"
   LoadBehavior    =   3
   RegLocation     =   "HKEY_CURRENT_USER\Software\Microsoft\Office\Access"
End
Attribute VB_Name = "AccessAddin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Sub AddinInstance_OnConnection(ByVal Application As Object, _
  ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _
  ByVal AddInInst As Object, custom() As Variant)

  MsgBox "Connected"
  AddInInst.object = Me
    
End Sub

Public Property Get SimpleObject() As Simple
  Set SimpleObject = New Simple
End Property