searchmain.vb

MapX安装软件完整版。MapX的使用必须得基于MapInfo的table数据

		Me.searchResultsLabel.UseMnemonic = True
		Me.searchResultsLabel.Visible = True
		Me.searchResultsLabel.AutoSize = True
		Me.searchResultsLabel.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.searchResultsLabel.Name = "searchResultsLabel"
		Me.File.Text = "File"
		Me.File.Checked = False
		Me.File.Enabled = True
		Me.File.Visible = True
		Me.File.MDIList = False
		Me.layerControlMenuItem.Text = "Layer Control"
		Me.layerControlMenuItem.Checked = False
		Me.layerControlMenuItem.Enabled = True
		Me.layerControlMenuItem.Visible = True
		Me.layerControlMenuItem.MDIList = False
		Me.exitMenuItem.Text = "Exit"
		Me.exitMenuItem.Checked = False
		Me.exitMenuItem.Enabled = True
		Me.exitMenuItem.Visible = True
		Me.exitMenuItem.MDIList = False
		Me.toolsMenuItem.Text = "Tools"
		Me.toolsMenuItem.Checked = False
		Me.toolsMenuItem.Enabled = True
		Me.toolsMenuItem.Visible = True
		Me.toolsMenuItem.MDIList = False
		Me.zoomInToolMenuItem.Text = "ZoomIn Tool"
		Me.zoomInToolMenuItem.Checked = False
		Me.zoomInToolMenuItem.Enabled = True
		Me.zoomInToolMenuItem.Visible = True
		Me.zoomInToolMenuItem.MDIList = False
		Me.zoomOutToolMenuItem.Text = "ZoomOut Tool"
		Me.zoomOutToolMenuItem.Checked = False
		Me.zoomOutToolMenuItem.Enabled = True
		Me.zoomOutToolMenuItem.Visible = True
		Me.zoomOutToolMenuItem.MDIList = False
		Me.panToolMenuItem.Text = "Pan Tool"
		Me.panToolMenuItem.Checked = False
		Me.panToolMenuItem.Enabled = True
		Me.panToolMenuItem.Visible = True
		Me.panToolMenuItem.MDIList = False
		Me.searchToolsMenuItem.Text = "Search Tools"
		Me.searchToolsMenuItem.Checked = False
		Me.searchToolsMenuItem.Enabled = True
		Me.searchToolsMenuItem.Visible = True
		Me.searchToolsMenuItem.MDIList = False
		Me.searchDistanceMenuItem.Text = "Search Within Distance"
		Me.searchDistanceMenuItem.Checked = False
		Me.searchDistanceMenuItem.Enabled = True
		Me.searchDistanceMenuItem.Visible = True
		Me.searchDistanceMenuItem.MDIList = False
		Me.searchRectangleMenuItem.Text = "Search Within Rectangle"
		Me.searchRectangleMenuItem.Checked = False
		Me.searchRectangleMenuItem.Enabled = True
		Me.searchRectangleMenuItem.Visible = True
		Me.searchRectangleMenuItem.MDIList = False
		Me.searchFeatureMenuItem.Text = "Search Within Feature"
		Me.searchFeatureMenuItem.Checked = False
		Me.searchFeatureMenuItem.Enabled = True
		Me.searchFeatureMenuItem.Visible = True
		Me.searchFeatureMenuItem.MDIList = False
		Me.searchPointMenuItem.Text = "Search At Point"
		Me.searchPointMenuItem.Checked = False
		Me.searchPointMenuItem.Enabled = True
		Me.searchPointMenuItem.Visible = True
		Me.searchPointMenuItem.MDIList = False
		Me.add2selectionMenuItem.Text = "Add Search To Selection"
		Me.add2selectionMenuItem.Checked = False
		Me.add2selectionMenuItem.Enabled = True
		Me.add2selectionMenuItem.Visible = True
		Me.add2selectionMenuItem.MDIList = False
		Me.Controls.Add(Map1)
		Me.Controls.Add(searchFeatureLayerCombo)
		Me.Controls.Add(searchLayerListCombo)
		Me.Controls.Add(searchResultsList)
		Me.Controls.Add(searchFeatureLayerLabel)
		Me.Controls.Add(searchlayerListLabel)
		Me.Controls.Add(searchResultsLabel)
		CType(Me.Map1, System.ComponentModel.ISupportInitialize).EndInit()
		Me.File.Index = 0
		Me.toolsMenuItem.Index = 1
		Me.searchToolsMenuItem.Index = 2
		MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem(){Me.File, Me.toolsMenuItem, Me.searchToolsMenuItem})
		Me.layerControlMenuItem.Index = 0
		Me.exitMenuItem.Index = 1
		File.MenuItems.AddRange(New System.Windows.Forms.MenuItem(){Me.layerControlMenuItem, Me.exitMenuItem})
		Me.zoomInToolMenuItem.Index = 0
		Me.zoomOutToolMenuItem.Index = 1
		Me.panToolMenuItem.Index = 2
		toolsMenuItem.MenuItems.AddRange(New System.Windows.Forms.MenuItem(){Me.zoomInToolMenuItem, Me.zoomOutToolMenuItem, Me.panToolMenuItem})
		Me.searchDistanceMenuItem.Index = 0
		Me.searchRectangleMenuItem.Index = 1
		Me.searchFeatureMenuItem.Index = 2
		Me.searchPointMenuItem.Index = 3
		Me.add2selectionMenuItem.Index = 4
		searchToolsMenuItem.MenuItems.AddRange(New System.Windows.Forms.MenuItem(){Me.searchDistanceMenuItem, Me.searchRectangleMenuItem, Me.searchFeatureMenuItem, Me.searchPointMenuItem, Me.add2selectionMenuItem})
		Me.Menu = MainMenu1
	End Sub
