用AE创建气泡式提示框的方法-VB.Net源码，转载

用AE创建气泡式提示框的方法-VB.Net源码

原文地址:http://www.cnblogs.com/wall/archive/2008/07/17/1244942.html

''' <summary>

''' 创建文本提示框

''' </summary>

''' <param name="x">提示框标识的位置X坐标</param>

''' <param name="y">提示框标识的位置Y坐标</param>

''' <param name="pTextString">提示框中显示的文本</param>

''' <param name="pPoint">提示框箭头指向的点</param>

''' <param name="pGraphicsContainer">包含提示框的graphicscontainer</param>

''' <returns></returns>

''' <remarks></remarks>

Public Function

CreateTextElement(ByVal x As Double, ByVal y As Double, ByVal

pTextString As String, Optional ByVal pPoint As IPoint = Nothing,

Optional ByVal pGraphicsContainer As IGraphicsContainer = Nothing) As

IElement

Dim pElement As IElement = New MarkerElementClass()

Dim pTElement As IElement = New TextElementClass()

Dim pTextSymbol As IFormattedTextSymbol = New TextSymbolClass()

Dim pBalloonCallout As IBalloonCallout = CreateBalloonCallout(x, y)

Dim pColor As IRgbColor = New RgbColorClass()

pColor.Red = 150

pColor.Green = 0

pColor.Blue = 0

pTextSymbol.Color = pColor

Dim pTextBackground As ITextBackground

pTextBackground = pBalloonCallout

pTextSymbol.Background = pTextBackground

pTextSymbol.Size = 8

CType(pTElement, ITextElement).Symbol = pTextSymbol

CType(pTElement, ITextElement).Text = pTextString

If pPoint Is Nothing Then pPoint = New Point : pPoint.PutCoords(x + Const_Dis, y + Const_Dis)

pTElement.Geometry = pPoint

pGraphicsContainer.AddElement(pTElement, 1)

Return pTElement

End Function

''' <summary>

''' 创建balloon型提示框

''' </summary>

''' <param name="x">提示框所在位置X坐标</param>

''' <param name="y">提示框所在位置Y坐标</param>

''' <returns></returns>

''' <remarks></remarks>

Public Function CreateBalloonCallout(ByVal x As Double, ByVal y As Double) As IBalloonCallout

Dim pRgbClr As IRgbColor = New RgbColorClass()

pRgbClr.Red = 255

pRgbClr.Blue = 255

pRgbClr.Green = 255

Dim pSmplFill As ISimpleFillSymbol = New SimpleFillSymbolClass()

pSmplFill.Color = pRgbClr

pSmplFill.Style = esriSimpleFillStyle.esriSFSSolid

Dim pBllnCallout As IBalloonCallout = New BalloonCalloutClass()

pBllnCallout.Style = esriBalloonCalloutStyle.esriBCSRoundedRectangle

pBllnCallout.Symbol = pSmplFill

pBllnCallout.LeaderTolerance = 1

Dim pPoint As IPoint = New ESRI.ArcGIS.Geometry.PointClass()

pPoint.X = x

pPoint.Y = y

pBllnCallout.AnchorPoint = pPoint

Return pBllnCallout

End Function