[求助]超级新手的超级弱帖

刚刚学习ao，就遇到了一个问题：我想添加两个图层到mapcontrol中去。

可是如果只是单纯的添加 addshapefile 则可以看到两个图层。



可是如果我想设置一下两个层的符号，则就只能显示后加进去的图层了。

求助该如何添加多个图层

我的代码：

 Dim sFilePath As String   '*****定义一条路径，里面放置的是shape文件******

 sFilePath = App.Path ; "\shape\"

 

 MapControl1.AddShapeFile sFilePath, "jin_zone"  '*****添加山西省区县图层

 

 Dim pSimpleRenderer As ISimpleRenderer  

 Dim pFillSymbol As ISimpleFillSymbol      '********定义ISimpleFillSymbol的接口变量，填充符号

 Dim pLineSymbol As ISimpleLineSymbol      '********定义ISimpleLineSymbol的接口变量，线形符号

  

 Set pSimpleRenderer = New SimpleRenderer  '********实例化一个SimpleRenderer对象

 Set pFillSymbol = New SimpleFillSymbol    '********实例化一个SimpleFill对象

 Set pLineSymbol = New SimpleLineSymbol    '********实例化一个SimpleLine对象



'*******分别设置各个对象的属性***********

 pLineSymbol.Width = 0.2

 pLineSymbol.Color = GetRGBColor(255, 0, 0) 'Red

 pFillSymbol.Outline = pLineSymbol

 pFillSymbol.Color = GetRGBColor(0, 255, 0) 'Green

  

 Dim pGeoFeatureLayer As IGeoFeatureLayer   '*******定义一个IGeoFeatureLayer的接口变量

 Set pGeoFeatureLayer = MapControl1.Layer(0)   '*******令该层为地图控件的第一层，最上面的层

 Set pSimpleRenderer.Symbol = pFillSymbol   '*******令该SimpleRenderer对象的符号属性为定义好的填充符号对象

 Set pGeoFeatureLayer.Renderer = pSimpleRenderer

 '****************************************************************************************************

 MapControl1.AddShapeFile sFilePath, "jin_river" '*****添加河流图层

 

 Set pSimpleRenderer = New SimpleRenderer

 Set pLineSymbol = New SimpleLineSymbol

 

 pLineSymbol.Width = 0.2

 pLineSymbol.Color = GetRGBColor(0, 0, 255)

  

 Set pGeoFeatureLayer = MapControl1.Layer(1)

 Set pSimpleRenderer.Symbol = pLineSymbol

 Set pGeoFeatureLayer.Renderer = pSimpleRenderer   '*********令该层的着色层属性为定义好的SimpleRenderer对象