图层标注

如何在mapobject里面实现图层的标注？<img src="images/post/smile/dvbbs/em45.gif" />

<P>拷贝了一个例子，看看吧</P><P>Option Explicit
Dim mlyr As New MapObjects2.MapLayer
Dim fnt As New stdole.StdFont</P><P>Private Sub Command1_Click()</P><P>Dim lr As New MapObjects2.LabelRenderer
lr.Field = "strvalue"
Set lr.Symbol(0).Font = fnt
lr.Symbol(0).Height = 0.2
Set mlyr.Renderer = lr
Map1.Refresh</P><P>End Sub</P><P>Private Sub Command2_Click()</P><P>Dim lr As New MapObjects2.LabelRenderer
lr.Field = "strvalue"
Set lr.Symbol(0).Font = fnt
Set mlyr.Renderer = lr
Map1.Refresh</P><P>End Sub</P><P>Private Sub Command3_Click()</P><P>Set mlyr.Renderer = Nothing
Set Map1.Extent = Map1.FullExtent</P><P>End Sub</P><P>Private Sub Command4_Click()</P><P>Dim lp As New MapObjects2.LabelPlacer
lp.Field = "strvalue"
Set lp.DefaultSymbol.Font = fnt
lp.DefaultSymbol.Height = 0.2
Set mlyr.Renderer = lp
Map1.Refresh</P><P>End Sub</P><P>Private Sub Command5_Click()</P><P>Dim lp As New MapObjects2.LabelPlacer
lp.Field = "strvalue"
Set lp.DefaultSymbol.Font = fnt
Set mlyr.Renderer = lp
Map1.Refresh</P><P>End Sub</P><P>Private Sub Command6_Click()</P><P>Set Map1.Extent = Map1.FullExtent</P><P>End Sub</P><P>Private Sub Form_Load()</P><P>'Load shapefile as new layer
Dim dc As New MapObjects2.DataConnection
dc.Database = App.Path
dc.Connect
Set mlyr.GeoDataset = dc.FindGeoDataset("hundred2")
mlyr.Symbol.Color = moLightGray
Map1.Layers.Add mlyr</P><P>'Zoom out a bit
Dim rect As MapObjects2.Rectangle
Set rect = Map1.FullExtent
rect.ScaleRectangle 1.1
Set Map1.FullExtent = rect
Set Map1.Extent = rect</P><P>'Font
With fnt
  .Name = "Arial"
  .Size = 12
End With</P><P>End Sub</P><P>Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</P><P>If Shift = 0 Then
  If Button = 1 Then
   Set Map1.Extent = Map1.TrackRectangle
    Else
     Map1.Pan
  End If
 Else
  If Button = 1 Then
    Dim rect As MapObjects2.Rectangle
     Set rect = Map1.Extent
     rect.ScaleRectangle (1.2)
     Set Map1.Extent = rect
   Else
     Set Map1.Extent = Map1.FullExtent
  End If
End If</P><P>End Sub</P><P>去<a href="http://www.gisempire.com/data" target="_blank" >www.gisempire.com/data</A>，里面的资料比较详细，可以看看</P>

<P>谢谢总统</P>

学习一下

<P>不错两种标文字的（LabelRender）（LabelPlacer
）方法都举例了，</P><img src="images/post/smile/dvbbs/em02.gif" />