form1.vb

用vb.net和gis组建MO实现了一个地名数据库地理信息系统

        Me._dist_comboBoxFilter2.TabIndex = 21
        '
        '_dist_comboBoxFilter
        '
        Me._dist_comboBoxFilter.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._dist_comboBoxFilter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me._dist_comboBoxFilter.Location = New System.Drawing.Point(8, 120)
        Me._dist_comboBoxFilter.Name = "_dist_comboBoxFilter"
        Me._dist_comboBoxFilter.Size = New System.Drawing.Size(192, 20)
        Me._dist_comboBoxFilter.TabIndex = 20
        '
        '_dist_button
        '
        Me._dist_button.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me._dist_button.Location = New System.Drawing.Point(8, 184)
        Me._dist_button.Name = "_dist_button"
        Me._dist_button.Size = New System.Drawing.Size(72, 24)
        Me._dist_button.TabIndex = 19
        Me._dist_button.Text = "搜索"
        '
        '_dist_radioButton2
        '
        Me._dist_radioButton2.Checked = True
        Me._dist_radioButton2.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me._dist_radioButton2.Location = New System.Drawing.Point(8, 8)
        Me._dist_radioButton2.Name = "_dist_radioButton2"
        Me._dist_radioButton2.TabIndex = 18
        Me._dist_radioButton2.TabStop = True
        Me._dist_radioButton2.Text = "按位置查找"
        '
        '_dist_radioButton1
        '
        Me._dist_radioButton1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me._dist_radioButton1.Location = New System.Drawing.Point(8, 32)
        Me._dist_radioButton1.Name = "_dist_radioButton1"
        Me._dist_radioButton1.TabIndex = 17
        Me._dist_radioButton1.Text = "按地名查找"
        '
        '_dist_comboBoxPos
        '
        Me._dist_comboBoxPos.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._dist_comboBoxPos.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me._dist_comboBoxPos.Items.AddRange(New Object() {"最近的", "10米", "20米", "50米", "100米", "200米", "500米", "1000米"})
        Me._dist_comboBoxPos.Location = New System.Drawing.Point(48, 88)
        Me._dist_comboBoxPos.Name = "_dist_comboBoxPos"
        Me._dist_comboBoxPos.Size = New System.Drawing.Size(152, 20)
        Me._dist_comboBoxPos.TabIndex = 16
        '
        '_dist_label1
        '
        Me._dist_label1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me._dist_label1.Location = New System.Drawing.Point(8, 88)
        Me._dist_label1.Name = "_dist_label1"
        Me._dist_label1.Size = New System.Drawing.Size(32, 24)
        Me._dist_label1.TabIndex = 15
        Me._dist_label1.Text = "距离"
        '
        '_dist_txtName
        '
        Me._dist_txtName.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._dist_txtName.Enabled = False
        Me._dist_txtName.Location = New System.Drawing.Point(8, 56)
        Me._dist_txtName.Name = "_dist_txtName"
        Me._dist_txtName.Size = New System.Drawing.Size(192, 21)
        Me._dist_txtName.TabIndex = 14
        Me._dist_txtName.Text = ""
        '
        '_panelBus
        '
        Me._panelBus.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left)
        Me._panelBus.Controls.AddRange(New System.Windows.Forms.Control() {Me._bus_checkBox7, Me._bus_checkBox6, Me._bus_checkBox5, Me._bus_checkBox4, Me._bus_checkBox3, Me._bus_checkBox2, Me._bus_checkBox1, Me._bus_button, Me._Bus_listBox, Me._Bus_radioButton_Line, Me._Bus_radioButton_Station, Me._Bus_textBox})
        Me._panelBus.Location = New System.Drawing.Point(368, 40)
        Me._panelBus.Name = "_panelBus"
        Me._panelBus.Size = New System.Drawing.Size(208, 317)
        Me._panelBus.TabIndex = 16
        Me._panelBus.Visible = False
        '
        '_bus_checkBox7
        '
        Me._bus_checkBox7.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left)
        Me._bus_checkBox7.Checked = True
        Me._bus_checkBox7.CheckState = System.Windows.Forms.CheckState.Checked
        Me._bus_checkBox7.Location = New System.Drawing.Point(8, 264)
        Me._bus_checkBox7.Name = "_bus_checkBox7"
        Me._bus_checkBox7.Size = New System.Drawing.Size(64, 24)
        Me._bus_checkBox7.TabIndex = 27
        Me._bus_checkBox7.Text = "地铁"
        '
        '_bus_checkBox6
        '
        Me._bus_checkBox6.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left)
        Me._bus_checkBox6.Checked = True
        Me._bus_checkBox6.CheckState = System.Windows.Forms.CheckState.Checked
        Me._bus_checkBox6.Location = New System.Drawing.Point(136, 240)
        Me._bus_checkBox6.Name = "_bus_checkBox6"
        Me._bus_checkBox6.Size = New System.Drawing.Size(64, 24)
        Me._bus_checkBox6.TabIndex = 26
        Me._bus_checkBox6.Text = "夜班车"
        '
        '_bus_checkBox5
        '
        Me._bus_checkBox5.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left)
        Me._bus_checkBox5.Checked = True
        Me._bus_checkBox5.CheckState = System.Windows.Forms.CheckState.Checked
        Me._bus_checkBox5.Location = New System.Drawing.Point(136, 216)
        Me._bus_checkBox5.Name = "_bus_checkBox5"
        Me._bus_checkBox5.Size = New System.Drawing.Size(64, 24)
        Me._bus_checkBox5.TabIndex = 25
        Me._bus_checkBox5.Text = "长途车"
        '
        '_bus_checkBox4
        '
        Me._bus_checkBox4.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left)
        Me._bus_checkBox4.Checked = True
        Me._bus_checkBox4.CheckState = System.Windows.Forms.CheckState.Checked
        Me._bus_checkBox4.Location = New System.Drawing.Point(64, 240)
        Me._bus_checkBox4.Name = "_bus_checkBox4"
        Me._bus_checkBox4.Size = New System.Drawing.Size(88, 24)
        Me._bus_checkBox4.TabIndex = 24
        Me._bus_checkBox4.Text = "巴士专线"
        '
        '_bus_checkBox3
        '
        Me._bus_checkBox3.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left)
        Me._bus_checkBox3.Checked = True
        Me._bus_checkBox3.CheckState = System.Windows.Forms.CheckState.Checked
        Me._bus_checkBox3.Location = New System.Drawing.Point(64, 216)
        Me._bus_checkBox3.Name = "_bus_checkBox3"
        Me._bus_checkBox3.Size = New System.Drawing.Size(88, 24)
        Me._bus_checkBox3.TabIndex = 23
        Me._bus_checkBox3.Text = "运通专线"
        '
        '_bus_checkBox2
        '
        Me._bus_checkBox2.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left)
        Me._bus_checkBox2.Checked = True
        Me._bus_checkBox2.CheckState = System.Windows.Forms.CheckState.Checked
        Me._bus_checkBox2.Location = New System.Drawing.Point(8, 240)
        Me._bus_checkBox2.Name = "_bus_checkBox2"
        Me._bus_checkBox2.Size = New System.Drawing.Size(64, 24)
        Me._bus_checkBox2.TabIndex = 22
        Me._bus_checkBox2.Text = "郊区车"
        '
        '_bus_checkBox1
        '
        Me._bus_checkBox1.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left)
        Me._bus_checkBox1.Checked = True
        Me._bus_checkBox1.CheckState = System.Windows.Forms.CheckState.Checked
        Me._bus_checkBox1.Location = New System.Drawing.Point(8, 216)
        Me._bus_checkBox1.Name = "_bus_checkBox1"
        Me._bus_checkBox1.Size = New System.Drawing.Size(64, 24)
        Me._bus_checkBox1.TabIndex = 21
        Me._bus_checkBox1.Text = "市区车"
        '
        '_bus_button
        '
        Me._bus_button.Anchor = ((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._bus_button.Location = New System.Drawing.Point(8, 288)
        Me._bus_button.Name = "_bus_button"
        Me._bus_button.Size = New System.Drawing.Size(192, 24)
        Me._bus_button.TabIndex = 6
        Me._bus_button.Text = "选择乘车路线"
        '
        '_Bus_listBox
        '
        Me._Bus_listBox.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._Bus_listBox.ItemHeight = 12
        Me._Bus_listBox.Location = New System.Drawing.Point(8, 56)
        Me._Bus_listBox.Name = "_Bus_listBox"
        Me._Bus_listBox.Size = New System.Drawing.Size(192, 160)
        Me._Bus_listBox.TabIndex = 5
        '
        '_Bus_radioButton_Line
        '
        Me._Bus_radioButton_Line.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._Bus_radioButton_Line.Location = New System.Drawing.Point(104, 32)
        Me._Bus_radioButton_Line.Name = "_Bus_radioButton_Line"
        Me._Bus_radioButton_Line.Size = New System.Drawing.Size(112, 24)
        Me._Bus_radioButton_Line.TabIndex = 4
        Me._Bus_radioButton_Line.Text = "公交路线"
        '
        '_Bus_radioButton_Station
        '
        Me._Bus_radioButton_Station.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._Bus_radioButton_Station.Checked = True
        Me._Bus_radioButton_Station.Location = New System.Drawing.Point(8, 32)
        Me._Bus_radioButton_Station.Name = "_Bus_radioButton_Station"
        Me._Bus_radioButton_Station.Size = New System.Drawing.Size(120, 24)
        Me._Bus_radioButton_Station.TabIndex = 3
        Me._Bus_radioButton_Station.TabStop = True
        Me._Bus_radioButton_Station.Text = "公交车站"
        '
        '_Bus_textBox
        '
        Me._Bus_textBox.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._Bus_textBox.Location = New System.Drawing.Point(8, 8)
        Me._Bus_textBox.Name = "_Bus_textBox"
        Me._Bus_textBox.Size = New System.Drawing.Size(192, 21)
        Me._Bus_textBox.TabIndex = 2
        Me._Bus_textBox.Text = ""
        '
        '_panelOutput
        '
        Me._panelOutput.Controls.AddRange(New System.Windows.Forms.Control() {Me._output_button3, Me._output_button1, Me._output_listBox, Me._Output_label})
        Me._panelOutput.Location = New System.Drawing.Point(204, 40)
        Me._panelOutput.Name = "_panelOutput"
        Me._panelOutput.Size = New System.Drawing.Size(224, 317)
        Me._panelOutput.TabIndex = 17
        Me._panelOutput.Visible = False
        '
        '_output_button3
        '
        Me._output_button3.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left)
        Me._output_button3.Enabled = False
        Me._output_button3.ImageIndex = 0
        Me._output_button3.Location = New System.Drawing.Point(124, 282)
        Me._output_button3.Name = "_output_button3"
        Me._output_button3.Size = New System.Drawing.Size(56, 24)
        Me._output_button3.TabIndex = 9
        Me._output_button3.Tag = ""
        Me._output_button3.Text = "定位"
        '
        '_output_button1
        '
        Me._output_button1.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left)
        Me._output_button1.Enabled = False
        Me._output_button1.ImageIndex = 0
        Me._output_button1.Location = New System.Drawing.Point(12, 282)
        Me._output_button1.Name = "_output_button1"
        Me._output_button1.Size = New System.Drawing.Size(56, 24)
        Me._output_button1.TabIndex = 7
        Me._output_button1.Tag = ""
        Me._output_button1.Text = "内容"
        '
        '_output_listBox
        '
        Me._output_listBox.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._output_listBox.ItemHeight = 12
        Me._output_listBox.Location = New System.Drawing.Point(12, 34)
        Me._output_listBox.Name = "_output_listBox"
        Me._output_listBox.Size = New System.Drawing.Size(200, 232)
        Me._output_listBox.TabIndex = 6
        '
        '_Output_label
        '
        Me._Output_label.Location = New System.Drawing.Point(12, 10)
        Me._Output_label.Name = "_Output_label"
        Me._Output_label.Size = New System.Drawing.Size(200, 24)
        Me._Output_label.TabIndex = 5
        '
        '_comboBox
        '
        Me._comboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me._comboBox.Items.AddRange(New Object() {"100%", "200%", "400%", "800%", "1600%"})