文件名称:bou2_4l
介绍说明－－下载内容均来自于网络，请自行研究使用
在vb中用mapobjects添加图层，-Private Sub Form_Load()
Dim dcnn As New MapObjects2.DataConnection
Dim mlayer As New MapObjects2.MapLayer
dcnn.Database = "G:\shape文件"
dcnn.Connect
Set mlayer.GeoDataset = dcnn.FindGeoDataset("bou2_4l")
Map1.Layers.Add mlayer
End Sub
Dim dcnn As New MapObjects2.DataConnection
Dim mlayer As New MapObjects2.MapLayer
dcnn.Database = "G:\shape文件"
dcnn.Connect
Set mlayer.GeoDataset = dcnn.FindGeoDataset("bou2_4l")
Map1.Layers.Add mlayer
End Sub
(系统自动生成,下载前可以参看下载内容)
下载文件列表
bou2_4l.shp