[½»Á÷] VB.netºÍArcEngineʵÏÖÓÒ¼ü¿ì½Ý²Ëµ¥

Dim toccItem As ESRI.ArcGIS.Controls.esriTOCControlItem
    Dim Private iBasicMap As IBasicMap
   Dim pLayer As IFeatureLayer
    Dim pclass As IFeatureClass
   Dim pOther As Object = Nothing
        Dim pIndex As Object = Nothing
        If e.button = 2 Then
            AxTOCControl1.HitTest(e.x, e.y, toccItem, iBasicMap, iLayer, pOther, pIndex)
            If toccItem = ESRI.ArcGIS.Controls.esriTOCControlItem.esriTOCControlItemLayer Then
                pLayer = CType(iLayer, ILayer)
                pclass = pLayer.FeatureClass
                SymbolToolStripMenuItem.DropDownItems.Clear()
                Dim i As Integer
                For i = 0 To pclass.Fields.FieldCount - 1
                    SymbolToolStripMenuItem.DropDownItems.Add(pclass.Fields.Field(i).Name, Nothing, New EventHandler(AddressOf symbolshow_Clicked))
                Next
                ContextMenuStrip1.Show(AxTOCControl1, New System.Drawing.Point(e.x, e.y))
            ElseIf toccItem = ESRI.ArcGIS.Controls.esriTOCControlItem.esriTOCControlItemMap Then
                ContextMenuStrip2.Show(AxTOCControl1, New System.Drawing.Point(e.x, e.y))
            End If
        End If

Originally posted by yanggis at 2011-05-15 19:56:30:
pclass = pLayer.FeatureClass
Õâ¾äÓÐÎÊÌâ¡£