custimagecombo.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 = "CustImageCombo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Implements ICommand
Implements IToolControl

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

Private Property Get ICommand_Caption() As String
  ICommand_Caption = "Custom ImageCombo"
End Property

Private Property Get ICommand_Category() As String
  ICommand_Category = "Developer Samples"
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
    ICommand_Message = "Change feature selection color"
End Property

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

Private Sub ICommand_OnClick()
End Sub

Private Sub ICommand_OnCreate(ByVal hook As Object)
    Set g_pApplication = hook
End Sub

Private Property Get ICommand_Tooltip() As String
    ICommand_Tooltip = "Change Selection Color"
End Property

Private Property Get IToolControl_hWnd() As esriCore.OLE_HANDLE
    ' 将frmImageCombo.ImageCombo1的Window Handle赋给IToolControl_hWnd
    'IToolControl_hWnd = frmImageCombo.ImageCombo1.hWnd
End Property

Private Function IToolControl_OnDrop(ByVal barType As esriCore.esriCmdBarType) As Boolean
    '仅能将ToolControl拖放到ToolBar上
    If barType = esriCmdBarTypeToolbar Then
        IToolControl_OnDrop = True
    End If
End Function

Private Sub IToolControl_OnFocus(ByVal complete As esriCore.ICompletionNotify)
    Set g_pCompletionNotify = complete
End Sub