toccontrol中的右键菜单如何实现？

<P>现在在用ae+vbnet开发一个三维globe界面，需要是线toccontrol的右键菜单功能，不知道该看那些资料或者依照什么思路，希望大家指点！<BR>谢谢！</P>

<P>思路是有的，但还需你自己动脑筋：</P>
<P>1、单击事件中，toccontrol.HitTest方法来判断点击的事物。</P>
<P>2、给个例子吧</P>
<P>下面是我实现ArcMap中双击toccontrol中Symbol调出SymbolSelector的例子：</P>
<P>Private Sub tocCtrl_OnDoubleClick(ByVal Button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)<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>  'Determine what kind of item has been clicked on<br>  tocCtrl.HitTest x, y, pItem, pMap, pLayer, pOther, pIndex<br>  'Only layer items can have their labels edited<br>  If pItem = esriTOCControlItemLegendClass Then<br>    Dim pLC As ILegendClass<br>    Dim pLG As ILegendGroup<br>    If TypeOf pOther Is ILegendGroup Then<br>       Set pLG = pOther<br>    End If<br>    Set pLC = pLG.Class(CLng(pIndex))<br>    Dim pSym As ISymbol<br>    Set pSym = pLC.Symbol<br>    Dim pSS As ISymbolSelector<br>    Dim bOK As Boolean<br>    Set pSS = New SymbolSelector<br>    pSS.AddSymbol pSym<br>    bOK = pSS.SelectSymbol(0)<br>    If bOK = True Then<br>        Set pLC.Symbol = pSS.GetSymbolAt(0)<br>    End If<br>    tocCtrl.Update<br>    mapCtrl.Refresh<br>  End If<br>End Sub</P>
<P>我想右键菜单，不是太难了吧</P>

<P><img src="images/post/smile/dvbbs/em02.gif" /></P>
<P>但不知在VB.NET中，esriTOCControlItem属于哪个命名空间啊？说无此数据类型。</P>

谢谢kisssy！

你知道在AE+VB中怎样实现吗？

其实现在我还没有搞明白！等彻底搞清楚了，告诉大家！不过也请高手出手啊！

可以用vb的自己的上下文菜单，先建立菜单，再将菜单popup

<P>我想实现toccontrol右键菜单的deletelayer命令，我是这样的思路：首先建立一个deletelayer类，然后将其作为imenudef的一个item加载，然后通过itoolbarmenu实现toccontrol的右键菜单。但是现在的问题是如何将toccontrol.hittest获取的layer传给deletelayer呢？我现在搞不明白这之间的逻辑关系，郁闷！</P>
<P>请大家帮忙啊！</P>

toccontrol 绑定的是Mapcontrol吗？

不是，是globecontrol，弄了一天了，还是没有弄出来！