首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >Mapx实现双标注

Mapx实现双标注

作者头像
用户1075292
发布2018-01-23 14:26:28
4390
发布2018-01-23 14:26:28
举报
文章被收录于专栏:听雨堂听雨堂
  Dim lyr As Layer
 Private Sub Command1_Click()
  Dim ds As MapXLib.Dataset
   Set ds = Map1.DataSets.Item(1)
   lyr.LabelProperties.Overlap = True
   lyr.LabelProperties.Position = miPositionBC
   lyr.LabelProperties.Offset = 5
   lyr.LabelProperties.Style.TextFont.Size = 10
   lyr.LabelProperties.Style.TextFontColor = RGB(255, 0, 0)
   lyr.AutoLabel = True
    Set lyr.LabelProperties.Dataset = ds
   lyr.Visible = True
   Set lyr.LabelProperties.DataField = ds.Fields("f_value")
   'Map1.Layers.Item("观测站").Visible = False
   MsgBox lyr.Name
 End Sub
 
Private Sub Command2_Click()
   Map1.CurrentTool = miZoomInTool
 End Sub
Private Sub Form_Load()
     ChDrive App.Path
   ChDir App.Path
   Map1.GeoSet = "map/all.gst"
 
     Dim li As New MapXLib.LayerInfo
   li.Type = miLayerInfoTypeTab
   li.AddParameter "FileSpec", App.Path & "\Map\all\data\观测站.tab"
   li.AddParameter "Visible", False
   li.AddParameter "AutoCreateDataset", True
   li.AddParameter "DatasetName", "ll"
     'MsgBox Map1.Layers.Count
 
   Set lyr = Map1.Layers.Add(li)
   'MsgBox Map1.Layers.Count
 End Sub
 
本文参与 腾讯云自媒体分享计划,分享自作者个人站点/博客。
原始发表:2008-07-21 ,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体分享计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档