MO_GIS应用系统基本界面设置.doc

重 庆 交 通 大 学学 生 实 验 报 告实验课程名称 地理信息系统软件二次开发 开课实验室 空间数据处理实验室 学 院 河海学院 年级 2008 专业班 1 学 生 姓 名 学 号 08260117 开 课 时 间 2011 至 2012 学年第 1 学期总 成 绩教师签名18目录实验一 GIS应用系统基本界面设置3一、实验内容3二、实验要求3三、实验步骤31、Microsoft Visual Basic 6.0的安装方法及MapObjects控件的添加；32、菜单编辑器的使用53、Toolbar和Imagelist的联合使用94、GIS应用系统的基本界面的使用16四、实验成果17五、实验心得18实验一 GIS应用系统基本界面设置一、实验内容1、学习菜单编辑器的使用；2、学习Toolbar和Imagelist的联合使用；3、设置GIS应用系统的基本界面。二、实验要求1、掌握Microsoft Visual Basic 6.0的安装方法，添加MapObjects控件，熟悉开发语言环境；2、 掌握编辑菜单编辑器的方法；3、掌握Toolbar和Imagelist的编辑使用；4、实现GIS应用系统的基本界面的使用三、实验步骤1、Microsoft Visual Basic 6.0的安装方法及MapObjects控件的添加；安装Microsoft Visual Basic 6.0及MapObjects控件，打开Microsoft Visual Basic 6.0，其基本界面如图1-1，图1-1在左边右击，选择“部件（0）”，如图1-2，图1-2在“部件-控件”下选择ESRI MapObjects 2.4、ESRI MapObjects Legend Control、ESRI MapObjects Scalebar Control ，如图1-3如图1-3成果添加MapObjects控件，如图1-4如图1-42、菜单编辑器的使用右击窗体，点击“菜单编辑器”，如图1-5，图1-5 在菜单编辑器中，在标题栏中输入标题“打开”，在名称中输入名称。例如，在标题栏中输入标题“文件”，在名称中输入名称“MnuFile”,如图1-6，图1-6 建立“文件”菜单的子菜单，点击“下一个”，使其右移一个单位，分别设置标题名称，结果如图1-7，图1-7 设置分隔符，使其与文件子菜单平行，注意，此标题出输入短线“-”，如图1-8，图1-8点击“确定”，完成菜单编辑器的编辑，可以看到窗体上多了菜单，如图1-9，图1-9 点击文件，可以看到其子菜单，如图1-10，图1-10 可以继续对菜单编辑器进行编辑，建立与“文件”平行的菜单，亦可以设置“打开”的子菜单，若想修改已建立好的菜单，如添加新的菜单，打开菜单编辑器，在想插入的位置点击“插入”，则可以添加新的菜单，如图1-11，图1-113、Toolbar和Imagelist的联合使用右击工具箱，选择Microsoft Comm Control 6.0、Microsoft Comm Dialog Control 6.0,如图1-12，图1-12选择Microsoft Windows Comm Control 6.0,如图1-13，图1-14可以看到工具箱内增加了许多新的工具箱，如图1-15，图1-15将Toolbar拖拽到窗体上，添加Toolbar时，出现工具栏向导-介绍窗体，如图1-16，图1-16点击下一步，如图1-17，图1-17可以在左边窗体添加符号，亦可以不设置，此处不设置，继续点解“下一步”、“完成”。将、CommonDialog和Imagelist拖拽到窗体上，如图1-18，图1-18右击Imagelist，在属性页中设置其属性。首先，在通用属性中设置图像大小，此处用16*16（选用的图标大小为16*16），如图1-19，图1-19在图像属性中依次添加选用的图标，此实验中依次添加表示打开、打印、整个视图、放大、缩小、漫游的图像，对其索引进行依次设置，如图1-20，图1-20在颜色属性中可以进行颜色的设置，如图1-21，图1-21此实验中不做任何设置，保持其默认状态。Imagelist编辑完成。右击Toolbar，在属性页中进行属性设置。在通用属性中，图像列表中选用ImageList1，表示图标来自ImageList1，如图1-22，图1-22在按钮属性中，注意索引和样式的设置，图标处的样式选用0-tbrDrfault,如图1-23图1-23空格处样式选用3-tbrSeparator,如图1-24，图1-24Toolbar和Imagelist的设置完成，如图1-25图1-254、GIS应用系统的基本界面的使用修改工程名称，使工程名为MoDemoFrame，使其符合MO二次开发的习惯。修改窗体名称，使窗体名为FrmMain，在属性窗口Icon中选择图标，如图1-26，图1-26则可以看见窗体上的图标变成了新的图标，如图1-27，图1-27在窗体上添加一个Legend,两个Map,如图1-28，图1-28为使系统美观，在代码窗口中写代码，使其运行时美观，代码为：Private Sub Form_Load()boo = FalseFrmMain.WindowState = 2Map1.Width = Screen.Width - 3400 Map1.Height = Screen.Height - 2000 调整MAP的界面layercontrol.Width = Screen.Width - 17300Map2.Width = Screen.Width - 17300layercontrol.Height = Screen.Height - 6000Map2.Height = Screen.Height - 8000调整内容窗口和鹰眼窗口的界面End Sub四、实验成果 运行程序后，结果为图1-29图1-29五、实验心得a) 此实验是MO二次开