PrivateSubForm_Load().docVIP

Private Sub Form_Load() Dim dc As New DataConnection Dim layer As MapLayer dc.Database = D:\ \country\可用 If Not dc.Connect Then MsgBox 没有找到文件 End End If Set layer = New MapLayer Set layer.GeoDataset = dc.FindGeoDataset(polygon_Proj.shp) layer.Symbol.Color = moOlive Map1.Layers.Add layer Map2.Layers.Add layer Map1.Refresh Set layer = New MapLayer Set layer.GeoDataset = dc.FindGeoDataset(chenghoudian.shp) Set layer.Renderer = New LabelRenderer layer.Renderer.Field = name layer.Renderer.AllowDuplicates = True layer.Renderer.Symbol(0).Height = 1 layer.Renderer.Symbol(0).Font.Name = 幼圆 layer.Renderer.Symbol(0).Color = moYellow Map1.Layers.Add layer Map2.Layers.Add layer Combo1.AddItem 呼 玛 Combo1.AddItem 博 克 图 Combo1.AddItem 海 拉 尔 Combo1.AddItem 图 里 河 Combo1.AddItem 嫩 江 Combo1.AddItem 齐齐哈尔 Combo1.AddItem 海 伦 Combo1.AddItem 富 锦 Combo1.AddItem 佳 木 斯 Combo1.AddItem 鸡 西 Combo1.AddItem 哈 尔 滨 Combo1.AddItem 牡 丹 江 Combo1.AddItem 乌兰浩特 Combo1.AddItem 通 辽 Combo1.AddItem 长 春 Combo1.AddItem 延 吉 Combo1.AddItem 通 化 Combo1.AddItem 沈 阳 Combo1.AddItem 朝 阳 Combo1.AddItem 营 口 Combo1.AddItem 丹 东 Combo1.AddItem 大 连 Combo1.AddItem 林 东 Combo1.AddItem 锡林浩特 Combo1.AddItem 朱 日 和 Combo1.AddItem 多 伦 Combo1.AddItem 赤 峰 Combo1.AddItem 承 德 Combo1.AddItem 张 家 口 Combo1.AddItem 呼和浩特 Combo1.AddItem 包 头 Combo1.AddItem 陕 坝 Combo1.AddItem 北 京 Combo1.AddItem 天 津 Combo1.AddItem 石 家 庄 Combo1.AddItem 德 州 Combo1.AddItem 邢 台 Combo1.AddItem 安 阳 Combo1.AddItem 烟 台 Combo1.AddItem 青 岛 Combo1.AddItem 潍 坊 Combo1.AddItem 济 南 Combo1.AddItem 临 沂 Combo1.AddItem 荷 泽 Combo1.AddItem 新 浦 Combo1.AddItem 清 江 Combo1.AddItem 徐 州 Combo1.AddItem 蚌 埠 Combo1.AddItem 阜 阳 Combo1.AddItem 郑 州 Combo1.AddItem 南 阳 Combo1.AddItem 信 阳 Combo1.AddItem 东 台 Combo1.AddItem 南 京 Combo1.AddItem 合 肥 Combo1.AddItem 上 海 Combo1.AddItem 杭 州 Combo1.AddItem 安 庆 Combo1.AddItem 屯 溪 Combo1.AddItem 九 江 Combo1.AddItem 汉 口 Combo1.AddItem 钟 祥 Combo1.AddItem 岳 阳 Combo1.AddItem 宜 昌 Co