clsmenufloodanalysis.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsMenuFloodAnalysis"
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.clsAnalysisPolyExtract"         '''提取栅格图斑
        Case 1
          itemDef.ID = "FloodEvaluation.clsAnalysisPoly2R"              '''多边形转栅格
        Case 2
          itemDef.ID = "FloodEvaluation.clsAnalysisWaterRange"          '''洪水淹没范围
        Case 3
          itemDef.ID = "FloodEvaluation.clsAnalysisWaterDepth"          '''洪水淹没深度
'        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