第二讲 图层的基本功能开发.docVIP

第二讲 图层的基本功能开发 一、图层的加载操作 1、利用其他控件动态加载图层文件 所用控件包括Map 控件，Drive、Dir、File列表控件，和一个命令按钮，实现可选择性的图层文件加载，基本代码如下： Option Explicit Dim dc As New DataConnection Dim layer As New MapLayer ? Private Sub Command1_Click() Map1.Layers.Clear dc.Database = File1.Path If dc.Connect Then layer.GeoDataset = dc.FindGeoDataset(File1.FileName) Map1.Layers.Add layer Map1.Refresh Else MsgBox 在指定文件夹下面没有找到相应图层数据文件！ End If End Sub ? Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub 2、同一文件夹下加载 如果你的程序和GIS图层文件（.shp、.shx和.dbf）在同一个文件夹下，设置好图层文件夹的路径，进行自动加载。示例如下： Option Explicit Dim dc As New DataConnection Dim layer As MapLayer Private Sub Command1_Click() dc.Database = App.Path dc.Database = 指定文件夹路径 If dc.Connect Then Set layer = New MapLayer layer.GeoDataset = dc.FindGeoDataset(文件名1) Map1.Layers.Add layer Set layer = New MapLayer layer.GeoDataset = dc.FindGeoDataset(文件名2) Map1.Layers.Add layer Map1.Refresh Else MsgBox 在指定文件夹下面没有找到相应图层数据文件！ End If End Sub 试验在调试过程中替换代码“Dim layer As New MapLayer”，观察程序运行结果。 3、在不同文件夹下加载 由于在实际的应用程序中，图层文件和程序文件都很多，为了方便管理，一般程序文件和图层文件不在一个文件夹下，通常采用一个文件夹单独存放图层文件，而把各个程序文件和它并列放置。 例如应用程序的文件夹路径为“F:\MO实验”，程序在“F:\MO实验\程序加载”下，图层文件放在“F:\MO实验\WORLD”文件夹下，这时要用+”\..\”返回上级文件夹，示例代码为： Option Explicit Dim dc As New DataConnection Dim layer As New MapLayer Private Sub Command1_Click() dc.Database = App.Path + \..\ + world dc.Database = 指定文件夹路径 If dc.Connect Then layer.GeoDataset = dc.FindGeoDataset(country) Map1.Layers.Add layer layer.GeoDataset = dc.FindGeoDataset(cities) Map1.Layers.Add layer Map1.Refresh Else MsgBox 在指定文件夹下面没有找到相应图层数据文件！ End If End Sub 4、图层的卸载和移动 用语句：Map1. Layers.Remove 0 可以把第0层卸载，注意：卸载了一个图层后，其他图层的序号就发生了变化。 用语句：Map1. Layers. Clear 可以一次卸载所有的图层。 可以用MoveTo方法来把图层从位置1移动到位置2，如原来图层在第2层，用以下语句可以把它移动到第0层：Map1. Layers. MoveTo 2,0。 5、图层的选择和隐藏 用图层的索引号：Set Layer = Map1.Layers(0)或图层名称Set Layer = Map1.Layers(country)来选择当前层。 用语句：layer.visible = false来隐藏当前层。另外，可以通过设置Map1.visible来隐藏或显示整个Map控件。 综合示例代码如下： Option Explicit Dim dc As