SpatialQuery.vb
' Copyright 2010 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 ESRI.ArcGIS.PublisherControls Imports ESRI.ArcGIS Public Class SpatialQuery Inherits System.Windows.Forms.Form #Region "Windows Form Designer generated code " Public Sub New() MyBase.New() 'Load runtime If Not RuntimeManager.Bind(ProductCode.ArcReader) Then If Not RuntimeManager.Bind(ProductCode.EngineOrDesktop) Then MessageBox.Show("Unable to bind to ArcGIS runtime. Application will be shut down.") System.Environment.Exit(1) ' Force exit End If End If 'This call is required by the Windows Form Designer. InitializeComponent() End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides 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 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer Public WithEvents lblRecords As System.Windows.Forms.Label Public WithEvents Frame1 As System.Windows.Forms.GroupBox Public WithEvents cmdQuery As System.Windows.Forms.Button Public WithEvents cmdFullExtent As System.Windows.Forms.Button Public WithEvents cmdLoad As System.Windows.Forms.Button Public WithEvents Label2 As System.Windows.Forms.Label Public WithEvents Label3 As System.Windows.Forms.Label Public WithEvents Label5 As System.Windows.Forms.Label Public WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog Public WithEvents optTool2 As System.Windows.Forms.RadioButton Public WithEvents optTool1 As System.Windows.Forms.RadioButton Public WithEvents optTool0 As System.Windows.Forms.RadioButton Friend WithEvents AxMSFlexGrid1 As AxMSFlexGridLib.AxMSFlexGrid 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Public WithEvents cmdFeature3 As System.Windows.Forms.Button Public WithEvents cmdFeature2 As System.Windows.Forms.Button Public WithEvents cmdFeature1 As System.Windows.Forms.Button Public WithEvents cmdFeature0 As System.Windows.Forms.Button Public WithEvents cmdFeatureSet1 As System.Windows.Forms.Button Public WithEvents cmdFeatureSet0 As System.Windows.Forms.Button Friend WithEvents AxArcReaderControl1 As ESRI.ArcGIS.PublisherControls.AxArcReaderControl <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(SpatialQuery)) Me.Frame1 = New System.Windows.Forms.GroupBox Me.AxMSFlexGrid1 = New AxMSFlexGridLib.AxMSFlexGrid Me.cmdFeatureSet1 = New System.Windows.Forms.Button Me.cmdFeature3 = New System.Windows.Forms.Button Me.cmdFeature2 = New System.Windows.Forms.Button Me.cmdFeature1 = New System.Windows.Forms.Button Me.cmdFeature0 = New System.Windows.Forms.Button Me.cmdFeatureSet0 = New System.Windows.Forms.Button Me.lblRecords = New System.Windows.Forms.Label Me.cmdQuery = New System.Windows.Forms.Button Me.cmdFullExtent = New System.Windows.Forms.Button Me.optTool2 = New System.Windows.Forms.RadioButton Me.optTool1 = New System.Windows.Forms.RadioButton Me.optTool0 = New System.Windows.Forms.RadioButton Me.cmdLoad = New System.Windows.Forms.Button Me.Label2 = New System.Windows.Forms.Label Me.Label3 = New System.Windows.Forms.Label Me.Label5 = New System.Windows.Forms.Label Me.Label6 = New System.Windows.Forms.Label Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog Me.AxArcReaderControl1 = New ESRI.ArcGIS.PublisherControls.AxArcReaderControl Me.Frame1.SuspendLayout() CType(Me.AxMSFlexGrid1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.AxArcReaderControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Frame1 ' Me.Frame1.BackColor = System.Drawing.SystemColors.Control Me.Frame1.Controls.Add(Me.AxMSFlexGrid1) Me.Frame1.Controls.Add(Me.cmdFeatureSet1) Me.Frame1.Controls.Add(Me.cmdFeature3) Me.Frame1.Controls.Add(Me.cmdFeature2) Me.Frame1.Controls.Add(Me.cmdFeature1) Me.Frame1.Controls.Add(Me.cmdFeature0) Me.Frame1.Controls.Add(Me.cmdFeatureSet0) Me.Frame1.Controls.Add(Me.lblRecords) Me.Frame1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Frame1.ForeColor = System.Drawing.SystemColors.ControlText Me.Frame1.Location = New System.Drawing.Point(456, 128) Me.Frame1.Name = "Frame1" Me.Frame1.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Frame1.Size = New System.Drawing.Size(241, 369) Me.Frame1.TabIndex = 6 Me.Frame1.TabStop = False ' 'AxMSFlexGrid1 ' Me.AxMSFlexGrid1.ContainingControl = Me Me.AxMSFlexGrid1.Location = New System.Drawing.Point(8, 72) Me.AxMSFlexGrid1.Name = "AxMSFlexGrid1" Me.AxMSFlexGrid1.OcxState = CType(resources.GetObject("AxMSFlexGrid1.OcxState"), System.Windows.Forms.AxHost.State) Me.AxMSFlexGrid1.Size = New System.Drawing.Size(224, 248) Me.AxMSFlexGrid1.TabIndex = 15 ' 'cmdFeatureSet1 ' Me.cmdFeatureSet1.BackColor = System.Drawing.SystemColors.Control Me.cmdFeatureSet1.Cursor = System.Windows.Forms.Cursors.Default Me.cmdFeatureSet1.Enabled = False Me.cmdFeatureSet1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cmdFeatureSet1.ForeColor = System.Drawing.SystemColors.ControlText Me.cmdFeatureSet1.Location = New System.Drawing.Point(120, 16) Me.cmdFeatureSet1.Name = "cmdFeatureSet1" Me.cmdFeatureSet1.RightToLeft = System.Windows.Forms.RightToLeft.No Me.cmdFeatureSet1.Size = New System.Drawing.Size(113, 25) Me.cmdFeatureSet1.TabIndex = 14 Me.cmdFeatureSet1.Text = "<< Previous Feature" ' 'cmdFeature3 ' Me.cmdFeature3.BackColor = System.Drawing.SystemColors.Control Me.cmdFeature3.Cursor = System.Windows.Forms.Cursors.Default Me.cmdFeature3.Enabled = False Me.cmdFeature3.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cmdFeature3.ForeColor = System.Drawing.SystemColors.ControlText Me.cmdFeature3.Location = New System.Drawing.Point(176, 328) Me.cmdFeature3.Name = "cmdFeature3" Me.cmdFeature3.RightToLeft = System.Windows.Forms.RightToLeft.No Me.cmdFeature3.Size = New System.Drawing.Size(57, 33) Me.cmdFeature3.TabIndex = 11 Me.cmdFeature3.Text = "Flicker" ' 'cmdFeature2 ' Me.cmdFeature2.BackColor = System.Drawing.SystemColors.Control Me.cmdFeature2.Cursor = System.Windows.Forms.Cursors.Default Me.cmdFeature2.Enabled = False Me.cmdFeature2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cmdFeature2.ForeColor = System.Drawing.SystemColors.ControlText Me.cmdFeature2.Location = New System.Drawing.Point(120, 328) Me.cmdFeature2.Name = "cmdFeature2" Me.cmdFeature2.RightToLeft = System.Windows.Forms.RightToLeft.No Me.cmdFeature2.Size = New System.Drawing.Size(57, 33) Me.cmdFeature2.TabIndex = 10 Me.cmdFeature2.Text = "Flash" ' 'cmdFeature1 ' Me.cmdFeature1.BackColor = System.Drawing.SystemColors.Control Me.cmdFeature1.Cursor = System.Windows.Forms.Cursors.Default Me.cmdFeature1.Enabled = False Me.cmdFeature1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cmdFeature1.ForeColor = System.Drawing.SystemColors.ControlText Me.cmdFeature1.Location = New System.Drawing.Point(64, 328) Me.cmdFeature1.Name = "cmdFeature1" Me.cmdFeature1.RightToLeft = System.Windows.Forms.RightToLeft.No Me.cmdFeature1.Size = New System.Drawing.Size(57, 33) Me.cmdFeature1.TabIndex = 9 Me.cmdFeature1.Text = "CenterAt" ' 'cmdFeature0 ' Me.cmdFeature0.BackColor = System.Drawing.SystemColors.Control Me.cmdFeature0.Cursor = System.Windows.Forms.Cursors.Default Me.cmdFeature0.Enabled = False Me.cmdFeature0.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cmdFeature0.ForeColor = System.Drawing.SystemColors.ControlText Me.cmdFeature0.Location = New System.Drawing.Point(8, 328) Me.cmdFeature0.Name = "cmdFeature0" Me.cmdFeature0.RightToLeft = System.Windows.Forms.RightToLeft.No Me.cmdFeature0.Size = New System.Drawing.Size(57, 33) Me.cmdFeature0.TabIndex = 8 Me.cmdFeature0.Text = "ZoomTo" ' 'cmdFeatureSet0 ' Me.cmdFeatureSet0.BackColor = System.Drawing.SystemColors.Control Me.cmdFeatureSet0.Cursor = System.Windows.Forms.Cursors.Default Me.cmdFeatureSet0.Enabled = False Me.cmdFeatureSet0.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cmdFeatureSet0.ForeColor = System.Drawing.SystemColors.ControlText Me.cmdFeatureSet0.Location = New System.Drawing.Point(8, 16) Me.cmdFeatureSet0.Name = "cmdFeatureSet0" Me.cmdFeatureSet0.RightToLeft = System.Windows.Forms.RightToLeft.No Me.cmdFeatureSet0.Size = New System.Drawing.Size(113, 25) Me.cmdFeatureSet0.TabIndex = 7 Me.cmdFeatureSet0.Text = "Next Feature >>" ' 'lblRecords ' Me.lblRecords.BackColor = System.Drawing.SystemColors.Control Me.lblRecords.Cursor = System.Windows.Forms.Cursors.Default Me.lblRecords.Enabled = False Me.lblRecords.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblRecords.ForeColor = System.Drawing.SystemColors.ControlText Me.lblRecords.Location = New System.Drawing.Point(8, 48) Me.lblRecords.Name = "lblRecords" Me.lblRecords.RightToLeft = System.Windows.Forms.RightToLeft.No Me.lblRecords.Size = New System.Drawing.Size(225, 17) Me.lblRecords.TabIndex = 13 Me.lblRecords.Text = "0 of 0 features" ' 'cmdQuery ' Me.cmdQuery.BackColor = System.Drawing.SystemColors.Control Me.cmdQuery.Cursor = System.Windows.Forms.Cursors.Default Me.cmdQuery.Enabled = False Me.cmdQuery.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cmdQuery.ForeColor = System.Drawing.SystemColors.ControlText Me.cmdQuery.Location = New System.Drawing.Point(368, 8) Me.cmdQuery.Name = "cmdQuery" Me.cmdQuery.RightToLeft = System.Windows.Forms.RightToLeft.No Me.cmdQuery.Size = New System.Drawing.Size(73, 49) Me.cmdQuery.TabIndex = 5 Me.cmdQuery.Text = "Spatial Query" ' 'cmdFullExtent ' Me.cmdFullExtent.BackColor = System.Drawing.SystemColors.Control Me.cmdFullExtent.Cursor = System.Windows.Forms.Cursors.Default Me.cmdFullExtent.Enabled = False Me.cmdFullExtent.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cmdFullExtent.ForeColor = System.Drawing.SystemColors.ControlText Me.cmdFullExtent.ImageAlign = System.Drawing.ContentAlignment.BottomCenter Me.cmdFullExtent.Location = New System.Drawing.Point(296, 8) Me.cmdFullExtent.Name = "cmdFullExtent" Me.cmdFullExtent.RightToLeft = System.Windows.Forms.RightToLeft.No Me.cmdFullExtent.Size = New System.Drawing.Size(73, 49) Me.cmdFullExtent.TabIndex = 4 Me.cmdFullExtent.Text = "FullExtent" Me.cmdFullExtent.TextAlign = System.Drawing.ContentAlignment.TopCenter ' 'optTool2 ' Me.optTool2.Appearance = System.Windows.Forms.Appearance.Button Me.optTool2.BackColor = System.Drawing.SystemColors.Control Me.optTool2.Cursor = System.Windows.Forms.Cursors.Default Me.optTool2.Enabled = False Me.optTool2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.optTool2.ForeColor = System.Drawing.SystemColors.ControlText Me.optTool2.ImageAlign = System.Drawing.ContentAlignment.BottomCenter Me.optTool2.Location = New System.Drawing.Point(224, 8) Me.optTool2.Name = "optTool2" Me.optTool2.RightToLeft = System.Windows.Forms.RightToLeft.No Me.optTool2.Size = New System.Drawing.Size(73, 49) Me.optTool2.TabIndex = 3 Me.optTool2.TabStop = True Me.optTool2.Text = "Pan" Me.optTool2.TextAlign = System.Drawing.ContentAlignment.TopCenter ' 'optTool1 ' Me.optTool1.Appearance = System.Windows.Forms.Appearance.Button Me.optTool1.BackColor = System.Drawing.SystemColors.Control Me.optTool1.Cursor = System.Windows.Forms.Cursors.Default Me.optTool1.Enabled = False Me.optTool1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.optTool1.ForeColor = System.Drawing.SystemColors.ControlText Me.optTool1.ImageAlign = System.Drawing.ContentAlignment.BottomCenter Me.optTool1.Location = New System.Drawing.Point(152, 8) Me.optTool1.Name = "optTool1" Me.optTool1.RightToLeft = System.Windows.Forms.RightToLeft.No Me.optTool1.Size = New System.Drawing.Size(73, 49) Me.optTool1.TabIndex = 2 Me.optTool1.TabStop = True Me.optTool1.Text = "ZoomOut" Me.optTool1.TextAlign = System.Drawing.ContentAlignment.TopCenter ' 'optTool0 ' Me.optTool0.Appearance = System.Windows.Forms.Appearance.Button Me.optTool0.BackColor = System.Drawing.SystemColors.Control Me.optTool0.Cursor = System.Windows.Forms.Cursors.Default Me.optTool0.Enabled = False Me.optTool0.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.optTool0.ForeColor = System.Drawing.SystemColors.ControlText Me.optTool0.ImageAlign = System.Drawing.ContentAlignment.BottomCenter Me.optTool0.Location = New System.Drawing.Point(80, 8) Me.optTool0.Name = "optTool0" Me.optTool0.RightToLeft = System.Windows.Forms.RightToLeft.No Me.optTool0.Size = New System.Drawing.Size(73, 49) Me.optTool0.TabIndex = 1 Me.optTool0.TabStop = True Me.optTool0.Text = "ZoomIn" Me.optTool0.TextAlign = System.Drawing.ContentAlignment.TopCenter ' 'cmdLoad ' Me.cmdLoad.BackColor = System.Drawing.SystemColors.Control Me.cmdLoad.Cursor = System.Windows.Forms.Cursors.Default Me.cmdLoad.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cmdLoad.ForeColor = System.Drawing.SystemColors.ControlText Me.cmdLoad.ImageAlign = System.Drawing.ContentAlignment.BottomCenter Me.cmdLoad.Location = New System.Drawing.Point(8, 8) Me.cmdLoad.Name = "cmdLoad" Me.cmdLoad.RightToLeft = System.Windows.Forms.RightToLeft.No Me.cmdLoad.Size = New System.Drawing.Size(73, 49) Me.cmdLoad.TabIndex = 0 Me.cmdLoad.Text = "Open" Me.cmdLoad.TextAlign = System.Drawing.ContentAlignment.TopCenter ' 'Label2 ' Me.Label2.BackColor = System.Drawing.SystemColors.Control Me.Label2.Cursor = System.Windows.Forms.Cursors.Default Me.Label2.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.ForeColor = System.Drawing.SystemColors.Highlight Me.Label2.Location = New System.Drawing.Point(456, 8) Me.Label2.Name = "Label2" Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label2.Size = New System.Drawing.Size(249, 17) Me.Label2.TabIndex = 18 Me.Label2.Text = "1) Browse to a PMF to load." ' 'Label3 ' Me.Label3.BackColor = System.Drawing.SystemColors.Control Me.Label3.Cursor = System.Windows.Forms.Cursors.Default Me.Label3.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label3.ForeColor = System.Drawing.SystemColors.Highlight Me.Label3.Location = New System.Drawing.Point(456, 25) Me.Label3.Name = "Label3" Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label3.Size = New System.Drawing.Size(249, 17) Me.Label3.TabIndex = 17 Me.Label3.Text = "2) Navigate to some features of interest. " ' 'Label5 ' Me.Label5.BackColor = System.Drawing.SystemColors.Control Me.Label5.Cursor = System.Windows.Forms.Cursors.Default Me.Label5.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label5.ForeColor = System.Drawing.SystemColors.Highlight Me.Label5.Location = New System.Drawing.Point(456, 72) Me.Label5.Name = "Label5" Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label5.Size = New System.Drawing.Size(225, 56) Me.Label5.TabIndex = 16 Me.Label5.Text = "4) Loop through the features to display field values and use the buttons to ident" & _ "ify each feature on the map." ' 'Label6 ' Me.Label6.BackColor = System.Drawing.SystemColors.Control Me.Label6.Cursor = System.Windows.Forms.Cursors.Default Me.Label6.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label6.ForeColor = System.Drawing.SystemColors.Highlight Me.Label6.Location = New System.Drawing.Point(456, 42) Me.Label6.Name = "Label6" Me.Label6.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label6.Size = New System.Drawing.Size(249, 30) Me.Label6.TabIndex = 15 Me.Label6.Text = "3) Query the focus map for all visible features within the current map extent. " ' 'AxArcReaderControl1 ' Me.AxArcReaderControl1.Location = New System.Drawing.Point(8, 64) Me.AxArcReaderControl1.Name = "AxArcReaderControl1" Me.AxArcReaderControl1.OcxState = CType(resources.GetObject("AxArcReaderControl1.OcxState"), System.Windows.Forms.AxHost.State) Me.AxArcReaderControl1.Size = New System.Drawing.Size(432, 424) Me.AxArcReaderControl1.TabIndex = 19 ' 'Form1 ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.BackColor = System.Drawing.SystemColors.Control Me.ClientSize = New System.Drawing.Size(708, 504) Me.Controls.Add(Me.AxArcReaderControl1) Me.Controls.Add(Me.Frame1) Me.Controls.Add(Me.cmdQuery) Me.Controls.Add(Me.cmdFullExtent) Me.Controls.Add(Me.optTool2) Me.Controls.Add(Me.optTool1) Me.Controls.Add(Me.optTool0) Me.Controls.Add(Me.cmdLoad) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label6) Me.Cursor = System.Windows.Forms.Cursors.Default Me.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.Location = New System.Drawing.Point(3, 22) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "Form1" Me.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Text = "Query" Me.Frame1.ResumeLayout(False) CType(Me.AxMSFlexGrid1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.AxArcReaderControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub #End Region Private m_pFeature As ARFeature Private m_pFeatureSet As ARFeatureSet Private m_bQueryFeatures As Boolean Private m_bQueryValues As Boolean Private m_lRecord As Integer Private Sub cmdFeature_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFeature0.Click, cmdFeature1.Click, cmdFeature2.Click, cmdFeature3.Click Dim senderName As String senderName = sender.Name 'Navigate or show the selected feature Select Case senderName Case "cmdFeature0" m_pFeature.ZoomTo() Case "cmdFeature1" m_pFeature.CenterAt() Case "cmdFeature2" m_pFeature.Flash() Case "cmdFeature3" m_pFeature.Flicker() End Select End Sub Private Sub cmdFeatureSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFeatureSet0.Click, cmdFeatureSet1.Click Dim senderName As String senderName = sender.Name Select Case senderName Case "cmdFeatureSet0" 'Next record m_lRecord = m_lRecord + 1 Case "cmdFeatureSet1" 'Previous record m_lRecord = m_lRecord - 1 End Select 'Get the next/previous feature m_pFeature = m_pFeatureSet.ARFeature(m_lRecord) 'Display attribute values UpdateValueDisplay() End Sub Private Sub cmdFullExtent_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdFullExtent.Click Dim dXmax, dXmin, dYmin, dYmax As Double 'Get the coordinates of data's full extent AxArcReaderControl1.ARPageLayout.FocusARMap.GetFullExtent(dXmin, dYmin, dXmax, dYmax) 'Set the extent of the focus map AxArcReaderControl1.ARPageLayout.FocusARMap.SetExtent(dXmin, dYmin, dXmax, dYmax) 'Refresh the display AxArcReaderControl1.ARPageLayout.FocusARMap.Refresh() End Sub Private Sub cmdLoad_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdLoad.Click 'Open a file dialog for selecting map documents OpenFileDialog1.Title = "Select Published Map Document" OpenFileDialog1.Filter = "Published Map Documents (*.pmf)|*.pmf" OpenFileDialog1.ShowDialog() 'Exit if no map document is selected Dim sFilePath As String sFilePath = OpenFileDialog1.FileName If sFilePath = "" Then Exit Sub 'Load the specified pmf If AxArcReaderControl1.CheckDocument(sFilePath) = True Then AxArcReaderControl1.LoadDocument(sFilePath) Else MsgBox("This document cannot be loaded!") Exit Sub End If 'Determine whether permission to search layers and query field values m_bQueryFeatures = AxArcReaderControl1.HasDocumentPermission(esriARDocumentPermissions.esriARDocumentPermissionsQueryFeatures) m_bQueryValues = AxArcReaderControl1.HasDocumentPermission(esriARDocumentPermissions.esriARDocumentPermissionsQueryValues) 'Set current tool optTool0.Checked = True End Sub Private Sub cmdQuery_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdQuery.Click 'Determine whether permission to search layers If m_bQueryFeatures = False Then MsgBox("You do not have permission to search for features!") Exit Sub End If 'Get IARQueryDef interface Dim pSearchDef As ArcReaderSearchDef pSearchDef = New ArcReaderSearchDef 'Set the spatial searching to intersects pSearchDef.SpatialRelationship = esriARSpatialRelationship.esriARSpatialRelationshipIntersects 'Get the coordinates of the current extent Dim dXmax, dXmin, dYmin, dYmax As Double AxArcReaderControl1.ARPageLayout.FocusARMap.GetExtent(dXmin, dYmin, dXmax, dYmax) 'Set the envelope coordinates as the search shape pSearchDef.SetEnvelopeShape(dXmin, dYmin, dXmax, dYmax) 'Get IARFeatureSet interface m_pFeatureSet = AxArcReaderControl1.ARPageLayout.FocusARMap.QueryARFeatures(pSearchDef) 'Reset the featureset m_pFeatureSet.Reset() 'Get the IARFeature interface m_pFeature = m_pFeatureSet.Next 'Display attribute values m_lRecord = 0 UpdateValueDisplay() End Sub Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load 'Load command button images from the resource editor Dim pBitmap As System.Drawing.Bitmap pBitmap = New System.Drawing.Bitmap(GetType(SpatialQuery).Assembly.GetManifestResourceStream(GetType(SpatialQuery), "browse.bmp")) pBitmap.MakeTransparent(System.Drawing.Color.Teal) cmdLoad.Image = pBitmap pBitmap = New System.Drawing.Bitmap(GetType(SpatialQuery).Assembly.GetManifestResourceStream(GetType(SpatialQuery), "ZoomIn.bmp")) pBitmap.MakeTransparent(System.Drawing.Color.Teal) optTool0.Image = pBitmap pBitmap = New System.Drawing.Bitmap(GetType(SpatialQuery).Assembly.GetManifestResourceStream(GetType(SpatialQuery), "ZoomOut.bmp")) pBitmap.MakeTransparent(System.Drawing.Color.Teal) optTool1.Image = pBitmap pBitmap = New System.Drawing.Bitmap(GetType(SpatialQuery).Assembly.GetManifestResourceStream(GetType(SpatialQuery), "Pan.bmp")) pBitmap.MakeTransparent(System.Drawing.Color.Teal) optTool2.Image = pBitmap pBitmap = New System.Drawing.Bitmap(GetType(SpatialQuery).Assembly.GetManifestResourceStream(GetType(SpatialQuery), "FullExtent.bmp")) pBitmap.MakeTransparent(System.Drawing.Color.Teal) cmdFullExtent.Image = pBitmap End Sub Private Sub MixedControlsCurrentTool_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optTool0.Click, optTool1.Click, optTool2.Click Dim senderName As String senderName = sender.Name Select Case senderName 'Set current tool Case "optTool0" AxArcReaderControl1.CurrentARTool = esriARTool.esriARToolMapZoomIn Case "optTool1" AxArcReaderControl1.CurrentARTool = esriARTool.esriARToolMapZoomOut Case "optTool2" AxArcReaderControl1.CurrentARTool = esriARTool.esriARToolMapPan End Select End Sub Public Sub UpdateValueDisplay() Dim i As Short Dim iRow As Short Dim lNameWidth As Integer Dim lValueWidth As Integer Dim sFieldName As String Dim sFieldValue As String Dim textSize As SizeF Dim pGraphics As Graphics = Me.CreateGraphics() 'A grid row for each field If m_pFeature Is Nothing Then AxMSFlexGrid1.Rows = 0 Else AxMSFlexGrid1.Rows = m_pFeature.FieldCount End If 'For each field that isn't the 'Shape' field For i = 0 To AxMSFlexGrid1.Rows - 1 If m_pFeature.FieldType(i) <> esriARFieldType.esriARFieldTypeGeometry And (m_pFeature.FieldType(i) <> esriARFieldType.esriARFieldTypeRaster) And (m_pFeature.FieldType(i) <> esriARFieldType.esriARFieldTypeBlob) Then 'Display field names AxMSFlexGrid1.Col = 0 AxMSFlexGrid1.Row = iRow sFieldName = m_pFeature.FieldAliasName(i) AxMSFlexGrid1.Text = sFieldName textSize = pGraphics.MeasureString(sFieldName, Font) If textSize.Width > lNameWidth Then lNameWidth = textSize.Width End If 'Display field values AxMSFlexGrid1.Col = 1 AxMSFlexGrid1.Row = iRow If m_bQueryValues = True Then sFieldValue = m_pFeature.ValueAsString(CInt(i)) Else sFieldValue = "No Permission" End If AxMSFlexGrid1.Text = sFieldValue textSize = pGraphics.MeasureString(sFieldValue, Font) If textSize.Width > lValueWidth Then lValueWidth = textSize.Width End If iRow = iRow + 1 End If Next i 'Set column widths textSize = pGraphics.MeasureString(" ", Font) 'textSize is measured in pixels but the FlexGrid expects twips AxMSFlexGrid1.set_ColWidth(0, (lNameWidth + textSize.Width) * 15) AxMSFlexGrid1.set_ColWidth(1, (lValueWidth + textSize.Width) * 15) 'Enabled/disbale controls Dim bEnabled As Boolean If m_pFeatureSet.ARFeatureCount = 0 Then bEnabled = False cmdFeatureSet0.Enabled = False cmdFeatureSet1.Enabled = False lblRecords.Text = m_lRecord & " of " & m_pFeatureSet.ARFeatureCount ElseIf m_pFeatureSet.ARFeatureCount = 1 Then bEnabled = True cmdFeatureSet0.Enabled = False cmdFeatureSet1.Enabled = False lblRecords.Text = m_lRecord + 1 & " of " & m_pFeatureSet.ARFeatureCount Else bEnabled = True If m_lRecord = 0 Then cmdFeatureSet1.Enabled = False Else cmdFeatureSet1.Enabled = True If m_lRecord + 1 = m_pFeatureSet.ARFeatureCount Then cmdFeatureSet0.Enabled = False Else cmdFeatureSet0.Enabled = True lblRecords.Text = m_lRecord + 1 & " of " & m_pFeatureSet.ARFeatureCount End If cmdFeature0.Enabled = bEnabled cmdFeature1.Enabled = bEnabled cmdFeature2.Enabled = bEnabled cmdFeature3.Enabled = bEnabled 'Clean up the Graphics object pGraphics.Dispose() End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing 'Release COM objects ESRI.ArcGIS.ADF.COMSupport.AOUninitialize.Shutdown() End Sub Private Sub AxArcReaderControl1_OnCurrentViewChanged(ByVal sender As Object, ByVal e As ESRI.ArcGIS.PublisherControls.IARControlEvents_OnCurrentViewChangedEvent) Handles AxArcReaderControl1.OnCurrentViewChanged Dim bEnabled As Boolean 'Set the current tool If AxArcReaderControl1.CurrentViewType = esriARViewType.esriARViewTypeNone Then bEnabled = False ElseIf AxArcReaderControl1.CurrentViewType = esriARViewType.esriARViewTypePageLayout Then bEnabled = False If AxArcReaderControl1.CurrentARTool <> esriARTool.esriARToolNoneSelected Then AxArcReaderControl1.CurrentARTool = esriARTool.esriARToolNoneSelected End If Else bEnabled = True If AxArcReaderControl1.CurrentARTool <> esriARTool.esriARToolMapZoomIn Then optTool0.Checked = True End If End If 'Enable/disbale controls cmdQuery.Enabled = bEnabled optTool0.Enabled = bEnabled optTool1.Enabled = bEnabled optTool2.Enabled = bEnabled cmdFullExtent.Enabled = bEnabled End Sub End Class