#End Region 
#Region "Upgrade Support "
	Private Shared m_vb6FormDefInstance As Form1
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As Form1
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New Form1()
				m_InitializingDefInstance = False
			End If
			DefInstance = m_vb6FormDefInstance
		End Get
		Set
			m_vb6FormDefInstance = Value
		End Set
	End Property
#End Region 
	' This sample application and corresponding sample code is provided
	' for example purposes only.  It has not undergone rigorous testing
	' and as such should not be shipped as part of a final application
	' without extensive testing on the part of the organization releasing
	' the end-user product.
	
	Const SEARCH_DISTANCE_TOOL As Short = 1
	Const SEARCH_RECTANGLE_TOOL As Short = 2
	Const SEARCH_FEATURE_TOOL As Short = 3
	Const SEARCH_POINT_TOOL As Short = 4
	Public searchLayer As Object
	
	Public Sub add2selectionMenuItem_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles add2selectionMenuItem.Popup
		add2selectionMenuItem_Click(eventSender, eventArgs)
	End Sub
	Public Sub add2selectionMenuItem_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles add2selectionMenuItem.Click
		' Toggle the Menu item checked property
		If add2selectionMenuItem.Checked = True Then
			add2selectionMenuItem.Checked = False
		Else
			add2selectionMenuItem.Checked = True
		End If
		Dim lyr As MapXLib.Layer
		'clear all layers selections after menu item is clicked
		For	Each lyr In Map1.Layers
			lyr.Selection.ClearSelection()
		Next lyr
		'UPGRADE_NOTE: Object lyr may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1029"'
		lyr = Nothing
	End Sub
	
	Public Sub exitMenuItem_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles exitMenuItem.Popup
		exitMenuItem_Click(eventSender, eventArgs)
	End Sub
	Public Sub exitMenuItem_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles exitMenuItem.Click
		' Exit program
		End
	End Sub
	
	Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		' Set up custom search tools
		Map1.CreateCustomTool(SEARCH_DISTANCE_TOOL, MapXLib.ToolTypeConstants.miToolTypeCircle, MapXLib.CursorConstants.miRadiusSelectCursor)
		Map1.CreateCustomTool(SEARCH_RECTANGLE_TOOL, MapXLib.ToolTypeConstants.miToolTypeMarquee, MapXLib.CursorConstants.miRectSelectCursor)
		Map1.CreateCustomTool(SEARCH_FEATURE_TOOL, MapXLib.ToolTypeConstants.miToolTypePoint, MapXLib.CursorConstants.miSelectCursor)
		Map1.CreateCustomTool(SEARCH_POINT_TOOL, MapXLib.ToolTypeConstants.miToolTypePoint, MapXLib.CursorConstants.miCenterCursor)
		' update forms controls
		Call updateControls()
	End Sub
	
	Public Sub layerControlMenuItem_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles layerControlMenuItem.Popup
		layerControlMenuItem_Click(eventSender, eventArgs)
	End Sub
	Public Sub layerControlMenuItem_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles layerControlMenuItem.Click
		' Display Layer Control MapX Stock Dialog
		Map1.Layers.LayersDlg()
		' update forms controls
		Call updateControls()
	End Sub
	Private Sub Map1_ToolUsed(ByVal eventSender As System.Object, ByVal eventArgs As AxMapXLib.CMapXEvents_ToolUsedEvent) Handles Map1.ToolUsed
		Dim curFeatures As MapXLib.Features
		Dim obj As Object
		Dim pt As New MapXLib.Point
		On Error GoTo ErrHand
		
		Dim searchType As Short
		If eventArgs.ToolNum <> SEARCH_POINT_TOOL Then
			'clear search list
			searchResultsList.Items.Clear()
			'Set search type
			If eventArgs.Shift And Not eventArgs.Ctrl Then
				searchType = MapXLib.SearchTypeConstants.miSearchTypePartiallyWithin
			ElseIf eventArgs.Ctrl And Not eventArgs.Shift Then 
				searchType = MapXLib.SearchTypeConstants.miSearchTypeEntirelyWithin
			Else
				searchType = MapXLib.SearchTypeConstants.miSearchTypeCentroidWithin
			End If
		End If
		
		Dim dist As Double
		Dim rc As New MapXLib.Rectangle
		Dim featureLyr As MapXLib.Layer
		Select Case eventArgs.ToolNum
			Case SEARCH_DISTANCE_TOOL
				'Get distance to perform search
				dist = Map1.Distance(eventArgs.X1, eventArgs.Y1, eventArgs.X2, eventArgs.Y2)
				' Set the point to start search
				pt.Set(eventArgs.X1, eventArgs.Y1)
				' perform search
				'UPGRADE_WARNING: Couldn't resolve default property of object searchLayer.SearchWithinDistance. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'