IdentifyDlg.vb
' Copyright 2012 ESRI ' ' All rights reserved under the copyright laws of the United States ' and applicable international laws, treaties, and conventions. ' ' You may freely redistribute and use this sample code, with or ' without modification, provided you include the original copyright ' notice and use restrictions. ' ' See the use restrictions. ' Imports Microsoft.VisualBasic Imports System Imports System.Drawing Imports System.Collections Imports System.ComponentModel Imports System.Windows.Forms Imports ESRI.ArcGIS.esriSystem ''' <summary> ''' The IdentifyDlg is used by the Identify object to display the identify results ''' </summary> Public Class IdentifyDlg : Inherits System.Windows.Forms.Form Private listView1 As System.Windows.Forms.ListView Private columnField As System.Windows.Forms.ColumnHeader Private columnValue As System.Windows.Forms.ColumnHeader ''' <summary> ''' Required designer variable. ''' </summary> Private components As System.ComponentModel.Container = Nothing Public Sub New() ' ' Required for Windows Form Designer support ' InitializeComponent() ' ' TODO: Add any constructor code after InitializeComponent call ' End Sub ''' <summary> ''' Clean up any resources being used. ''' </summary> Protected Overrides Overloads Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not components Is Nothing Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub #Region "Windows Form Designer generated code" ''' <summary> ''' Required method for Designer support - do not modify ''' the contents of this method with the code editor. ''' </summary> Private Sub InitializeComponent() Me.listView1 = New System.Windows.Forms.ListView Me.columnField = New System.Windows.Forms.ColumnHeader Me.columnValue = New System.Windows.Forms.ColumnHeader Me.SuspendLayout() ' 'listView1 ' Me.listView1.BorderStyle = System.Windows.Forms.BorderStyle.None Me.listView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.columnField, Me.columnValue}) Me.listView1.Dock = System.Windows.Forms.DockStyle.Fill Me.listView1.Location = New System.Drawing.Point(0, 0) Me.listView1.Name = "listView1" Me.listView1.Size = New System.Drawing.Size(314, 272) Me.listView1.TabIndex = 0 Me.listView1.UseCompatibleStateImageBehavior = False Me.listView1.View = System.Windows.Forms.View.Details ' 'columnField ' Me.columnField.Text = "Field" Me.columnField.Width = 100 ' 'columnValue ' Me.columnValue.Width = 200 ' 'IdentifyDlg ' Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15) Me.ClientSize = New System.Drawing.Size(314, 272) Me.Controls.Add(Me.listView1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow Me.Name = "IdentifyDlg" Me.ShowInTaskbar = False Me.Text = "Identify Dialog" Me.ResumeLayout(False) End Sub #End Region ''' <summary> ''' Populates the dialog's listview in order to display the identify results ''' </summary> ''' <param name="propSet"></param> ''' <remarks>The identify results are passed by the layer by the IdentifyObject through a PropertySet</remarks> Public Sub SetProperties(ByVal propSet As IPropertySet) If Nothing Is propSet Then Return End If 'The listView gets pairs of items since it has two columns for fields and value Dim id As String = Convert.ToString(propSet.GetProperty("ID")) listView1.Items.Add(New ListViewItem(New String(1) {"ID", id})) Dim zipCode As String = Convert.ToString(propSet.GetProperty("ZIPCODE")) listView1.Items.Add(New ListViewItem(New String(1) {"ZIPCODE", zipCode})) Dim cityName As String = Convert.ToString(propSet.GetProperty("CITYNAME")) listView1.Items.Add(New ListViewItem(New String(1) {"CITYNAME", cityName})) Dim latitude As String = Convert.ToString(propSet.GetProperty("LAT")) listView1.Items.Add(New ListViewItem(New String(1) {"LATITUDE", latitude})) Dim longitude As String = Convert.ToString(propSet.GetProperty("LON")) listView1.Items.Add(New ListViewItem(New String(1) {"LONGITUDE", longitude})) Dim temperature As String = Convert.ToString(propSet.GetProperty("TEMPERATURE")) listView1.Items.Add(New ListViewItem(New String(1) {"TEMPERATURE", temperature})) Dim description As String = Convert.ToString(propSet.GetProperty("CONDITION")) listView1.Items.Add(New ListViewItem(New String(1) {"DESCRIPTION", description})) Dim day As String = Convert.ToString(propSet.GetProperty("DAY")) listView1.Items.Add(New ListViewItem(New String(1) {"DAY", day})) Dim [date] As String = Convert.ToString(propSet.GetProperty("DATE")) listView1.Items.Add(New ListViewItem(New String(1) {"DATE", [date]})) Dim low As String = Convert.ToString(propSet.GetProperty("LOW")) listView1.Items.Add(New ListViewItem(New String(1) {"LOW", low})) Dim high As String = Convert.ToString(propSet.GetProperty("HIGH")) listView1.Items.Add(New ListViewItem(New String(1) {"HIGH", high})) Dim updated As String = Convert.ToDateTime(propSet.GetProperty("UPDATED")).ToLongTimeString() listView1.Items.Add(New ListViewItem(New String(1) {"UPDATED", updated})) Dim icon As String = Convert.ToString(propSet.GetProperty("ICONNAME")) listView1.Items.Add(New ListViewItem(New String(1) {"ICON", icon})) End Sub End Class