jgh
jgh
路人甲
路人甲
  • 注册日期2003-11-19
  • 发帖数65
  • QQ
  • 铜币202枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1789回复:2

VB+MAPX 如何动获得选择刚添加的图元的SELECTION

楼主#
更多 发布于:2004-02-21 17:13
请教:
1  VB+MAPX , 我已实现添加一个面图元到指定图层。(使用原有工具 )
2  怎样实现第一条完成后,自动获得选择刚添加的图元的SELECTION。
3 我想实现添加面图元后,自动提示改变该面图元颜色。
4   Dim j As MapXLib.Features
    Dim F As MapXLib.Feature
    Dim rvs As MapXLib.RowValues
    Dim jj1 As Long
Map1.Refresh
Map1.Layers.Item(val(ToolBars.Combo3.ListIndex + 1)).Refresh
jj1 = Formmain.Map1.Layers.Item(val(ToolBars.Combo3.ListIndex + 1)).AllFeatures.Count + 1
Set F = Formmain.Map1.Layers.Item(val(ToolBars.Combo3.ListIndex + 1)).GetFeatureByID(jj1)
F.Style.RegionColor = YanSer    ‘YANSER 已定义好颜色。
F.Update

5 以上运行,改变的图元不是刚才添加的图元,而是以前的另一个图元的颜色,也就是获得Feature不是刚添加的Feature。
喜欢0 评分0
jgh
jgh
路人甲
路人甲
  • 注册日期2003-11-19
  • 发帖数65
  • QQ
  • 铜币202枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2004-03-02 16:09
通过学习联机帮助文件,解决了,谢谢
举报 回复(0) 喜欢(0)     评分
jgh
jgh
路人甲
路人甲
  • 注册日期2003-11-19
  • 发帖数65
  • QQ
  • 铜币202枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2004-03-02 16:23

我用很长时间开发以下程序,实现了选择刚添加的图元,现共享一下,希望多交流..
                Dim F As New Feature
                Dim fNew As New Feature
                 Set F = Map1.FeatureFactory.CreateRegion(Points, Map1.DefaultStyle)
                Set fNew = Map1.Layers(ToolBars.Combo3.ListIndex + 1).AddFeature(F)
                 fNew.Update
举报 回复(0) 喜欢(0)     评分
游客

返回顶部