- Category:
- GIS program
- Tags:
-
- File Size:
- 408kb
- Update:
- 2012-11-26
- Downloads:
- 1 Times
- Uploaded by:
- 247178033
Description: 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
To Search:
File list (Check if you may need any files):
bou2_4l.shp
Download