|
阅读：2744回复：5
为什么加载不了地图？？？
<P>在用MO+VB的时候：点击菜单的选项。原来设计是点击之后会在地图窗口显示对应的地图，不知道哪里错了。。会提示“错误61836,无法读只写特性”如下是代码：</P>
<P><BR>Private Sub mnulytu_Click()<BR>dc.Database = App.path ; "\SHAPES"<BR>If Not dc.Connect Then<BR> MsgBox "Could not find data"<BR> End<BR>End If<BR>' -- load the map layers</P> <P>Set ml = New MapObjects2.MapLayer<BR><FONT color=#ff3300>ml.GeoDataset = dc.FindGeoDataset("river")<BR></FONT>ml.Name = "river"<BR>ml.Symbol.Color = RGB(230, 255, 230)<BR>ml.Symbol.Outline = True<BR>ml.Symbol.OutlineColor = RGB(120, 180, 120)<BR>mapmain.Layers.Add ml</P> <P>' -- set the map extent</P> <P>Set e = ml.Extent</P> <P>提示是红字那里出错了。。。。请指点下。。谢谢。。。</P> |
|
|
1楼#
发布于：2006-10-08 22:46
是不是文件名有问题。
|
|
|
2楼#
发布于：2006-10-09 01:03
那个文件名是没错的啊。。。。。。。
|
|
|
3楼#
发布于：2006-10-10 18:49
把Set ml = New MapObjects2.MapLayer改成Set ml = New MapLayer呢？
|
|
|
4楼#
发布于：2007-10-27 16:45
<P>应该是路径的问题吧！</P>
|
|
|
5楼#
发布于：2007-11-18 13:45
<P>我觉得是你的dc.Database = App.path ; "\SHAPES"<BR>有错误，关键是看你的shape地图文件和程序是不是在同一个文件夹下面的，如果在两个不同的文件夹下面应该这样写：dc.Database = App.path ; "\..\"; "地图文件夹的名字"，最好试验一下了，我在vb.net中运行正确<BR></P>
|
|
