clsmenuevaluation.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 = "clsMenuEvaluation"
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.Group = True
          itemDef.id = "FloodEvaluation.clsEvaluateCrop"         '''受灾人口
          itemDef.Group = True
        Case 3
          itemDef.id = "FloodEvaluation.clsEvaluatePopulation"   '''作物损失
'          itemDef.Group = True
        Case 4
'          itemDef.Group = True
          itemDef.id = "FloodEvaluation.clsEvaluateUtilities"    '''线状设施
'          itemDef.Group = True
        Case 5
'          itemDef.Group = True
          itemDef.id = "FloodEvaluation.clsEvaluatePlane"        '''面状设施
        Case 6
          itemDef.id = "FloodEvaluation.clsEvaluateSum"          '''损失统计
'          itemDef.Group = True
        Case 7
          itemDef.id = "FloodEvaluation.clsEvaluateWizard"       '''评估向导
          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 = 8
End Property


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