Lagi

Apakah ada cara untuk memanggil kotak dialog "Pilih Berdasarkan Lokasi" dan mendapatkan akses ke parameter

Apakah ada cara untuk memanggil kotak dialog


Dalam aplikasi yang saya kembangkan menggunakan VB.Net dengan ArcObjects 9.3, saya mencoba menampilkan kotak dialog "Select By Location" dalam kode saya. Saya tahu bahwa saya dapat memanggilnya secara langsung menggunakan UID melalui antarmuka ICommandItem, tetapi saya juga memerlukan akses ke parameter yang ditetapkan oleh kotak dialog (misalnya lapisan pemilihan, metode pemilihan, dan sebagainya-- sesuatu yang tidak saya ketahui pikir mungkin dengan metode UID). Apakah ada cara untuk melakukan ini yang saya lewatkan, mirip dengan cara Anda memanggil kotak dialog "Pilih Berdasarkan Atribut" menggunakan antarmuka IQueryAttributes?


Saya belum pernah menggunakan antarmuka itu jadi penemuan yang bagus! Tapi saya masih belum yakin dialognya terbuka…

Alternatifnya adalah membuka dan menampilkan alat pemrosesan geo lokasi yang dipilih? Kode VBA berikut membuka alat Hitung Bidang tetapi memberikan sintaks dasar untuk mengisi parameter dan membuka antarmuka.

Public Sub OpenCalculateTool() ' Hubungkan ke Toolbox dan dapatkan tool Dim pUID As New UID pUID = "esriGeoprocessingUI.ArcToolboxExtension" Dim pArcToolboxExtension As IArcToolboxExtension Set pArcToolboxExtension = Application.FindExtensionByCLSID As pArcToolbox pUID(pUID) Dim As IGPTool Set pGPTool = pArcToolbox.GetToolbyNameString("CalculateField") ' Buat pesan, diperlukan dengan metode Invoke Dim msgs As IGPMessages Set msgs = New GPMessages ' Get existing parameter structure Dim pArray As IArray Set pArray = pGPTool Parameter interface' DeclameterInfo Parameters' pGPParameter As IGPParameter Redup pGPDataType As IGPDataType Redup pGPParameterEdit As IGPParameterEdit ' Atur parameter alat Atur pGPParameter = pArray.Element(0) Atur pGPParameterEdit = pGPParameter Atur pGPDataType = pGPParameter.DataType Atur pGPParameterEdit.Value = pGPDataType )Value(".Create") ' Nama Featurelayer Set pGPParameter = pArray.Element( 1) Atur pGPParameterEdit = pGPParameter Atur pGPDataType = pGPParameter.DataType Atur pGPParameterEdit.Value = pGPDataType.CreateValue("xx") ' Kumpulan Bidang pGPParameter = pArray.Element(3) Atur pGPParameterEdit = pGPParameter Atur pGPDataType = pGPParameter.DataType Atur pGPParameterEdit = pGPDataType.CreateValue("VB") ' Buka alat Dim pGPToolCommandHelper Sebagai IGPToolCommandHelper2 Setel pGPToolCommandHelper = GPToolCommandHelper Baru pGPToolCommandHelper.SetTool pGPTool pGPToolCommandHelper.InvokeModal 0, pArray End, Sub, ms

Tonton videonya: Լիլի Հովեր - Նինո. Արմենիա Հեռուստաընկերություն 2017