amber
路人甲
路人甲
  • 注册日期2005-01-24
  • 发帖数26
  • QQ
  • 铜币243枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1963回复:4

用MO打开地图时,怎样使地图已经被放大显示?

楼主#
更多 发布于:2005-04-18 10:27
<P>我用VB+MO,我的地图用 MO打开时,总是在容器的一角,而且还很小,怎样使程序运行时地图已经被放大显示?</P>
<P>用下面这段代码可以吗?</P>
<P>Private Sub Form_Load()</P>
<P>    LoadLayer() '加载图层</P>
<P>    Dim orect As MapObjects2.Rectangle
    Set orect = Map1.Extent
    orect.ScaleRectangle (20)  ' 放大20倍
    Map1.Extent = orect</P>
<P>End Sub
   </P>
喜欢0 评分0
gis
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15945
  • QQ554730525
  • 铜币25337枚
  • 威望15352点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
1楼#
发布于:2005-04-18 11:17
<P>这可能是你坐标范围等设置的有问题</P>
举报 回复(0) 喜欢(0)     评分
zwl1983121
路人甲
路人甲
  • 注册日期2005-03-28
  • 发帖数6
  • QQ
  • 铜币128枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2005-04-21 20:32
<P>orect.ScaleRectangle (20)</P><P>里面的20改成小数,如0.1</P>
举报 回复(0) 喜欢(0)     评分
zchang81
路人甲
路人甲
  • 注册日期2005-05-11
  • 发帖数95
  • QQ
  • 铜币324枚
  • 威望0点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2005-06-28 18:08
<img src="images/post/smile/dvbbs/em01.gif" />
举报 回复(0) 喜欢(0)     评分
amber
路人甲
路人甲
  • 注册日期2005-01-24
  • 发帖数26
  • QQ
  • 铜币243枚
  • 威望0点
  • 贡献值0点
  • 银元0个
4楼#
发布于:2005-06-29 17:29
<P>先谢谢大家!</P>
<P>“orect.ScaleRectangle (20) 里面的20改成小数,如0.1”</P>
<P>我已经改为0.05可是效果还是不对。</P>

<P>“这可能是你坐标范围等设置的有问题”</P>
<P>你是说我的图层文件的坐标范围设置的有问题吗?</P>

举报 回复(0) 喜欢(0)     评分
游客

返回顶部