frmmerestone.vb

界桩信息管理系统代码,VB写的。。。。。。。

        Me.TlBarBtnRuler.Enabled = False
        Me.TlBarBtnRuler.ImageIndex = 5
        Me.TlBarBtnRuler.ToolTipText = "测距"
        Me.TlBarBtnRuler.Visible = False
        '
        'TlBarBtnInfo
        '
        Me.TlBarBtnInfo.ImageIndex = 4
        Me.TlBarBtnInfo.ToolTipText = "信息"
        Me.TlBarBtnInfo.Visible = False
        '
        'TlBarBtnSelect
        '
        Me.TlBarBtnSelect.ImageIndex = 7
        Me.TlBarBtnSelect.ToolTipText = "选择"
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'TlBarBtnCtrlLyrs
        '
        Me.TlBarBtnCtrlLyrs.ImageIndex = 8
        Me.TlBarBtnCtrlLyrs.ToolTipText = "控制图层"
        '
        'TlBarBtnAddNode
        '
        Me.TlBarBtnAddNode.Enabled = False
        Me.TlBarBtnAddNode.ImageIndex = 10
        Me.TlBarBtnAddNode.ToolTipText = "增加节点"
        Me.TlBarBtnAddNode.Visible = False
        '
        'ToolBtnDeleteNode
        '
        Me.ToolBtnDeleteNode.ImageIndex = 15
        Me.ToolBtnDeleteNode.Visible = False
        '
        'ToolBtnRectangle
        '
        Me.ToolBtnRectangle.ImageIndex = 7
        Me.ToolBtnRectangle.Visible = False
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 711)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.stBarPlTlCaption, Me.stBarPlTools, Me.stBarPlCursorPosition, Me.stBarPlDistance})
        Me.StatusBar1.ShowPanels = True
        Me.StatusBar1.Size = New System.Drawing.Size(1028, 22)
        Me.StatusBar1.TabIndex = 19
        Me.StatusBar1.Text = "StatusBar1"
        '
        'stBarPlTlCaption
        '
        Me.stBarPlTlCaption.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Contents
        Me.stBarPlTlCaption.BorderStyle = System.Windows.Forms.StatusBarPanelBorderStyle.None
        Me.stBarPlTlCaption.Text = " 地图工具"
        Me.stBarPlTlCaption.Width = 70
        '
        'stBarPlCursorPosition
        '
        Me.stBarPlCursorPosition.Width = 200
        '
        'stBarPlDistance
        '
        Me.stBarPlDistance.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
        Me.stBarPlDistance.Width = 642
        '
        'Panel_Frm
        '
        Me.Panel_Frm.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel_Frm.Controls.Add(Me.Panel_Map)
        Me.Panel_Frm.Controls.Add(Me.Splitter_Left)
        Me.Panel_Frm.Controls.Add(Me.Panel_TreeView)
        Me.Panel_Frm.Controls.Add(Me.Panel_Top)
        Me.Panel_Frm.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel_Frm.Location = New System.Drawing.Point(0, 28)
        Me.Panel_Frm.Name = "Panel_Frm"
        Me.Panel_Frm.Size = New System.Drawing.Size(1028, 683)
        Me.Panel_Frm.TabIndex = 20
        '
        'Panel_Map
        '
        Me.Panel_Map.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel_Map.Controls.Add(Me.AxMaps)
        Me.Panel_Map.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel_Map.Location = New System.Drawing.Point(139, 104)
        Me.Panel_Map.Name = "Panel_Map"
        Me.Panel_Map.Size = New System.Drawing.Size(887, 577)
        Me.Panel_Map.TabIndex = 24
        '
        'AxMaps
        '
        Me.AxMaps.ContainingControl = Me
        Me.AxMaps.Dock = System.Windows.Forms.DockStyle.Fill
        Me.AxMaps.Enabled = True
        Me.AxMaps.Location = New System.Drawing.Point(0, 0)
        Me.AxMaps.Name = "AxMaps"
        Me.AxMaps.OcxState = CType(resources.GetObject("AxMaps.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxMaps.Size = New System.Drawing.Size(885, 575)
        Me.AxMaps.TabIndex = 0
        '
        'Splitter_Left
        '
        Me.Splitter_Left.Location = New System.Drawing.Point(136, 104)
        Me.Splitter_Left.Name = "Splitter_Left"
        Me.Splitter_Left.Size = New System.Drawing.Size(3, 577)
        Me.Splitter_Left.TabIndex = 23
        Me.Splitter_Left.TabStop = False
        '
        'Panel_TreeView
        '
        Me.Panel_TreeView.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel_TreeView.Controls.Add(Me.MereStoneTV)
        Me.Panel_TreeView.Dock = System.Windows.Forms.DockStyle.Left
        Me.Panel_TreeView.Location = New System.Drawing.Point(0, 104)
        Me.Panel_TreeView.Name = "Panel_TreeView"
        Me.Panel_TreeView.Size = New System.Drawing.Size(136, 577)
        Me.Panel_TreeView.TabIndex = 22
        '
        'MereStoneTV
        '
        Me.MereStoneTV.ContextMenu = Me.ContextMenu_TreeView
        Me.MereStoneTV.Dock = System.Windows.Forms.DockStyle.Fill
        Me.MereStoneTV.ImageIndex = -1
        Me.MereStoneTV.Location = New System.Drawing.Point(0, 0)
        Me.MereStoneTV.Name = "MereStoneTV"
        Me.MereStoneTV.SelectedImageIndex = -1
        Me.MereStoneTV.Size = New System.Drawing.Size(134, 575)
        Me.MereStoneTV.TabIndex = 0
        '
        'Panel_Top
        '
        Me.Panel_Top.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel_Top.Controls.Add(Me.UcMereStone1)
        Me.Panel_Top.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel_Top.Location = New System.Drawing.Point(0, 0)
        Me.Panel_Top.Name = "Panel_Top"
        Me.Panel_Top.Size = New System.Drawing.Size(1026, 104)
        Me.Panel_Top.TabIndex = 21
        '
        'UcMereStone1
        '
        Me.UcMereStone1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.UcMereStone1.Location = New System.Drawing.Point(0, 0)
        Me.UcMereStone1.Name = "UcMereStone1"
        Me.UcMereStone1.Size = New System.Drawing.Size(1024, 102)
        Me.UcMereStone1.TabIndex = 0
        '
        'FrmMereStone
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(1028, 733)
        Me.ContextMenu = Me.contxtMnuTree
        Me.Controls.Add(Me.Panel_Frm)
        Me.Controls.Add(Me.StatusBar1)
        Me.Controls.Add(Me.ToolBarMaps)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Menu = Me.mainMnu
        Me.Name = "FrmMereStone"
        Me.Text = "界桩管理信息管理系统"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        CType(Me.stBarPlTlCaption, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.stBarPlTools, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.stBarPlCursorPosition, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.stBarPlDistance, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel_Frm.ResumeLayout(False)
        Me.Panel_Map.ResumeLayout(False)
        CType(Me.AxMaps, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel_TreeView.ResumeLayout(False)
        Me.Panel_Top.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

#Region "用户自定义方法"

    '---------------------------------------------------
    '   使用放大工具
    '---------------------------------------------------
    Private Sub ZoomInMapTool()
        AxMaps.CurrentTool = MapXLib.ToolConstants.miZoomInTool
        stBarPlTools.Text = "放大"
    End Sub

    '---------------------------------------------------
    '   使用箭头工具
    '---------------------------------------------------
    Private Sub ArrowMapTool()
        AxMaps.CurrentTool = MapXLib.ToolConstants.miArrowTool
        stBarPlTools.Text = "箭头"
    End Sub

    '---------------------------------------------------
    '   使用缩小工具
    '---------------------------------------------------
    Private Sub ZoomOutMapTool()
        AxMaps.CurrentTool = MapXLib.ToolConstants.miZoomOutTool
        stBarPlTools.Text = "缩小"
    End Sub

    '---------------------------------------------------
    '   使用漫游工具
    '---------------------------------------------------
    Private Sub PanMapTool()
        AxMaps.CurrentTool = MapXLib.ToolConstants.miPanTool
        stBarPlTools.Text = "漫游"
    End Sub


    '---------------------------------------------------
    '   使用标注工具
    '---------------------------------------------------
    Private Sub LabelMapTool()
        AxMaps.CurrentTool = MapXLib.ToolConstants.miLabelTool
        stBarPlTools.Text = "标注"
    End Sub

    '---------------------------------------------------
    '   使用选择工具
    '---------------------------------------------------
    Private Sub SeletMapTool()
        AxMaps.CurrentTool = MapXLib.ToolConstants.miSelectTool
        stBarPlTools.Text = "选择"
    End Sub

    '---------------------------------------------------
    '   使用标尺测距工具
    '---------------------------------------------------
    Private Sub RulerMapTool()
        AxMaps.CurrentTool = CUSTOM_RULERTOOL
        stBarPlTools.Text = "测距"
    End Sub

    '---------------------------------------------------
    '   使用信息工具
    '---------------------------------------------------
    Private Sub InfoMapTool()
        AxMaps.CurrentTool = CUSTOM_INFOTOOL
        stBarPlTools.Text = "信息"
    End Sub

    '---------------------------------------------------
    '   增加界桩工具
    '---------------------------------------------------
    Private Sub AddMereStoneMapTool()
        AxMaps.CurrentTool = CUSTOM_ADDMereStoneTOOL
        stBarPlTools.Text = "增加界桩"
    End Sub

    '---------------------------------------------------
    '   创建测距标尺测距工具
    '---------------------------------------------------
    Private Sub CreateCustomRulerTool()
        AxMaps.CreateCustomTool(CUSTOM_RULERTOOL, MapXLib.ToolTypeConstants.miToolTypePoly, MapXLib.CursorConstants.miCrossCursor)
    End Sub

    '---------------------------------------------------
    '   创建自定义信息工具
    '---------------------------------------------------
    Private Sub CreateCustomInfoTool()
        AxMaps.CreateCustomTool(CUSTOM_INFOTOOL, MapXLib.ToolTypeConstants.miToolTypePoint, MapXLib.CursorConstants.miCrossCursor)
    End Sub

    '---------------------------------------------------
    '   创建自定义连接线工具
    '---------------------------------------------------
    Private Sub CreateCustomLinkLineTool()
        AxMaps.CreateCustomTool(CUSTOM_LINKLINETOOL, MapXLib.ToolTypeConstants.miToolTypePoly, MapXLib.CursorConstants.miCrossCursor)
    End Sub

    '---------------------------------------------------
    '   创建自定义增加具体界桩工具
    '---------------------------------------------------
    Private Sub CreateCustomAddMereStoneTool()
        AxMaps.CreateCustomTool(CUSTOM_ADDMereStoneTOOL, MapXLib.ToolTypeConstants.miToolTypePoint, MapXLib.CursorConstants.miCrossCursor)
    End Sub

    '---------------------------------------------------
    '   创建自定义地图工具
    '---------------------------------------------------
    Private Sub CreateCustomTool()