clsmenupreevaluation.cls

FloodEvaluation-程序是gis方面的程序

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsMenuEvaluationPre"
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.clsWaterRangePre"         '''洪水范围估计
        Case 1
          itemDef.ID = "FloodEvaluation.clsWaterDepthPre"         '''洪水深度估计
        Case 2
          itemDef.ID = "FloodEvaluation.clsEvaluatePopulatePre"   '''受灾人口估计
          itemDef.Group = True
        Case 3
          itemDef.ID = "FloodEvaluation.clsEvaluateCropPre"       '''受灾作物估计
'        Case 4
''          itemDef.Group = True
'          itemDef.ID = "FloodEvaluation.clsEvaluateCrop"
'          itemDef.Group = True
'        Case 5
'          itemDef.ID = "FloodEvaluation.clsEvaluateOther"
'          itemDef.Group = True
'        Case 6
'          itemDef.ID = "FloodEvaluation.clsEvaluatePopulation"
'          itemDef.Group = True
'        Case 7
'          itemDef.ID = "FloodEvaluation.clsSumDistrict"
'          itemDef.Group = True
        
    End Select
    
End Sub


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


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