24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

zzahkj

木虫 (著名写手)

应助: 42 (小学生)
金币: 1923.7
帖子: 1517
在线: 465.1小时
虫号: 964751

[交流] VB.net和ArcEngine实现右键快捷菜单

我是一个新手，在VB.net和ArcEngine进行开发时想实现右键菜单，从网上下的代码只能对于矢量图层能够点击右键菜单，而对于栅格图层却不能显示右键菜单，我对于一些接口和类还不熟悉，我改不好，想请大家帮我改改！谢谢！

CODE:

 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