《第3章图层的基本功能开发.docVIP

第3章　图层的基本功能开发 3.1　用程序加裁图层文件 加载的图层如果基本固定，一般放在Form_Load过程中。也可以动态加载或卸载图层，这时要在其它过程或函数中进行。 3.1.1在同一个文件夹下加载 如果你的程序和GIS图层文件（dbf、shp、shx等）在一个文件夹，图层为Mexico文件夹下的States和Rivers，加载程序如下： （工程Chapter302一Form01） Option Explicit Private Sub Form_Load() Dim dc As New DataConnection Dim layer As MapLayer dc.Database = App.Path　‘设当前文件夹为图层文件夹； If Not dc.Connect Then MsgBox 在指定的文件夹下没找到图层数据文件！ End End If Set layer = New MapLayer Set layer.GeoDataset = dc.FindGeoDataset(States) Map1.Layers.Add layer Set layer = New MapLayer Set layer.GeoDataset = dc.FindGeoDataset(Rivers) Map1.Layers.Add layer Map1.Refresh End Sub 加载图层后，要用Map1.Refresh进行刷新后一样显示。 3.1.2　在不同文件夹中加载 由于在实际的应用程序中，图层文件和程序文件都很多，为了方便管理，一般程序文件和图层文件不放在一个文件夹，推荐采用一个文件夹(如DATA)单独存放图层文件，而把各个程序文件和它并列放置。 例如应用程序文件夹路径为“D:\MO”，程序在“D:\MO\VB1”文件夹下，图层文件放在“D:\MO\Mexico”文件夹下，这时要用+”\..\”返回上级文件夹； （工程Chapter301一Form02） Option Explicit Private Sub Form_Load() Dim dc As New DataConnection Dim layer As MapLayer dc.Database = App.Path + \..\ + Mexico If Not dc.Connect Then MsgBox 在指定的文件夹下没找到图层数据文件！ End End If Set layer = New MapLayer Set layer.GeoDataset = dc.FindGeoDataset(States) Map1.Layers.Add layer Set layer = New MapLayer Set layer.GeoDataset = dc.FindGeoDataset(Rivers) Map1.Layers.Add layer Map1.Refresh End Sub 如果你的图层文件夹要向上返回2级，可以用以下2级返回语句： dc.Database = App.Path + \..\..\ + Mexico 3.1.3　图层的卸载和移动 用语句： Map1.Layers.Remorve O 可以把第O层卸载。注意：卸载了一个图层后，其它图层的序号就发生了变化。 用语句： Map1.Layers.Clear 可以一次卸载所有的图层。 可以用MoveTo方法来把图层从位置l移动到位置2，如原来图层cities在第2层，用以下语句可以把它移动到第0层： Map1.Layers.MoveTo 2,0 3.1.4图层的选择和隐藏 用图层的索引号： Set layer = Map1.Layers (0) 或图层名称： Set layer = Map1.Layers (“States”) 来选择当前图层。 用语句： layer.Visible = False 来隐藏当前的图层。 另外，还可以通过设置Mapl.Visible来隐藏或显示整个Map控件。 以下是一个完整的例子。其在Form上放置一个Map控件和6个Command控件，程序为如下。 （工程Chapter301一Form02） Option Explicit Dim dc As New DataConnection Dim layer As MapLayer Private Sub Command1_Click() ‘图层加载 LayerSet Map1.Refresh End Sub Private Sub Command2_Click()　　‘图层卸载 Map1.Layers.Clear 清除Map1的所有图层。 End Sub Private Sub Command3