请教AE中关于Toccontrol中的问题

<P>在AE中很多都要自己写，比如象在toccontrol中的菜单，小弟查了一些帮助，说用ITOCControl中的HitTest来实现，但是没有找到例子，所以无从下手写，还请指教，我现在只想实现两个菜单，就是删除和打开属性表。谢谢大虾，还有就是如何改变图层的相对位置。</P>
<BR>

顶一下！应该有大虾做过吧

<P>TOCControl1.HitTest x, y, pItem, pMap, pLayer, pOther, pIndex</P>
<P>if pItem.text = "Remove" then<BR>  for i = 0 to pMap.count </P>
<P>     if pMap.Layer(i).name = pLayer.name then</P>
<P>                 pMap.Layer(i).delete</P>
<P>     end if</P>
<P>   next i</P>
<P>elseif pItem.text = "Attribute Table"</P>
<P>   在帮助里找Attribute Table，记不清了．</P>
<P>endif</P>
<P>手头没ＡＯ，因此上面的代码没有调试过，可能有错误，希望对你有帮助．</P><img src="images/post/smile/dvbbs/em03.gif" /><img src="images/post/smile/dvbbs/em03.gif" />

谢谢，谢谢楼上的兄台的提示<img src="images/post/smile/dvbbs/em12.gif" />

<P>代码改后如下：</P>
<P>Private Sub TOCControl1_OnMouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)<BR>If (button = vbRightButton) Then<BR>Dim pMap As IMap<BR>Dim pLayer As ILayer<BR>Dim pOther As IUnknown<BR>Dim pItem As esriTOCControlItem<BR>Dim pIndex As Variant</P>
<P>  TOCControl1.HitTest x, y, pItem, pMap, pLayer, pOther, pIndex<BR>  If pItem.Text = "Remove" Then<BR>  For i = 0 To pMap.Count<BR>    If pMap.Layer(i).Name = pLayer.Name Then<BR>       pMap.Layer(i).Delete<BR>    End If<BR>  Next i<BR>    'ElseIf pItem.Text = "Attribute Table" Then<BR>    '在帮助里找Attribute Table，记不清了．<BR>  End If<BR>End If<BR>End Sub</P>
<P>运行没有问题，但是只要在toccontrol中点右键就会提示：编译错误，无效限定符。提示行在pItem，不知道哪里出错了，还请指教！</P>

现在有两个问题了 ，一个是移动图层，一个是打开表

<P>木白林，我不知道你说哪一行</P>
<P> 移动图层就是先获取图层，然后用moveto了</P>
<P>打开表：获取图层（featureclass）>feature>field</P>
<P>读每个字段的value就是了，帮助里都有的，还是自己写点代码再问吧，</P><img src="images/post/smile/dvbbs/em02.gif" />

<P>谢谢老大，我已经在找了...</P><img src="images/post/smile/dvbbs/em08.gif" />

<P>都过了这么久，还是没有进展...拜托有没有哪位做过打开属性表的啊？</P>

<P>这个不难打开啊,你有什么问题啊?</P>