clsalign.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 = "clsAlign"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Implements IMenuDef
Implements IRootLevelMenu


Private Property Get IMenuDef_Caption() As String
    IMenuDef_Caption = "MyAlign"
End Property

Private Sub IMenuDef_GetItemInfo(ByVal pos As Long, ByVal itemDef As esriCore.IItemDef)
    Select Case pos
        Case 0
            itemDef.ID = "proAlign.clsItem"
            itemDef.Group = False
    End Select
End Sub

Private Property Get IMenuDef_ItemCount() As Long
    IMenuDef_ItemCount = 6
End Property

Private Property Get IMenuDef_Name() As String
    IMenuDef_Name = "MyAlign"
End Property