dynamicmdi.ctl

来自「VB圣经」· CTL 代码 · 共 39 行

VERSION 5.00
Begin VB.UserControl ctlDynamic 
   ClientHeight    =   1860
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3165
   ClipControls    =   0   'False
   HasDC           =   0   'False
   ScaleHeight     =   1860
   ScaleWidth      =   3165
End
Attribute VB_Name = "ctlDynamic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'***************************************************************
' (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_OcxLoadData As OcxLoadData

Private Sub UserControl_Initialize()
    If Len(g_OcxTargetData.TargetOcx) = 0 Then Exit Sub
    LoadWrappedOcxFromGlobalTargetData m_OcxLoadData, Me
End Sub

Private Sub UserControl_Terminate()
    UnloadWrappedOCX m_OcxLoadData
End Sub