idddtext.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 = "IDDDText"
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]

Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit


Public Function BoundingBox() As IGeometry

End Function


Public Property Get TextType() As String
End Property
Public Property Let TextType(sInType As String)
End Property

Public Property Get Enabled() As Boolean
End Property
Public Property Let Enabled(bInEnable As Boolean)
End Property

Public Property Get AutoAdjust() As Boolean
End Property
Public Property Let AutoAdjust(bAdjust As Boolean)
End Property

Public Property Get Message() As String
End Property
Public Property Let Message(sInMsg As String)
End Property

Public Property Get Alignment() As enumDDDTextAlignment
End Property
Public Property Let Alignment(pInAlignment As enumDDDTextAlignment)
End Property

Public Property Get Origin() As IPoint
End Property
Public Property Set Origin(pInOrg As IPoint)
End Property

Public Property Get UseDefaultColor() As Boolean
End Property
Public Property Let UseDefaultColor(bUseDefColor As Boolean)
End Property

Public Property Get Color() As IRgbColor
End Property
Public Property Set Color(pInColor As IRgbColor)
End Property

Public Property Get FontName() As String
End Property
Public Property Let FontName(sInFontName As String)
End Property

Public Property Get FontSize() As Double
End Property
Public Property Let FontSize(dInFontSize As Double)
End Property

Public Property Get MinDisplayDist() As Double
End Property
Public Property Let MinDisplayDist(dInMinDist As Double)
End Property

Private Property Get DisplayList() As Long
End Property

Public Sub Initialize(sInMessage As String, _
                                pInOrigin As IPoint, _
                                dInFontSize As Double, _
                                dInXScale As Double, _
                                dInYScale As Double, _
                                dInZScale As Double, _
                                pInColor As IRgbColor, _
                                dInXRot As Double, _
                                dInYRot As Double, _
                                dInZRot As Double, _
                                sInFontName As String, _
                                sInType As String, bBillBoarding As Boolean, Optional dInMinDispDist As Double = -1)
End Sub

Public Sub SetTextScale(dInXScale As Double, dInYScale As Double, dInZScale As Double)
End Sub
Public Sub GetTextScale(dOutXScale As Double, dOutYScale As Double, dOutZScale As Double)
End Sub

Public Sub SetAxisRotation(Optional dInXRot As Double = 0#, _
                                          Optional dInYRot As Double = 0#, _
                                          Optional dInZRot As Double = 0#)
End Sub
Public Sub GetAxisRotation(dOutXRot As Double, _
                                          dOutYRot As Double, _
                                          dOutZRot As Double)
End Sub

Public Sub Draw(ByVal pViewer As esri3DAnalyst.ISceneViewer)
End Sub