📄 mapobject学习笔记－第一讲 mo概述及程序设计入门_魏国强 的 博客.htm
字号:
href="http://hi.baidu.com/laowei/friends">好友</A> </DIV></DIV>
<DIV class=stage>
<DIV class=stagepad>
<DIV style="WIDTH: 100%">
<TABLE class=modth cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD class=modtl width=7> </TD>
<TD class=modtc noWrap>
<DIV class=modhead><SPAN class=modtit>查看文章</SPAN></DIV></TD>
<TD class=modtc noWrap align=right></TD>
<TD class=modtr width=7> </TD></TR></TBODY></TABLE>
<DIV class=modbox id=m_blog>
<DIV class=tit>MapObject学习笔记－第一讲 MO概述及程序设计入门</DIV>
<DIV class=date>2008-01-07 22:25</DIV>
<TABLE style="TABLE-LAYOUT: fixed">
<TBODY>
<TR>
<TD>
<DIV class=cnt id=blog_text>
<P>(转自<A class=HeaderMainTitle
href="http://www.cnblogs.com/gispeng/"><FONT
size=4>GIS雲中飛鹏</FONT></A>)</P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>一、概述</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0"><SPAN>1</SPAN><SPAN>、简介</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0"><SPAN>MapObject</SPAN><SPAN>是由美国的</SPAN><SPAN>ESRI</SPAN><SPAN>（</SPAN><SPAN>Environment
System Research
Institute</SPAN><SPAN>，环境系统研究所）开发，是当今流行的组件式</SPAN><SPAN>GIS</SPAN><SPAN>开发软件。</SPAN><SPAN>MapObject</SPAN><SPAN>是一组地图软件的组件（</SPAN><SPAN>ActiveX</SPAN><SPAN>控件），利用它可以在普通的编程语言（如</SPAN><SPAN>VB</SPAN><SPAN>、</SPAN><SPAN>VC</SPAN><SPAN>、</SPAN><SPAN>Delphi</SPAN><SPAN>）上实现主要的地理信息系统（其中主要的就是电子地图的功能）的功能。</SPAN><SPAN>MapObject</SPAN><SPAN>简称</SPAN><SPAN>MO</SPAN><SPAN>。通过</SPAN><SPAN>MapObjects</SPAN><SPAN>你可灵活地建立适合用户的地图接口。在小内存空间中，你能用多种工业标准程序环境之一去建立应用程序，你能够联合使用</SPAN><SPAN>MapObjects</SPAN><SPAN>与其它软件去实现地图与用户信息的联系。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0"><SPAN>2</SPAN><SPAN>、</SPAN><SPAN>MapObjects</SPAN><SPAN>的功能</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.25pt; TEXT-INDENT: -21.25pt; mso-list: l0 level1 lfo1"><SPAN><SPAN
style="mso-list: Ignore">Ÿ<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>显示一张多图层地图</SPAN><SPAN>(</SPAN><SPAN>道路，河流，边界</SPAN><SPAN>)</SPAN><SPAN>。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.25pt; TEXT-INDENT: -21.25pt; mso-list: l0 level1 lfo1"><SPAN><SPAN
style="mso-list: Ignore">Ÿ<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>放大，缩小，漫游。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.25pt; TEXT-INDENT: -21.25pt; mso-list: l0 level1 lfo1"><SPAN><SPAN
style="mso-list: Ignore">Ÿ<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>生成、绘制图形元素，如点，线，圆，多边形。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.25pt; TEXT-INDENT: -21.25pt; mso-list: l0 level1 lfo1"><SPAN><SPAN
style="mso-list: Ignore">Ÿ<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>绘制图形化文字。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.25pt; TEXT-INDENT: -21.25pt; mso-list: l0 level1 lfo1"><SPAN><SPAN
style="mso-list: Ignore">Ÿ<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>可以用点击选择不同的对象（点、线、面）。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.25pt; TEXT-INDENT: -21.25pt; mso-list: l0 level1 lfo1"><SPAN><SPAN
style="mso-list: Ignore">Ÿ<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>通过线，方框，区域，多边形，圆来拾取物体。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.25pt; TEXT-INDENT: -21.25pt; mso-list: l0 level1 lfo1"><SPAN><SPAN
style="mso-list: Ignore">Ÿ<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>可以选择对象的指定位置。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.25pt; TEXT-INDENT: -21.25pt; mso-list: l0 level1 lfo1"><SPAN><SPAN
style="mso-list: Ignore">Ÿ<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>通过</SPAN><SPAN>SQL</SPAN><SPAN>描述来选择物体。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.25pt; TEXT-INDENT: -21.25pt; mso-list: l0 level1 lfo1"><SPAN><SPAN
style="mso-list: Ignore">Ÿ<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>对选取物体进行基本统计。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.25pt; TEXT-INDENT: -21.25pt; mso-list: l0 level1 lfo1"><SPAN><SPAN
style="mso-list: Ignore">Ÿ<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>对所选地图元素的属性进行更新，查询。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.25pt; TEXT-INDENT: -21.25pt; mso-list: l0 level1 lfo1"><SPAN><SPAN
style="mso-list: Ignore">Ÿ<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>绘制专题图。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.25pt; TEXT-INDENT: -21.25pt; mso-list: l0 level1 lfo1"><SPAN><SPAN
style="mso-list: Ignore">Ÿ<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>用特殊方法渲染图层，如数值、类别、密度、图表、事件或</SPAN><SPAN>Z</SPAN><SPAN>值。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.25pt; TEXT-INDENT: -21.25pt; mso-list: l0 level1 lfo1"><SPAN><SPAN
style="mso-list: Ignore">Ÿ<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>从航片或卫星图片上截取图像。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.25pt; TEXT-INDENT: -21.25pt; mso-list: l0 level1 lfo1"><SPAN><SPAN
style="mso-list: Ignore">Ÿ<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>动态显示实时或系列时间组数据。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.25pt; TEXT-INDENT: -21.25pt; mso-list: l0 level1 lfo1"><SPAN><SPAN
style="mso-list: Ignore">Ÿ<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>在图上标注地址或定位。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.25pt; TEXT-INDENT: -21.25pt; mso-list: l0 level1 lfo1"><SPAN><SPAN
style="mso-list: Ignore">Ÿ<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>把数据投影到不同的坐标下。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt"><SPAN>二、</SPAN><SPAN>MO</SPAN><SPAN>的基本操作</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0"><SPAN>1</SPAN><SPAN>、图层加载</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0"><SPAN>进行电子地图系统显示、操作、处理和</SPAN><SPAN>GIS</SPAN><SPAN>开发之前，首先要有</SPAN><SPAN>ArcInfo</SPAN><SPAN>格式的</SPAN><SPAN>GIS</SPAN><SPAN>图层数据文件。这些文件可以从</SPAN><SPAN>ArcInfo</SPAN><SPAN>中产生，也可以从其他地理信息系统，如</SPAN><SPAN>MapInfo</SPAN><SPAN>、</SPAN><SPAN>GeoMedia</SPAN><SPAN>、</SPAN><SPAN>MapGIS</SPAN><SPAN>等系统中转换而来。在</SPAN><SPAN>MO</SPAN><SPAN>中可以使用的数据文件格式主要有</SPAN><SPAN>Shapefile</SPAN><SPAN>、</SPAN><SPAN>Coverage</SPAN><SPAN>、</SPAN><SPAN>SDE</SPAN><SPAN>、</SPAN><SPAN>VFP</SPAN><SPAN>和各种</SPAN><SPAN>CAD</SPAN><SPAN>文件。这里主要介绍针对</SPAN><SPAN>Shapefile</SPAN><SPAN>文件的电子地图开发。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0"><SPAN>Shapefile</SPAN><SPAN>文件采用早期的</SPAN><SPAN>dBase</SPAN><SPAN>数据库管理模式，一个文件夹是一个数据库，文件夹的不同文件就是数据库中的表，每个表代表</SPAN><SPAN>GIS</SPAN><SPAN>图中的一个图层。每个图层文件必须包括</SPAN><SPAN>3</SPAN><SPAN>个以上的特征文件，才能在</SPAN><SPAN>MO</SPAN><SPAN>中使用，它们分别是空间特征数据文件（即图形文件）</SPAN><SPAN>.shp</SPAN><SPAN>、索引文件</SPAN><SPAN>.shx</SPAN><SPAN>和属性数据文件</SPAN><SPAN>.dbf</SPAN><SPAN>。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0"><SPAN>图层又分为点状图层、线状图层和面状图层</SPAN><SPAN>3</SPAN><SPAN>类，图层加载的时候要使点状图层在最上面，线状图层在中间，面状图层在最下面，否则面状图层会把点状和线状图层都覆盖掉。要注意在</SPAN><SPAN>MO</SPAN><SPAN>中，最先加载的在下面，最后加载的在上面。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0"><SPAN>2</SPAN><SPAN>、添加</SPAN><SPAN>Map</SPAN><SPAN>控件</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0"><SPAN>3</SPAN><SPAN>、手工加载图层：通过控件的属性添加图层文件</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 131.25pt; TEXT-INDENT: -110.25pt; mso-char-indent-count: -10.5; mso-para-margin-left: 2.0gd"><SPAN>4</SPAN><SPAN>、程序加载图层：（</SPAN><SPAN>1</SPAN><SPAN>）利用</SPAN><SPAN>dc.Database
=
"</SPAN><SPAN>文件路径</SPAN><SPAN>"</SPAN><SPAN>设置图层文件所在目录，其中，</SPAN><SPAN>dc.Database
= app.path</SPAN><SPAN>为设置与程序存在的文件夹一样的目录</SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>例如：</SPAN><SPAN
style="COLOR: red">Option Explicit<SPAN style="mso-spacerun: yes">
</SPAN></SPAN><SPAN>‘在窗体模块中强制声明变量’</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 31.5pt; mso-char-indent-count: 3.0"><SPAN>Private
Sub Form_Load()</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 131.25pt; TEXT-INDENT: -78.75pt; mso-char-indent-count: -7.5; mso-para-margin-left: 5.0gd"><SPAN>Dim
dc As New mapobjects2.DataConnection<SPAN style="mso-spacerun: yes">
</SPAN></SPAN><SPAN>‘创建了对象变量的同时创建实例’</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 131.25pt; TEXT-INDENT: -78.75pt; mso-char-indent-count: -7.5; mso-para-margin-left: 5.0gd"><SPAN>Dim
layer As MapLayer<SPAN style="mso-spacerun: yes">
</SPAN></SPAN><SPAN>‘创建了一个空的对象变量而未创建实例’</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 131.25pt; TEXT-INDENT: -78.75pt; mso-char-indent-count: -7.5; mso-para-margin-left: 5.0gd"><SPAN>Set
layer = New MapLayer</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 131.25pt; TEXT-INDENT: -78.75pt; mso-char-indent-count: -7.5; mso-para-margin-left: 5.0gd"><SPAN>dc.Database
=
"F:\MO</SPAN><SPAN>实验</SPAN><SPAN>\</SPAN><SPAN>程序加载</SPAN><SPAN>"</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 131.25pt; TEXT-INDENT: -78.75pt; mso-char-indent-count: -7.5; mso-para-margin-left: 5.0gd"><SPAN>If
dc.Connect Then</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 131.25pt; TEXT-INDENT: -78.75pt; mso-char-indent-count: -7.5; mso-para-margin-left: 5.0gd"><SPAN>layer.GeoDataset
= dc.FindGeoDataset("country")</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 131.25pt; TEXT-INDENT: -78.75pt; mso-char-indent-count: -7.5; mso-para-margin-left: 5.0gd"><SPAN>Map1.Layers.Add
layer</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 131.25pt; TEXT-INDENT: -78.75pt; mso-char-indent-count: -7.5; mso-para-margin-left: 5.0gd"><SPAN>Map1.Refresh</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 131.25pt; TEXT-INDENT: -78.75pt; mso-char-indent-count: -7.5; mso-para-margin-left: 5.0gd"><SPAN>Else</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 131.25pt; TEXT-INDENT: -78.75pt; mso-char-indent-count: -7.5; mso-para-margin-left: 5.0gd"><SPAN>MsgBox
"</SPAN><SPAN>在指定文件夹下面没有找到相应图层数据文件！</SPAN><SPAN>"</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 131.25pt; TEXT-INDENT: -78.75pt; mso-char-indent-count: -7.5; mso-para-margin-left: 5.0gd"><SPAN>End
If</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 31.5pt; mso-char-indent-count: 3.0"><SPAN>End
Sub</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>几点说明</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 42.75pt; TEXT-INDENT: -21pt; mso-list: l2 level1 lfo3"><SPAN><SPAN
style="mso-list: Ignore">l<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>MapLayer</SPAN><SPAN>对象</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.75pt"><SPAN>表示地理坐标数据层，而这些地理坐标数据在</SPAN><SPAN>Map</SPAN><SPAN>控件中可以画出带</SPAN><SPAN>GeoDataset</SPAN><SPAN>的一类地理特征集。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 42.75pt; TEXT-INDENT: -21pt; mso-list: l2 level1 lfo3"><SPAN><SPAN
style="mso-list: Ignore">l<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>GeoDataset</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.75pt"><SPAN>是</SPAN><SPAN>MapLayer</SPAN><SPAN>对象的属性，是一个只写属性，用来设置图层相对应的空间数据和属性数据的数据库。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 42.75pt; TEXT-INDENT: -21pt; mso-list: l2 level1 lfo3"><SPAN><SPAN
style="mso-list: Ignore">l<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>DataConnection</SPAN><SPAN>对象</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.75pt"><SPAN>表示数据库的连接，属性包括</SPAN><SPAN>Database</SPAN><SPAN>：设置和读取数据库的连接，如果数据为</SPAN><SPAN>shape</SPAN><SPAN>文件时，此值表示</SPAN><SPAN>shape</SPAN><SPAN>文件所在的目录路径和目录名，自动产生</SPAN><SPAN>ODBC</SPAN><SPAN>连接。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 42.75pt; TEXT-INDENT: -21pt; mso-list: l2 level1 lfo3"><SPAN><SPAN
style="mso-list: Ignore">l<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>在将对象的引用赋给变量、数据类型的元素或可写对象的属性时，须使用关键字“</SPAN><SPAN>set</SPAN><SPAN>”，在创建对象类的实例时，须使用关键字“</SPAN><SPAN>new</SPAN><SPAN>”。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>思考并作业（</SPAN><SPAN>1）</SPAN><SPAN>：利用以前所学的</SPAN><SPAN>VB</SPAN><SPAN>中的驱动器列表框控件、目录列表框控件和文件列表框控件来加载地图文件。</SPAN></P><SPAN>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt"><SPAN>二、地图操作的基本功能</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>1</SPAN><SPAN>、地图放大：</SPAN><SPAN>Map1.Extent</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>2</SPAN><SPAN>、地图移动：</SPAN><SPAN>Map1.pan</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>3</SPAN><SPAN>、地图缩小：预先设置缩小倍数</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>4</SPAN><SPAN>、恢复原始大小：</SPAN><SPAN>set
map1.extent = map1.fullextent</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>几点说明：</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 42.75pt; TEXT-INDENT: -21pt; mso-list: l1 level1 lfo2"><SPAN><SPAN
style="mso-list: Ignore">l<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>Extent</SPAN><SPAN>属性</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.75pt"><SPAN>这是表示当前图形显示范围的一个变量，可以修改和读取这个变量，这个变量的类型为矩形（</SPAN><SPAN>Rectangle</SPAN><SPAN>）类型。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 42.75pt; TEXT-INDENT: -21pt; mso-list: l1 level1 lfo2"><SPAN><SPAN
style="mso-list: Ignore">l<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>Fullextent</SPAN><SPAN>属性</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 21.75pt"><SPAN>表示所有图层总的坐标范围，变量类型为矩形（</SPAN><SPAN>Rectangle</SPAN><SPAN>）类型，主要用于图形的全图显示。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt 42.75pt; TEXT-INDENT: -21pt; mso-list: l1 level1 lfo2"><SPAN><SPAN
style="mso-list: Ignore">l<SPAN
style="FONT: 7pt Times New Roman">
</SPAN></SPAN></SPAN><SPAN>MousePointer</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>鼠标指针类型变量，可以设置和读取，表示当鼠标在</SPAN><SPAN>Map</SPAN><SPAN>控件上移动时鼠标显示的类型。如：</SPAN><SPAN>Map1.MousePointer
= moZoomIn</SPAN><SPAN>。</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>例如：</SPAN><SPAN>Option
Explicit</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>Private Sub
Command1_Click()</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>Dim r As
MapObjects2.Rectangle</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>Set r =
Map1.Extent</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>r.ScaleRectangle
1.5</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>Map1.Extent =
r</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>End Sub</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>Private Sub
Command2_Click()</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>Set Map1.Extent =
Map1.FullExtent</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>End Sub</SPAN></P>
<P class=MsoNormal
style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21.75pt"><SPAN>Private Sub
Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -