vb实习报告内容.docVIP

实验（一） 一．实验项目名称: 地图图层化 1．实验内容：利用矢量化软件对地图矢量化 2．实验要求：对图层矢量化掌握 3．应配备的主要设备名称和台件数 计算机（每人一台）Mapinfo及MapX控件 二．实验步骤 1．启动mapinfo,在MapInfo中按照文件-打开表打开对话框，“文件类型-栅格图像”，打开MapInfo栅格图像文件清单； 2.要打开的“西安市交通图”栅格图像文件选择打开，在图像配准对话框中选择 配准； 3.在投影-选择投影中设定该图像的地图投影； 4.在配准对话框的预览图像上，将鼠标并移到一个已知地图坐标的点，单击鼠标按钮，输入对应图像上地图坐标，确定； 5.重复步骤4，输入最少四个控制点（x坐标输入经度，y坐标上输入纬度）完成配准； 6.把配准信息保存到文件“*.tab”中。 7．创建新图文件 在工具栏中单击按钮，打开新建表对话框，打击创建，弹出新表结构对话框 将“宾馆、酒店”，“公交路线”，“居民地”，“旅游景点”，“企事业单位”，“商场市场”，“乡 政府及街道办“，“学校”，“医疗卫生”，“遗址遗迹”，“站点”，政府部门“，”主要车站“， “主要道路”图层可能建立的字段，在新表结构对话框中建立起来，选择所需要的投影，保 存为mapinfo默认格式。如“主要道路” 3．单击【map】菜单，选择【lay control】项，依次将各图层处于编辑状态，然后再打开的底图上用绘图工具进行矢量编辑 如图，矢量化好的主要道路 4．最后将各图层矢量化的结果分别保存 实验(二） 一．实验项目名称: 在地图中加数据 1．实验内容：在地图中加属性数据 2．实验要求：在Mapinfo中对地图加上数据 3．应配备的主要设备名称和台件数 计算机（每人一台）Mapinfo及MapX控件 二．实验步骤 1.打开矢量化好的要素图层，并且使其处于编辑状态。 2.单击【main】工具栏上的选择按钮工具，将鼠标移入地图窗口，鼠标会变为十字状 3.在窗口中单击选中要加入属性的对象，会弹出一个“info tool”对话框，里面显示了该对象的属性字段，直接在相应属性字段中赋值。 4.然后用鼠标选中另一个对象，重复步骤3，完成属性数据的输入。 如“主要道路”层，，再点击要赋属性的一条道路，出现如图对话框进行赋值 实验（三） 实验项目名称: 特征与选择集合 1．实验内容：对特征进行选择 2．实验要求：VB编写选择代码 3．应配备的主要设备名称和台件数 计算机（每人一台）Mapinfo及MapX控件 实验步骤 1.点击“文件-新建工程”，选择的“标准EXE”，会自动生成一窗体 2.在左侧控件栏中右键点击“部件…..”选择“MapInfo MapX V4”、Microsoft Common DialogControl 6.0”、“Microsoft Windows Common Controls 6.0”添加 3.将“Common Dialog”、“map”和“ImageList”控件拖入窗体中 4.选择“工具-菜单编辑器”在其中编辑菜单项并设置名称 5.用“Toolbar”控件建立快捷工具条，然后点击右键-属性，打开属性页对话框，点击“通用”标签，选择“ImageList1”，点击“按钮”标签，添加“打开”“放大”“缩小”等快捷键，点击“图片”给相应的快捷键添加图标并建立合 适的索引。用“ComboBox”控件添加下拉菜单。 6.在“Combo1”属性中的“List”中将所有图层的名称添加进去，得到如下图 7.图像索引，标题和关键字,选择“查看代码”输入： Private Sub zoomin_Click() Map1.CurrentTool = miZoomInTool End Sub Private Sub zoomout_Click() Map1.CurrentTool = miZoomOutTool End Sub Private Sub allmap_Click() Map1.Bounds = Map1.Layers.Bounds End Sub Private Sub circleseek_Click() Map1.CurrentTool = miRadiusSelectTool End Sub Private Sub pan_Click() Map1.CurrentTool = miPanTool End Sub Private Sub ployseek_Click() Map1.CurrentTool = miPolygonSelectTool End Sub Private Sub pointseek_Click() Map1.CurrentTool = miSelectTool End