clsmenuitem.cls

来自「FloodEvaluation-程序是gis方面的程序」· CLS 代码 · 共 66 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsMenuItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'************************************************************************************************
'*********************** 洪水分析子菜单                                    ***********************
'*********************** ZHANG Wenjiang, 2004/05/14                       ***********************
'************************************************************************************************

Option Explicit

Implements IMenuDef
'Implements IRootLevelMenu

Private Sub Class_Terminate()
    On Error Resume Next

End Sub

Private Property Get IMenuDef_Caption() As String
    IMenuDef_Caption = "洪损评估"
End Property

Private Sub IMenuDef_GetItemInfo(ByVal pos As Long, ByVal itemDef As esriCore.IItemDef)
    
    Select Case pos

        Case 0
          itemDef.id = "FloodEvaluation.clsWaterRange"           '''淹没范围
'          itemDef.Group = True
        Case 1
          itemDef.id = "FloodEvaluation.clsWaterDepth"           '''淹没水深
'          itemDef.Group = True
        Case 2
          itemDef.id = "FloodEvaluation.clsMenuEvaluation"
        Case 3
          itemDef.id = "FloodEvaluation.clsMenuEvaluationPre"
        Case 4
          itemDef.id = "FloodEvaluation.clsEvaluateWizard"       '''评估向导
          itemDef.Group = True
        
    End Select
    
End Sub


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


Private Property Get IMenuDef_Name() As String
    IMenuDef_Name = "FloodEvaluation.clsMenuItem"  'Label3D.Label3DMNU"
End Property