查看会员资料
用 户 名：yef***
发送消息- Email：用户隐藏
- Icq/MSN：
- 电话号码：
- Homepage：
- 会员简介：
最新会员发布资源
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.Ad