[求助] 用TreeView显示图层名称

<P>请教各位:</P>
<P>本人想在VB中用TreeView控件实现MapControl中地图图层的显示,代码如下:</P>
<P>Dim mLayer As ILayer<BR>Dim parNode As Node<BR>Dim mMap As IMap<BR>Set mMap = MapControl1.Map</P>
<P>TreeView1.Nodes.Clear</P>
<P>Dim x As Long<BR>x = mMap.LayerCount<BR>Dim n As Integer<BR>n = CInt(x)</P>
<P>For i = 1 To n Step 1<BR>  Set mLayer = mMap.Layer(i)<BR>  Set parNode = TreeView1.Nodes.Add(, , , mLayer.Name)<BR>Next i<BR>  parNode.EnsureVisible</P>
<P>End Sub</P>
<P>运行时出现"无效的过程调用或参数"出错提示.</P>
<P>请问各位是怎么回事?如何修改?可否指点一二,非常感谢!</P>

<P>回复楼上,问题搞定,修改代码如下:</P>
<P>Dim mLayer As ILayer<BR>Dim parNode As Node<BR></P>
<P>TreeView1.Nodes.Clear</P>
<P>dim i as Integer</P>
<P>For i = 0 To Mapcontrol1.LayerCount-1 Step 1<BR>  Set mLayer = Mapcontrol1.Layer(i)<BR>  Set parNode = TreeView1.Nodes.Add(, , , mLayer.Name)<BR>Next i<BR>  parNode.EnsureVisible</P>
<P>End Sub</P>

<TABLE cellSpacing=0 cellPadding=4 width="100%">

<TR>
<TD glow(color=white,strength=2)" vAlign=center width=*>
<P>    

<SCRIPT language=javascript type=text/javascript><br>document.write (usercolor('10','Eyesonme'));<br></script>

 <FONT face=Verdana color=#61b713><B>Eyesonme:</B></FONT></P>
<P><STRONG><FONT face=Verdana color=#61b713>请问你实现了功能了吗??</FONT></STRONG></P>
<P><STRONG><FONT face=Verdana color=#61b713>我也正在着手弄这个问题 ,要是弄好了就教下我</FONT></STRONG></P>
<P><STRONG><FONT face=Verdana color=#61b713>谢谢了 </FONT></STRONG></P></TD></TR></TABLE>

<P>key不是可选的吗?</P>

 Set parNode = TreeView1.Nodes.Add(, , , mLayer.Name)<BR>没有key值