clsdockablewindow.cls

来自「这是一个非常全的VB+AO二次开发实例集」· CLS 代码 · 共 42 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsDockableWindow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Implements IDockableWindowDef
Dim m_pApplication As IApplication

Private Property Get IDockableWindowDef_Caption() As String
    IDockableWindowDef_Caption = "Dockable Window"
End Property

Private Property Get IDockableWindowDef_ChildHWND() As esriCore.OLE_HANDLE
    '将FrmDWin窗口的Handle赋给IDockableWindowDef_ChildHWND
    IDockableWindowDef_ChildHWND = FrmDWin.hWnd
End Property

Private Property Get IDockableWindowDef_Name() As String
    IDockableWindowDef_Name = "docwin"
End Property

Private Sub IDockableWindowDef_OnCreate(ByVal hook As Object)
    Set m_pApplication = hook
End Sub

Private Sub IDockableWindowDef_OnDestroy()
    Set m_pApplication = Nothing
End Sub

Private Property Get IDockableWindowDef_UserData() As Variant
End Property