clsitem.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 = "clsItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Implements IMultiItem


Private Property Get IMultiItem_Caption() As String
    IMultiItem_Caption = "Item"
End Property

Private Property Get IMultiItem_HelpContextID() As Long

End Property

Private Property Get IMultiItem_HelpFile() As String

End Property

Private Property Get IMultiItem_ItemBitmap(ByVal Index As Long) As esriCore.OLE_HANDLE

End Property

Private Property Get IMultiItem_ItemCaption(ByVal Index As Long) As String
    Select Case Index
        Case 0
            IMultiItem_ItemCaption = "Align Left"
        Case 1
            IMultiItem_ItemCaption = "Align Center"
        Case 2
            IMultiItem_ItemCaption = "Align Right"
        Case 3
            IMultiItem_ItemCaption = "Align Top"
        Case 4
            IMultiItem_ItemCaption = "Align Vertical Center"
        Case 5
            IMultiItem_ItemCaption = "Align Bottom"
    End Select
End Property

Private Property Get IMultiItem_ItemChecked(ByVal Index As Long) As Boolean

End Property

Private Property Get IMultiItem_ItemEnabled(ByVal Index As Long) As Boolean
    IMultiItem_ItemEnabled = True
End Property

Private Property Get IMultiItem_Message() As String

End Property

Private Property Get IMultiItem_Name() As String
    IMultiItem_Name = "Item"
End Property

Private Sub IMultiItem_OnItemClick(ByVal Index As Long)
    Align Index
End Sub

Private Function IMultiItem_OnPopup(ByVal hook As Object) As Long
    Set m_pApplication = hook
    IMultiItem_OnPopup = 6
End Function