自动标注.txt

来自「mapxtrexe查看地图,查询图层,按名查找等」· 文本 代码 · 共 7 行

 Dim layer As New MapInfo.Mapping.LabelLayer
        Dim map As Map = MapInfo.Engine.Session.Current.MapFactory(MapControl1.MapAlias)

        Dim source As New MapInfo.Mapping.LabelSource(MapInfo.Engine.Session.Current.Catalog.GetTable("Citys"))
        source.DefaultLabelProperties.Caption = "Name"        '标注用到的那个字段名称
        layer.Sources.Append(source)
        map.Layers.Add(layer)