appcontext.cls

来自「VB圣经」· CLS 代码 · 共 43 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "AppContext"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'***************************************************************
' (c) Copyright 2000 Matthew J. Curland
'
' This file is from the CD-ROM accompanying the book:
' Advanced Visual Basic 6: Power Techniques for Everyday Programs
'   Author: Matthew Curland
'   Published by: Addison-Wesley, July 2000
'   ISBN: 0-201-70712-8
'   http://www.PowerVB.com
'***************************************************************
Option Explicit

Private m_Hook As UnknownHook

Private Sub Class_Initialize()
Dim AggData(0) As AggregateData
Dim IIDs() As IID
    'Turn this into a collection
    With AggData(0)
        .Flags = adIgnoreIIDs
        Set .pObject = New Collection
    End With
    VBoost.AggregateUnknown Me, AggData, IIDs, m_Hook
End Sub

Public Function ShowNewForm(FullOcxPath As String, ControlOrCLSID As String, Optional RTLicenseKey As String) As Object
    Set ShowNewForm = modMain.ShowNewForm(FullOcxPath, ControlOrCLSID, RTLicenseKey)
End Function