地理信息系统开发具体教程.docx
《地理信息系统开发具体教程.docx》由会员分享，可在线阅读，更多相关《地理信息系统开发具体教程.docx（18页珍藏版）》请在冰豆网上搜索。
地理信息系统开发具体教程
地理信息系统开发具体教程
———————————————————————————————— 作者:
————————————————————————————————日期:
地理信息系统开发具体教程
一、基本控件的添加
１.1．新建项目
文件-－--－＞新建－-－->项目-－--＞Wｉｎdows窗体应用
1.2.修改标题
右击窗体属性---->在Tｅxｔ中修改标题名称
1.３．添加菜单栏
工具箱-－－->菜单和工具栏---->MｅnuStrｉp（将MｅnuＳtriｐ拖入到窗体内）
依次添加子标题如下:
1.4.添加ToolStriｐＣｏnｔａｉner
工具箱---->菜单和工具栏-－－->ToｏlStｒiｐＣｏｎtａinｅr
将ToｏlStriｐＣｏntａinｅr拖入到窗体内，右击属性,Spring属性设置为True,在添加一个Statuｓｌabel，在属性中的tｅxｔ修改名称
１.5.添加SplitContainer
工具箱－－-->菜单和工具栏－--->ＳplitConｔａｉner
将ＳplitContaｉner拖入到窗体中，并将右击属性中Dock设置为“Fｉｌl”
1.6.添加控件
工具箱--－-＞ArcGIS Windows Froms
将TOCCContｒol和 MapＣｏntrol拖入到窗口中分别设置在左右侧
设置TOCCCｏntｒol属性,使之与MapCｏntrol关联,右击ＴOCＣ Ｃｏntｒoｌ,点击属性,在Buddy中改为axＭapContrｏl1
添加控件LicenseＣoｎtｒol工具箱---－>ArcGISWｉndowｓ Fromｓ---->Ｌiceｎse Ｃｏntroｌ
把LiｃｅnｓeCoｎtrｏl拖入到窗体中
注意：
要是程序能够正常运行，需要在Proｇrａm.ＣS中添加一段代码,代码如下:
ＥSRＩ.ArcGIS.ＲuntiｍeManａｇer.Bｉｎd（ＥＳRＩ.AｒcＧＩS.ＰｒoductCode.EngiｎｅＯrDesktop）;
二、添加代码
２.1打开文件
在菜单下双击“打开地图文档”属性
（1）直接打开文件
书写格式如下：
thｉｓ.axMaｐCｏntroｌ1.LoａｄＭｘFiｌｅ（@"文件的具体地址\文件的名称.文件格式”）;
例子如下：
thｉｓ.aｘMapＣontｒoｌ1.LoａｄMx：
＼ArcGIＳEngｉｎe地理信息系统开发教程-－－基于C#．NＥT\chp0３\地图操作\dａta＼Mxd文件\Qinｇdａo.ｍｘｄ"）;
（2）设置可选择的文件打开方式
OpeｎpＯpen＝ nｅwOpen（）;
ｐOpｅnE：
\ＡrcＧISEｎginｅ 地理信息系统开发教程---基于C#.ＮEＴ\chp03＼地图操作\data\Ｍxd文件＂;
pOｐen = "文本文件（*.ｍｘｄ）|*.mxｄ|所有文件（*.＊）|＊.*";
pＯpeｎ ＝ "打开地图文档＂;
if（pOpen（）== DialogResult.OＫ）
{
sｔｒinｇmｘｄｆilｐath＝ pOpｅn;
iｆ（thｉs.aｘMａpContrｏl1.ChｅckＭx））
{
ｔhis.axMaｐContｒoｌ1.LｏadＭx）;
｝
ｅｌse
{
MeｓsaｇeBox.Ｓhow（"打开地图文档无效!
"）;
}
（３）使用ContrｏlｓOpｅnDocCommandClass加载
添加代码如下：
ＩCoｍmandｃommａnd =new ContｒolsOpeｎDocCｏｍmａndCｌａss（）;
command．ＯnCrｅate（tｈｉs.aｘMａｐContrｏl１.Ｏbject）;
comｍand．ＯnClicｋ（）；
注意:
如果直接运行会出现错误，因为没有添加引用，我们需要添加引用ＥSRＩ.ＡrcＧIＳ.SystemUI;
ＥSRＩ.ArｃGＩS.Coｎｔrｏls；
然后在使用空间：
usｉngESRI.ArcGＩS．SystemUＩ;
uｓiｎg ESRI.ArcGIS.Controｌｓ;
地图浏览
添加控件menｕStｒip和ｔoolSｔrip还有staｔusStriｐ
依次添加控件分 栏 容器控件
ｓplitCｏntaiｎeｒ1）、内容表控件（axTOＣCoｎtrol１）、地图视图控件（ａxMapContｒｏｌ1）、许可控件（ａxLicｅｎseContrｏl1）。
2.为工具栏控件添加8 个按钮（BＵTTON）,依次将其文本（teｘt 属
性）改为：
打开地图、加载数据、逐级放大、逐级缩小、拉框放大、
拉框缩小、漫游、全图、前一视图、后一视图,并设置相应图标依次将其NAME 属性改为CmdOpeｎ,CｍdＡｄd,
CｍｄＺoomIn,CmdＺoｏｎＯut, ＴｏolZoｏｍIn,TooｌZooｍＯut，ToｏlＰａｎ,CmｄFuｌｌextent、ＣmdBａck、CmdNext
点击ｂutton-＞Dｉspｌａystyle-＞ImageAndText可以使修改的ＴEＸT名称显示出来
3.双击ｂuｔton“打开地图” 添加代码如下
ICommandcommand = newＣonｔrolsOpｅnDoｃＣommandClａｓs（）;
cｏmmaｎd.OnＣｒｅａｔｅ（ｔhiｓ．ａｘMaｐCｏntrol1.Obｊect）;
ｃｏmｍand.OｎClick（）；
注意：
使用代码之前要引用命名空间
usingＥＳRI.ArcGＩS．ＳysｔｅmUI；
usinｇ ESRＩ．ArｃGＩS.Contｒｏls；
4.双击button“加载数据”添加代码如下:
5.双击buttｏn“逐级放大”“逐级缩小”分别添加代码如下:
注意：
在添加代码前，需要添加引用空间代码using ESＲI.ArcGIＳ.Ｇeomｅtry;
IEnvelopepEnveloｐe;
pEnｖeｌｏpｅ =axＭapＣoｎtrｏl1.Extenｔ;
ｐEnｖｅlｏpe．Exｐaｎd（０.5,0.5,ｔrue）；
//这a里?
设Θ?
置?
缩?
小？
为a一?
半?
?
可é以?
根ù据Y需è要癮具?
体？
设Θ?
置?
axMａpＣｏnｔrol1．Ｅｘteｎt＝ pEｎvelｏpｅ;
axＭａpＣoｎtｒol1.AcｔｉｖｅView.Rｅfｒesh（）;
IEnvｅlopepEnvelopｅ;
pEnvｅlopｅ =axMapＣontroｌ1.Extent；
pEnｖelｏｐe．Ｅxｐaｎd（2,２,true）;
／/这a里？
设Θ?
置?
缩?
小?
为a一?
半?
?
可é以?
根ù据Ｙ需è要癮具?
体？
设Θ?
置?
ａxMapＣoｎtrol1.Exteｎt＝pＥnveloｐe;
axMaｐCoｎtrol１．ＡｃｔｉveViｅw．Reｆresh（）；
6.双击ｂutｔon“拉框放大”“拉框缩小”分别添加代码如下：
ＣoｎtrolsＭapZooｍＩnToｏｌoｂjＴool= newControｌsMapZoomInToolClａｓs（）;
objTool．OnCreatｅ（axMapControl1．Oｂjeｃt）;
ａxＭapＣonｔｒoｌ1.CｕｒreｎtTool= （ITool）ｏbjTool；
ＣonｔroｌsMａｐZoomOutToolｏbjTool=newCｏnｔrolｓMａpZoomOutToｏlＣlａss（）;
ｏｂjTool.OnCｒｅate（ａxMaｐControl1.Objｅct）;
axMａpContｒol１.ＣurrentTool＝（IToｏl）ｏbｊTool;
7.双击buｔton“拉框放大”“拉框缩小”分别添加代码如下:
CoｎtｒｏlsMａpZoomInTｏoｌｏbｊTool=newＣｏntrolsMａｐZｏomInToolＣｌasｓ（）;
objTooｌ．OnCrｅａｔｅ（ａxMapＣｏntrol1.Oｂject）;
aｘMａpCｏntｒol1．CurｒenｔToｏｌ=（ITｏol）objＴoｏｌ;
CoｎtroｌsMaｐZｏomOuｔTｏolobjＴool ＝ｎewCｏntｒｏlｓMapZoomOｕtTｏｏｌＣlass（）;
ｏbjToｏｌ.OnＣｒeate（axMapControｌ1.Objｅct）；
axＭapＣontrol１.CurrenｔＴool= （ITool）objTool;
8.双击buｔton“漫游”添加代码如下：
stringpMouseOpｅｒate ＝ null;
axＭapＣontrol1．CurrentTｏol=null；
pMｏuseOｐｅrａｔe="Pａn＂;
axMapControl1.MousePoinｔeｒ＝esriＣoｎtroｌsMousePoｉnter．ｅsｒiPoinｔerPan;9.双击9.buttｏn“全图”添加代码如下：
axＭapContｒｏl1．Exｔｅｎt=axMａpControl1.FullExteｎt;
视图同步
1.按照如下设置界面
2.依次添加控件ToｏlBarControｌ和ToｃcＣontｒｏl和ＭapCoｎｔrｏl,并将ＭａpCｏｎｔrol的nａme改为EagｌｅＣonｔｒｏｌ ＳpｉtContaiｎeｒ
3.将ＴａbＣonｔｒol拖入到框内,并修改名称为数据和布局，并将属性中alｉgnmｅｎｔ中设置为bｏttoｍ。
4.点击“数据”框，将MapＣontrｏl拖入到其中，同样方法选中“布局”框将“ＰageLayouｔControｌ拖入其中,并将MaｐＣoｎtrｏｌ改名为MａｉｎControl
5. 定义几个变量
pｒivａtebooｌｂCａnDraｇ; //鹰眼地图上的矩形框可移动的标志
priｖateＩＰｏintpMoveＲectＰｏint; ／／记录在移动鹰眼地图上的矩形框时鼠标的位置
prｉvatｅＩEnｖelｏpｅpＥnv;//记录数据视图的Eｘtｅntﻫ然后在初始化中写入以下代码:
ﻫpriｖateｖｏｉdForｍ1_Load（objeｃｔsender，EventAｒgsｅ）ﻫ{
tｈis.axTＯCＣｏntrｏl1.SetＢｕｄdｙControl（ｔhis.maｉnＭａｐCｏntrｏl）;
EagleMapCｏｎtrol．Exｔent=maｉnMapControl.FｕｌlExtｅnt;
pEｎｖ＝ EａgleＭaｐCｏｎtrol.Eｘteｎｔ;ﻫ}ﻫ６）首先实现主视图与鹰眼视图的数据保持一致, 在mａiｎMapConｔrolﻫ控件的OnMapRelaced事件中写入以下代码:
privａtevｏｉｄｍaｉnMａpConｔrｏl_OnＭapＲeplaced（objｅctsendeｒ，ﻫＥSＲI．ArcGIS.Ｃontroｌｓ．IMａｐCoｎtrolEventｓ2_ＯnMapReｐlａcedEvente）ﻫ｛ﻫif（maiｎMａpContｒol.LayerＣount＞0）ﻫ｛
EagｌeMapＣoｎtrol．Map=ｎewMapClaｓs（）;ﻫ}
for（int i＝ 0;i<＝ｍaiｎMａpCoｎtrol．Maｐ．ＬayｅrCount-1;ｉ++）ﻫ{ﻫＥagｌeMaｐControl.AddLａyｅr（mainMａpConｔｒol．gｅt_Ｌayer（i））;
}ﻫEagleＭapControl.Extｅnｔ ＝ maｉnMaｐControl．Ｅxtenｔ;ﻫEａgleＭapＣoｎtrｏl.Ｒefｒesｈ（）;
}
7）添加矩形框
当数据视图 的显示 范围发生变 化时,会触发触 发数据 视图
（MaｐＣontrol1）中ＯnExtentUｐｄａta事件，在该事件中绘制鹰眼视图ﻫ中的方框。
获取数据视图中的地图显示范围作为矩形框范围，添加到ﻫ鹰眼视图中。
代码如下ﻫpriｖａtevoｉdｍainMaｐCｏｎtrol_OnＥxｔｅntUｐdated（ｏbjectsender,
EＳRI.ＡrcGIS.Conｔrols.IMapConｔrolEveｎts2_OnEｘｔentＵｐdatｅdEvente）
{ﻫ/／添加矩形框之前,需要清除鹰眼视图（ MapCoｎｔｒol2）中任何图形元素。
IＧraphicｓContaｉner pGraphｉcsContａineｒ = ＥagｌeＭａpCoｎtｒol.Mａpasﻫ//安徽理工大学测绘学院 ＧIS开发实验课讲义
IＧraphｉcsＣonｔaｉｎer;ﻫIAｃtｉｖeＶiewｐＡｃｔiｖeView= pGraｐhicsContaｉnｅrasIActiｖeＶieｗ；ﻫpGraｐhiｃsＣontaiｎeｒ.DeletｅAlｌＥlemｅnts（）;ﻫ//得到当前视图范围ﻫｐEｎv ＝（IEnvelopｅ）e.ｎeｗEnｖeｌopｅ；ﻫIRecｔaｎgleEｌeｍeｎｔ pRecｔangleEle =ｎewRectａnglｅEｌemeｎtClaｓs（）;
ＩElementpElｅｍent =ｐReｃtanｇｌｅEｌeaｓIElemｅnt;
pElement.Gｅomeｔry= pＥｎv;
/／设置鹰眼图中的红线框ﻫIRgbＣｏｌｏrpColｏr=ｎewRgbＣolorClass（）;
pCｏloｒ.Ｒeｄ= 255;ﻫpCｏlｏr.Gｒｅen=0;
pCｏlor.Blue =0;
ｐCｏlｏr．Tｒanspaｒency=２５5;ﻫ／/产生一个线符号对象
IＬineSymbolｐOutline =nｅwＳimpleLineSymbolClaｓs（）;
pOutｌine.Width= 3；ﻫpOuｔline.Cｏlor=pCｏｌor;ﻫ／/设置颜色属性ﻫpCｏｌor＝new RgｂCｏlorClａss（）;ﻫpＣolｏr.Traｎｓparｅncy =０;
//设置填充符号的属性
IＦillSymｂｏlｐFillSymｂol =nｅｗ SimplｅFillＳymｂoｌCｌasｓ（）;ﻫpFｉllＳymbｏl.Colｏｒ=ｐＣolor；ﻫpＦｉllＳymbol．Oｕｔｌiｎe＝pOutline;ﻫ/／向鹰眼中添加矩形框ﻫIFｉllShapeＥlemenｔpFillＳhapeＥle = pElemｅnｔaｓIFillＳhapeElｅment;
pFillShapeEle.Ｓymbol=pFilｌＳymbｏｌ;ﻫpＧrａpｈicｓＣontainer.AｄｄＥleｍｅｎt（（ＩElemeｎt）pFillSｈapｅEle,0）;ﻫｐActiveVieｗ.ＰarｔialRｅｆresh（esriViewDraｗＰｈase.esriViｅwGrａphics,null,nｕlｌ）；ﻫ}ﻫ８）矩形框的拖动与绘制ﻫprivaｔevoｉdＥagleＭapCｏntrol_OnMouｓeDown（ｏbject sendeｒ，
ESRＩ.ＡｒcGIS.Controls.IMapConｔrｏlEvｅnts2_ＯnMouｓeDowｎEｖeｎｔe）
｛ﻫif （EagleMａpCｏnｔrol.Map．ＬayerCoｕnt＞0）
{
/／按下鼠标左键移动矩形框
iｆ （e.button== 1）
{ﻫ／／安徽理工大学测绘学院 GIＳ开发实验课讲义ﻫ//如果指针落在鹰眼的矩形框中,标记可移动
ｉf （e．mａｐＸ > pEnv.XMin &&e.ｍａpY> pEnv.YMin&&e.ｍapＸ<ﻫｐEnｖ．XMａｘ＆＆e．maｐY< pEnv.YMax）
{
bCanＤrag=true;
}
pMoveＲectPoint= nｅｗPｏintＣｌass（）；
pMoveRectPoｉｎt．PutCoordｓ（e.mapX,e.maｐY）；／/记录点击的第
一个点的坐标
}ﻫ/／按下鼠标右键绘制矩形框ﻫeｌseiｆ（ｅ.butｔｏn ==2）
｛ﻫIEｎｖelopeｐEnveｌope =EaglｅＭaｐCｏｎtrol.ＴraｃｋＲｅctanglｅ（）；ﻫIPointpＴｅmpPoｉnt=ｎewPointＣｌasｓ（）;
ｐＴempPｏint.PuｔCｏords（pEnｖｅlope.XＭiｎ+pＥｎveloｐe.Width／ 2,
ｐＥnｖelope．YMiｎ+pEnｖelｏpe．Ｈeight/2）;
maｉnＭａｐCoｎtrｏl.Extent=ｐEnｖeｌoｐe；ﻫ/／矩形框的高宽和数据试图的高宽不一定成正比,这里做一个中心
调整
maｉｎMapControl．CｅnterAｔ（pＴempPｏint）；ﻫ}ﻫ｝ﻫ}ﻫ//移动矩形框
prｉvａtevoidEagleMaｐControl_OnMouseMove（ｏbｊeｃtsendｅr,
ESＲI.ArｃＧIＳ.Ｃｏnｔｒols.IMaｐＣｏｎtrolEｖents2_ＯnＭouseMoveEｖenｔｅ）
{ﻫif （e.ｍapX ＞ pEnv.XＭin&＆e．mapY＞ｐEnｖ.YMin &&e.mapX< pEnv.XMaｘﻫ&&e．ｍａｐＹ< pEｎｖ.YＭａx）
{
//如果鼠标移动到矩形框中,鼠标换成小手，表示可以拖动ﻫEaｇleMapConｔrｏl.MousePoinｔer =
esrｉConｔrolsＭoｕsｅPoinｔer.esriPointerHaｎd;ﻫiｆ （e.ｂuttoｎ=＝2）//如果在内部按下鼠标右键，将鼠标样式设置为ﻫ默认样式
{
EａglｅMapCｏnｔrol．ＭouseＰoiｎteｒ =
esriCｏnｔｒolsMousePoinｔer.esriPoｉnterDefａｕlt;ﻫ｝ﻫ}ﻫelsｅ
//安徽理工大学测绘学院ＧIS 开发实验课讲义ﻫ｛
//在其他位置将鼠标设为默认的样式
EagleMaｐControｌ.MoｕsePoiｎｔer=
esｒiＣonｔrolｓMouｓeＰｏinteｒ.ｅsriPoｉntｅrDefaｕｌｔ;
}ﻫif （bCａｎDrａg）ﻫ{
doｕbｌe Dx， Dｙ;//记录鼠标移动的距离
Ｄx= e.mapX -pMoveRectPoint.Ｘ;ﻫDy= e.maｐY-pＭoveRｅｃtPoｉnt.Y；ﻫpEnｖ.Ｏfｆset（Dx,Dy）;//根据偏移量更改pＥｎv位置
pＭoveＲectPoiｎt.PuｔＣoｏrdｓ（ｅ.mapX,ｅ．mapY）;
/／在绘制前,清除鹰眼中之前绘制的矩形框ﻫIGrａphｉcsCｏｎtainｅrpＧraｐｈｉｃｓContaiｎer=ＥagleMapContｒol.MａpasﻫIGrapｈiｃｓCｏｎtaｉner;ﻫIAcｔiveVieｗpActiｖeVｉew＝pGrapｈｉｃsＣｏｎtainerasIＡctｉveView；
pGraphicsＣontainer.ＤeleteAｌlEｌemeｎtｓ（）;ﻫ/／得到当前视图范围ﻫIRｅctanｇleEｌｅmenｔ pReｃtaｎｇｌeEleｍｅnt＝ｎew
RectａｎgleＥlemeｎtＣlass（）；
IEleｍeｎtpＥleｍenｔ=pRectangleElementaｓIEｌemeｎｔ;ﻫｐElｅment.Gｅometry=pEnv;ﻫ//设置矩形框（实质为中间透明度面）ﻫＩRgbColorpCｏlor = neｗRgbCｏlorＣｌａsｓ（）;
pColor．Red= 255;ﻫｐCoｌｏr.Greeｎ=０;ﻫpCｏlor．Bluｅ= 0;
ｐColor.Trａnsｐａrency=255；ﻫIＬineSymbol ｐOutLine=nｅwSｉｍplｅLinｅSｙmboｌCｌaｓｓ（）;
pOutＬｉne.Widtｈ＝2;ﻫpOuｔLine.Coloｒ=pColor;
IFｉllSｙｍbolpＦilｌSymbol=ｎewSｉmpleFillSymｂolＣlａss（）;ﻫpCoｌor ＝newRｇbＣolorCｌass（）;ﻫpＣolor.Transparｅnｃy=0;
pFilｌSymboｌ.Coｌor=pＣoｌｏｒ；
pFiｌlSymbｏl．Ｏuｔliｎe=pOuｔＬiｎe;ﻫ／/向鹰眼中添加矩形框
IＦiｌｌShａpeElｅｍent ｐFilｌShapｅEｌement=ｐＥlemeｎtａs
ＩFilｌShａpeEleｍeｎt;
pFiｌｌShａpｅElement.Symbol= pFillSｙｍboｌ;ﻫpGraphicsCoｎtａineｒ.AdｄElｅmｅnｔ（（IＥlｅment）pＦiｌlShａpeEｌeｍent,0）;
//刷新ﻫ安徽理工大学测绘学院GＩS开发实验课讲义
pActiveVieｗ．PａrｔialRefｒesｈ（esｒiVieｗDrａwPｈase.esｒｉViｅwGrａphics,ﻫnuｌl,ｎulｌ）;
mａinMapCｏntrｏl．Extｅnt=pEｎｖ;
｝ﻫ｝ﻫｐrivatevoiｄEａgｌeMaｐＣontｒｏl＿OnMouｓeUｐ（objectsender,ﻫIMapCｏntｒｏlＥvents２＿OnMouseＵpEvente）ﻫ{
iｆ（e.buttｏn =＝１&&ｐMovｅRectPoinｔ!
=nulｌ）
｛
ｉf（e.mａpX ＝＝ｐMoveＲectPｏiｎｔ.X&＆ｅ.mapY== pMｏveRｅｃtＰｏinｔ.Y）
{ﻫmａinMapＣｏnｔroｌ.ＣｅｎterAt（ｐＭｏveRectPoinｔ）;
｝ﻫbCanDrag＝falsｅ；
}ﻫ｝ﻫ９）请同学们根据课上的讲解试图理解上面的代码。
以上代码绘制矩ﻫ形框的代码出现了两次,可以定义一个函数以减少代码冗余。
鹰眼功
能实现代码大致就是这些, 同学们自己完成,以加深理解ﻫ10）数据视图与布局视图的联动, 大致代码如下：
ﻫｐrivatevoiｄ mａinＭapCｏnｔrｏl_ＯnＡfteｒScreｅnＤrａw（obｊecｔsendeｒ,
EＳＲI.ＡrｃGIS.Coｎtroｌs.IMapConｔrｏlEvｅnts2_OnＡfteｒＳcｒeｅｎDrawEvente）ﻫ{ﻫIAｃtiｖeViｅwｐA
升级会员 