class1.cls

这是一个非常全的VB+AO二次开发实例集

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Class1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Implements ICommand
Dim m_pApp As IApplication
Dim m_pDWMgr As IDockableWindowManager
Dim m_pDWin As IDockableWindow

Private Property Get ICommand_Bitmap() As esriCore.OLE_HANDLE
End Property

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

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

Private Property Get ICommand_Checked() As Boolean
End Property

Private Property Get ICommand_Enabled() As Boolean
    ICommand_Enabled = True
End Property

Private Property Get ICommand_HelpContextID() As Long
End Property

Private Property Get ICommand_HelpFile() As String
End Property

Private Property Get ICommand_Message() As String
End Property

Private Property Get ICommand_Name() As String
    ICommand_Name = "DocWin"
End Property

Private Sub ICommand_OnClick()
    m_pDWin.Show Not m_pDWin.IsVisible
End Sub

Private Sub ICommand_OnCreate(ByVal hook As Object)
    Set m_pApp = hook
    ' QI(Dockable Window)
    Set m_pDWMgr = hook
    Dim pid As New UID
    pid.Value = "Prodockablewindow.Clsdockablewindow"
    Set m_pDWin = m_pDWMgr.GetDockableWindow(pid)
End Sub

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