请教AE中关于Toccontrol中的问题

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

TOCControl1.HitTest x, y, pItem, pMap, pLayer, pOther, pIndex

if pItem.text = "Remove" then
 for i = 0 to pMap.count

    if pMap.Layer(i).name = pLayer.name then

                pMap.Layer(i).delete

    end if

  next i

elseif pItem.text = "Attribute Table"

  在帮助里找Attribute Table，记不清了．

endif

手头没ＡＯ，因此上面的代码没有调试过，可能有错误，希望对你有帮助．

代码改后如下：

Private Sub TOCControl1_OnMouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)
If (button = vbRightButton) Then
Dim pMap As IMap
Dim pLayer As ILayer
Dim pOther As IUnknown
Dim pItem As esriTOCControlItem
Dim pIndex As Variant

 TOCControl1.HitTest x, y, pItem, pMap, pLayer, pOther, pIndex
 If pItem.Text = "Remove" Then
 For i = 0 To pMap.Count
   If pMap.Layer(i).Name = pLayer.Name Then
      pMap.Layer(i).Delete
   End If
 Next i
   'ElseIf pItem.Text = "Attribute Table" Then
   '在帮助里找Attribute Table，记不清了．
 End If
End If
End Sub

运行没有问题，但是只要在toccontrol中点右键就会提示：编译错误，无效限定符。提示行在pItem，不知道哪里出错了，还请指教！

木白林，我不知道你说哪一行

移动图层就是先获取图层，然后用moveto了

打开表：获取图层（featureclass）>feature>field

读每个字段的value就是了，帮助里都有的，还是自己写点代码再问吧，

谢谢老大，我已经在找了...

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

这个不难打开啊,你有什么问题啊?