maxims
路人甲
路人甲
  • 注册日期2005-06-03
  • 发帖数4
  • QQ
  • 铜币120枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1855回复:4

[求助]Vb+mapX如何动态的加入線條l?

楼主#
更多 发布于:2005-09-21 14:20
该如何动态的将线条加入地图中呢?<br>
有看到新增text的方法…如下<br>
Dim f As MapXLib.Feature<br>
Dim p As New MapXLib.Point <br>
' Use the map's current center as the point coordinates<br>
p.Set Map1.CenterX, Map1.CenterY<br>
' Create a text feature and add it to layer 1<br>
Set f = Map1.Layers(1).AddFeature(Map1.FeatureFactory.CreateText(p, "Some Text"))<br>
但是新增线条的方法?!<br>
是否使用Map1.FeatureFactory.CreateLine, 但此method不会使用, 有人可以教一下吗?<br>

[此贴子已经被作者于2005-9-22 14:57:20编辑过]
喜欢0 评分0
maxims
路人甲
路人甲
  • 注册日期2005-06-03
  • 发帖数4
  • QQ
  • 铜币120枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2005-09-23 23:05
拜托个位帮一下, 很急Q___Q<br>
 为什么程序跑不出线来, 翻了以前的问题还是找不到解决方法…<br>
 下面程序…
<br> Private Sub Form_Load()</p>
<p>     Dim pt1 As New Mapxlib.Point<br>     Dim pt2 As New Mapxlib.Point<br>     Dim pts As New Mapxlib.Points<br>     Dim f As Mapxlib.Feature<br>     Dim layer As Mapxlib.Layers<br>     <br>     Set m = Map1.Layers.CreateLayer("new")<br>     <br>     pt1.Set X1, Y1<br>     pts.Add pt1<br>     pt2.Set X2, Y2<br>     pts.Add pt2<br>     <br>     Set f = m.AddFeature(Map1.FeatureFactory.CreateLine(pts, Map1.DefaultStyle))<br>     <br> End Sub</p>
<p> 是不是缺了什么?执行后地图上面什么都没有….</p>
举报 回复(0) 喜欢(0)     评分
echo2003
点子王
点子王
  • 注册日期2003-07-28
  • 发帖数2453
  • QQ76947571
  • 铜币5473枚
  • 威望1点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
2楼#
发布于:2005-09-24 10:01
<P>你程序运行后报什么错误吗?</P>
<P>如果不报错误,你就在最后加Map1.Bounds = f.Bounds这句话看看<BR></P>
举报 回复(0) 喜欢(0)     评分
ldd2w
路人甲
路人甲
  • 注册日期2005-12-08
  • 发帖数49
  • QQ
  • 铜币289枚
  • 威望0点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2005-12-08 15:16
不行啊 到底怎么解决啊
举报 回复(0) 喜欢(0)     评分
liansb
路人甲
路人甲
  • 注册日期2005-12-13
  • 发帖数3
  • QQ
  • 铜币111枚
  • 威望0点
  • 贡献值0点
  • 银元0个
4楼#
发布于:2005-12-21 10:00
<P>你的X1,y1,x2,y2都是空值,当然无线条出来啦</P>
举报 回复(0) 喜欢(0)     评分
游客

返回顶部