clslabel3dmnu.cls

gis地图 --- --- --文字1

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Label3DMNU"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True

' Copyright 1995-2004 ESRI

' All rights reserved under the copyright laws of the United States.

' You may freely redistribute and use this sample code, with or without modification.

' Disclaimer: THE SAMPLE CODE IS PROVIDED "AS IS" AND ANY EXPRESS OR IMPLIED 
' WARRANTIES, INCLUDING THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS 
' FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL ESRI OR 
' CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, 
' OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
' SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
' INTERRUPTION) SUSTAINED BY YOU OR A THIRD PARTY, HOWEVER CAUSED AND ON ANY 
' THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ARISING IN ANY 
' WAY OUT OF THE USE OF THIS SAMPLE CODE, EVEN IF ADVISED OF THE POSSIBILITY OF 
' SUCH DAMAGE.

' For additional information contact: Environmental Systems Research Institute, Inc.

' Attn: Contracts Dept.

' 380 New York Street

' Redlands, California, U.S.A. 92373 

' Email: [e-mail]

Option Explicit

Implements IMenuDef
Implements IRootLevelMenu
Private Property Get IMenuDef_Caption() As String
    IMenuDef_Caption = "3D Labels"
End Property

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

        Case 0
            itemDef.ID = "Label3DToolbar.MNULayerFont"
            itemDef.Group = False
        Case 1
            itemDef.ID = "Label3DToolbar.MNULayerRotation"
            itemDef.Group = True
        Case 2
            itemDef.ID = "Label3DToolbar.MNULayerOffset"
            itemDef.Group = False
        Case 3
            itemDef.ID = "Label3DToolbar.MNULayerBB"
            itemDef.Group = True
        Case 4
            itemDef.ID = "Label3DToolbar.MNUGetDefaults"
            itemDef.Group = True
        Case 5
            itemDef.ID = "Label3DToolbar.MNUPersist"
            itemDef.Group = True
            
        
    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 = "Label3D.Label3DMNU"
End Property