vb.net实现toccontrol控件拖放图层问题

 Private Sub TocView_OnMouseDown(ByVal sender As Object, ByVal e As ESRI.ArcGIS.TOCControl.ITOCControlEvents_OnMouseDownEvent) Handles TocView.OnMouseDown<br>        Dim pitem As ESRI.ArcGIS.TOCControl.esriTOCControlItem<br>        Dim pmap As Map<br>        Dim player As ILayer<br>        Dim pother As ILegendGroup<br>        Dim pindex As Object<br>        TocView.HitTest(e.x, e.y, pitem, pmap, player, pother, pindex)<br>        MsgBox("hello", MsgBoxStyle.OKCancel, "0")<br>        If pitem <> ESRI.ArcGIS.TOCControl.esriTOCControlItem.esriTOCControlItemNone Then<br>            dragflag = True<br>            selectedLayer = player<br><br>        End If<br>    End Sub<br>我每次执行到TocView.HitTest(e.x, e.y, pitem, pmap, player, pother, pindex)就没有下文了，我检查了一下，类型都匹配啊，不知道是什么原因啊，有哪位大侠遇到过或是知道的，希望不吝赐教！！！<br><br><br>

<P>如何实现TOC控件里的图层拖动</P>
<P><a href="http://gisempire.com/bbs/dispbbs.asp?BoardID=62;ID=47610" target="_blank" >http://gisempire.com/bbs/dispbbs.asp?BoardID=62;ID=47610</A></P>

这个也在实践中，我的想法是在mousedown中记录要拖放的图层的index，然后在mouseup中记录要放置的新位置的原来图层的index然后通过movelayer操作，将其重排。当然还要考虑很多细节问题了。最主要的就是这样了。现在问题是最关键的记录点击图层的index的方法hittest方法不能正常工作啊。希望哪位大侠帮忙啊。<br>

就没有哪位老兄知道么？<br>瞎猜也行啊<br>给点意见啊<br>呜呜<br><br>

<P>关于图层拖动问题AE自身带的例子里面就有 </P>

<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em01.gif" />

<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em01.gif" />

那我这样引用hittest错了没有呢<br>呵呵<br>

<img>我也看了版主的例子了，好像和我的做法是差不多的啊<br>不知道有没有什么方法可以跟踪到esri组件的内部啊<br>

<P>兄弟，我也在问啊，我无语了，不知道为什么到那里总是错啊</P>