merestonetreeview.vb

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

Public Class MereStoneTreeView
    Inherits System.Windows.Forms.TreeView

    '各个公共事件
    Public Event AfterSelectNode(ByVal ev As MereStoneTreeNode)

#Region " 组件设计器生成的代码 "

    Public Sub New(ByVal Container As System.ComponentModel.IContainer)
        MyClass.New()

        'Windows.Forms 类撰写设计器支持所必需的
        Container.Add(Me)
    End Sub

    Public Sub New()
        MyBase.New()

        '该调用是组件设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '组件重写 dispose 以清理组件列表。
    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

    '组件设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是组件设计器所必需的
    '可以使用组件设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents MereStoneData As MereStone.MereStoneData
    Friend WithEvents MereStoneAccess As MereStone.MereStoneAccess
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Me.MereStoneData = New MereStone.MereStoneData(Me.components)
        Me.MereStoneAccess = New MereStone.MereStoneAccess(Me.components)
        CType(Me.MereStoneData, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'MereStoneData
        '
        Me.MereStoneData.DataSetName = "MereStoneDataSet"
        Me.MereStoneData.Locale = New System.Globalization.CultureInfo("en-US")
        CType(Me.MereStoneData, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub

#End Region

    Public Sub Init()
        AddMereStone()
    End Sub

    Public Sub Init(ByVal imgList As ImageList)
        Me.Init()

        ImageList = imgList
        ImageIndex = 0
        SelectedImageIndex = 1
    End Sub

    '增加界桩树视图
    Private Sub AddMereStone()
        Dim row As DataRow
        Dim tab As DataTable

        MereStoneData = MereStoneAccess.LoadAllData(MereStoneData)
        For Each row In MereStoneData.Tables(MereStoneData.MereStone.TableName).Rows
            Dim tn As New MereStoneTreeNode
            With MereStoneData.MereStone
                tn.mapID = row(.MAPINFO_IDColumn.ColumnName)
                tn.bh = row(.jzbhColumn.ColumnName)
                tn.mc = row(.jzmcColumn.ColumnName)
                tn.Tag = tn.bh
                tn.Text = tn.mc
                Me.Nodes.Add(tn)
            End With
            Me.SelectedNode = tn
        Next
    End Sub

    '-------------------------------------------
    '   刷新节点，将node节点的所有子节点重新加载
    '-------------------------------------------
    Public Sub RefreshNode()
        Me.Nodes.Clear()
        AddMereStone()
    End Sub

    '选择界桩节点后事件
    Private Sub MereStoneTreeView_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles MyBase.AfterSelect
        RaiseEvent AfterSelectNode(e.Node)
    End Sub
End Class