|
阅读:1855回复:4
[求助]Vb+mapX如何动态的加入線條l?
该如何动态的将线条加入地图中呢?<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编辑过]
|
|
|
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> |
|
|
2楼#
发布于:2005-09-24 10:01
<P>你程序运行后报什么错误吗?</P>
<P>如果不报错误,你就在最后加Map1.Bounds = f.Bounds这句话看看<BR></P> |
|
|
3楼#
发布于:2005-12-08 15:16
不行啊 到底怎么解决啊
|
|
|
4楼#
发布于:2005-12-21 10:00
<P>你的X1,y1,x2,y2都是空值,当然无线条出来啦</P>
|
|