在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.Ad