ArcEngine开发入门.pptVIP

If (e.button = 2) Then Dim tocControl As ITOCControl tocControl =AxTOCControl1.Object Dim map As IMap Dim layer As ILayer Dim item As esriTOCControlItem Dim index As Object Dim other As Object tocControl.HitTest(e.x, e.y, item, map, _ layer, other, index) If item.esriTOCControlItemLayer Then MessageBox.Show(layer.Name) End If End if 访问 TOCControl条目 HitTest方法 X 和 Y 鼠标位置 ItemType BasicMap Layer Unk - ILegendGroup Data - legend class index 3D控件 SceneControl Scene view in ArcScene 封装在 Scene coclass中 Use for analyses and 3D viewing GlobeControl Globe view in ArcGlobe 封装在 Globe coclass中 所在类库 SceneControl.ocx GlobeControl.ocx 3D 控件的数据访问成员 ISceneControl/IGlobeControl CheckSxFile/Check3DFile LoadSxFile/Load3DFile ShowSceneTips/ShowGlobeTips TipStyle TipDelay Private Sub Form_Load() Dim fileName As String fileName = “C:\arcgis\ArcTutor\3DAnalyst\Exercise2\Groundwater.sxd” If AxSceneControl1.CheckSxFile(fileName) Then AxSceneControl1.LoadSxFile(fileName) AxSceneControl1.TipStyle = esriTipStyleTransparent AxSceneControl1.ShowSceneTips = True End If End Sub 从 MapDocument对象中访问数据 Possible to access layers from an mxd, lyr, pmf Private Sub Form_Load() Dim mapDocument As IMapDocument = New MapDocument Dim openDialog As New OpenFileDialog openDialog.Title = “Open Map Document” If openDialog.ShowDialog = DialogResult.OK Then mapDocument.Open(openDialog.FileName) End If If (AxGlobeControl1.GlobeDisplay.Scene.LayerCount = 0) Then Dim unk As Object Dim objectCopy As IObjectCopy = New ObjectCopy unk = objectCopy.Copy(mapDocument.Map(0)) Dim map As IMap map = unk Dim scene2 As IScene scene2 = AxGlobeControl1.GlobeDisplay.Scene scene2.AddLayers(map.Layers, False) End If End Sub 3D 控件的浏览和导航成员 ISceneControl/IGlobeControl Camera/GlobeCamera SceneViewer/GlobeViewer Scene/Globe Navigate Private Sub chkNavigate_Click() AxSceneControl1.Navigate = chkNavigate.CheckState End Sub Pr