ArcPad Scripting Object Model
Extent Property
See Also  Example  Send comments on this topic.
Ellipse Object : Extent Property

Glossary Item Box

Description

Returns or sets the extent of the ellipse.

Property type

Read-write property

Syntax

object.Extent = [ value ]

Return Type

Example

Draws text on the screen using the DrawText method of the Map object.
DrawText Example (VBScript)Copy Code
Sub DrawText
      'Create an ellipse object and set its extent to 40% of the current map extent
      Dim pEllipse, pRect
      Set pEllipse = Application.CreateAppObject ("ellipse")
      Set pRect = Map.Extent
      pRect.ScaleRectangle 0.4
      pEllipse.Extent = pRect
      
      'Create a font object and set it to bold and underlined
      Dim pFont
      Set pFont = Application.CreateAppObject ("font")
      pFont.Bold = True
      pFont.Underline = True
      
      'Create some text to display
      Dim strText
      strText = "I Love ArcPad"
      
      'Create a textsymbol object and set some display properties
      Dim pTextSymbol
      Set pTextSymbol = Application.CreateAppObject ("textsymbol")
      
      pTextSymbol.Font = pFont
      pTextSymbol.Angle = 30.0
      pTextSymbol.BackgroundColor = 255  'red
      pTextSymbol.BackgroundMode = 2  'opaque
      pTextSymbol.Color = 8388736  'purple
      pTextSymbol.Size = 25
      
      'Draw the text to the screen
      Map.DrawText strText, pEllipse, pTextSymbol
      
      'Free resources
      Set pEllipse = Nothing
      Set pRect = Nothing
      Set pFont = Nothing
      Set pTextSymbol = Nothing
End Sub

See Also

© 2012 All Rights Reserved.