GPS问题之一（续）

[vc_boy]

在车辆的图标边上同步的加上一个标签这个问题我用CreateText解决了，但问题是，当地图一放大，这个标签也会同步放大，有什么方法可以让这个标签保持大小不变？

[网事随逢]

你可以动态的改变Label的size；
根据当前地图的显示比例，可以控制一个size的范围。

没有试过，仅供参考。

[fkfhhfh]

取消标签与比例尺的关联，保持恒定大小就行了。

[echo20003]

你不一定用CreateText解决，你可以图层的LabelProperties去试试啊！
标签保持大小不变！

[gpsgis]

Public Sub ReDraw_Car(byval objMap As Map)
Dim FoundObj As MapXLib.Feature
Dim FoundObj1 As MapXLib.Feature
Dim Layer As Layer
Dim fs As MapXLib.Features
Dim i As Integer

On Error GoTo LabErr

Set Layer = objMap.Layers(MapTempLayer1)
Set fs = Layer.AllFeatures
For i = 1 To fs.count
Set FoundObj = fs.Item(i)
If FoundObj.Type = miFeatureTypeText Then
FoundObj.Style = CarTextStyle
Set FoundObj1 = FindObj_InMap(MapTempLayer1, FoundObj.Caption, objmap)
If Not (FoundObj1 Is Nothing) Then
Set FoundObj.Point = FoundObj1.Point
FoundObj.Update
End If
End If
Next

Set FoundObj = Nothing
Exit Sub

LabErr:
Exit Sub
End Sub

'在指定图层查找指定对象
Public Function FindObj_InMap(LayerName As String, objname As String, objMap As Map) As MapXLib.Feature
Dim Layer As MapXLib.Layer
Dim fid As Integer

On Error GoTo LabErr
' fid = 0
Set Layer = objMap.Layers(LayerName)
fid = Layer.FeatureIDFromFeatureName(objname)
Set FindObj_InMap = Layer.GetFeatureByID(fid)
Exit Function
LabErr:
Set FindObj_InMap = Nothing
Exit Function
End Function