TreeView 的應用...

TreeView的使用:

                我們用一個例子來說明TreeView 的使用,這個例子要實現的效果是這樣的，在Form 上這樣幾個控件，一個DataTimePicker ,兩個TextBox,一個DataGrid,一個TreeView,和一個Button。首先我們選擇日期，然後在TextBox中填入對應的內容，然後在點擊Button，那麼會在TreeView 記錄下這條記錄的日期，如果在同一天有很多記錄，日期也只顯示一次…

 

 

 

通常 我們要在TreeView中實現幾個節點，我們就會定義幾個  TreeNode

    

代碼部分：

        Public Class Form1

    Inherits System.Windows.Forms.Form

 

 

 

#Region " Windows Form Designer generated code "

 

 

 

    Public Sub New()

        MyBase.New()

 

 

 

        'This call is required by the Windows Form Designer.

        InitializeComponent()

 

 

 

        'Add any initialization after the InitializeComponent() call

 

 

 

    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

 

 

 

    '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.

    Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid

    Friend WithEvents TreeView1 As System.Windows.Forms.TreeView

    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox

    Friend WithEvents Splitter1 As System.Windows.Forms.Splitter

    Friend WithEvents Button2 As System.Windows.Forms.Button

    Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker

    Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip

    Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox

    Friend WithEvents Button1 As System.Windows.Forms.Button

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        Me.components = New System.ComponentModel.Container

        Me.DataGrid1 = New System.Windows.Forms.DataGrid

        Me.TreeView1 = New System.Windows.Forms.TreeView

        Me.TextBox1 = New System.Windows.Forms.TextBox

        Me.TextBox2 = New System.Windows.Forms.TextBox

        Me.Splitter1 = New System.Windows.Forms.Splitter

        Me.Button2 = New System.Windows.Forms.Button

        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker

        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)

        Me.ComboBox1 = New System.Windows.Forms.ComboBox

        Me.Button1 = New System.Windows.Forms.Button

        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()

        Me.SuspendLayout()

        '

        'DataGrid1

        '

        Me.DataGrid1.DataMember = ""

        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText

        Me.DataGrid1.Location = New System.Drawing.Point(164, 4)

        Me.DataGrid1.Name = "DataGrid1"

        Me.DataGrid1.Size = New System.Drawing.Size(536, 236)

        Me.DataGrid1.TabIndex = 0

        '

        'TreeView1

        '

        Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left

        Me.TreeView1.ImageIndex = -1

        Me.TreeView1.Location = New System.Drawing.Point(0, 0)

        Me.TreeView1.Name = "TreeView1"

        Me.TreeView1.SelectedImageIndex = -1

        Me.TreeView1.Size = New System.Drawing.Size(154, 343)

        Me.TreeView1.TabIndex = 1

        '

        'TextBox1

        '

        Me.TextBox1.Location = New System.Drawing.Point(308, 252)

        Me.TextBox1.Name = "TextBox1"

        Me.TextBox1.TabIndex = 2

        Me.TextBox1.Text = ""

        '

        'TextBox2

        '

        Me.TextBox2.Location = New System.Drawing.Point(424, 252)

        Me.TextBox2.Name = "TextBox2"

        Me.TextBox2.TabIndex = 3

        Me.TextBox2.Text = ""

        '

        'Splitter1

        '

        Me.Splitter1.Location = New System.Drawing.Point(154, 0)

        Me.Splitter1.Name = "Splitter1"

        Me.Splitter1.Size = New System.Drawing.Size(3, 343)

        Me.Splitter1.TabIndex = 5

        Me.Splitter1.TabStop = False

        '

        'Button2

        '

        Me.Button2.Location = New System.Drawing.Point(532, 310)

        Me.Button2.Name = "Button2"

        Me.Button2.TabIndex = 6

        Me.Button2.Text = "Button2"

        '

        'DateTimePicker1

        '

        Me.DateTimePicker1.Location = New System.Drawing.Point(176, 252)

        Me.DateTimePicker1.Name = "DateTimePicker1"

        Me.DateTimePicker1.Size = New System.Drawing.Size(122, 20)

        Me.DateTimePicker1.TabIndex = 7

        '

        'ComboBox1

        '

        Me.ComboBox1.Location = New System.Drawing.Point(568, 250)

        Me.ComboBox1.Name = "ComboBox1"

        Me.ComboBox1.Size = New System.Drawing.Size(121, 21)

        Me.ComboBox1.TabIndex = 8

        Me.ComboBox1.Text = "ComboBox1"

        '

        'Button1

        '

        Me.Button1.Location = New System.Drawing.Point(334, 294)

        Me.Button1.Name = "Button1"

        Me.Button1.TabIndex = 9

        Me.Button1.Text = "Button1"

        '

        'Form1

        '

        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

        Me.ClientSize = New System.Drawing.Size(702, 343)

        Me.Controls.Add(Me.Button1)

        Me.Controls.Add(Me.ComboBox1)

        Me.Controls.Add(Me.DateTimePicker1)

        Me.Controls.Add(Me.Button2)

        Me.Controls.Add(Me.Splitter1)

        Me.Controls.Add(Me.TextBox2)

        Me.Controls.Add(Me.TextBox1)

        Me.Controls.Add(Me.TreeView1)

        Me.Controls.Add(Me.DataGrid1)

        Me.Name = "Form1"

        Me.Text = "Form1"

        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()

        Me.ResumeLayout(False)

 

 

 

    End Sub

 

 

 

#End Region

 

 

 

    Private RootNote As New TreeNode

    Private YearNote As New TreeNode

    Private MonthNote As New TreeNode

    Private DayNote As New TreeNode

 

 

 

 

 

 

    Private idtb_temp As New DataTable

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

        idtb_temp.Columns.Add(New DataColumn("idte_date", Type.GetType("System.DateTime")))

        idtb_temp.Columns.Add(New DataColumn("value_1", Type.GetType("System.String")))

        idtb_temp.Columns.Add(New DataColumn("value_2", Type.GetType("System.String")))

        idtb_temp.TableName = "xo"

 

 

 

        Dim ldgst_style As New DataGridTableStyle

        Dim ldcl_header As DataGridTextBoxColumn

 

 

 

        ldgst_style.MappingName = "xo"

        ldcl_header = New DataGridTextBoxColumn

        ldcl_header.MappingName = "idte_date"

        ldcl_header.HeaderText = "NO_0"

        ldgst_style.GridColumnStyles.Add(ldcl_header)

 

 

 

        ldcl_header = New DataGridTextBoxColumn

        ldcl_header.MappingName = "value_1"

        ldcl_header.HeaderText = "NO_1"

        ldgst_style.GridColumnStyles.Add(ldcl_header)

 

 

 

        ldcl_header = New DataGridTextBoxColumn

        ldcl_header.MappingName = "value_2"

        ldcl_header.HeaderText = "NO_2"

        ldgst_style.GridColumnStyles.Add(ldcl_header)

 

 

 

        'Dim idrw_row As DataRow

        'idrw_row = idtb_temp.NewRow

        'idrw_row.Item("value_1") = 11

        'idrw_row.Item("value_2") = 22

        'idtb_temp.Rows.Add(idrw_row)

        Me.DataGrid1.TableStyles.Add(ldgst_style)

        Me.idtb_temp.DefaultView.AllowNew = False

        ' Me.DataGrid1.DataSource = Me.idtb_temp

        Me.TextBox1.Focus()

 

 

 

        GetDate()

        Me.RootNote.Text = "我的記事"

        'Me.TreeView1.CheckBoxes = True

        Me.TreeView1.Nodes.Add(Me.RootNote)

 

 

 

 

 

 

    End Sub

 

 

 

    Private Sub AddNewItem()

        Dim ldrw_row As DataRow

        ldrw_row = idtb_temp.NewRow

        ldrw_row.Item("idte_date") = Me.DateTimePicker1.Value.ToShortDateString

        ldrw_row.Item("value_1") = Me.TextBox1.Text

        ldrw_row.Item("value_2") = Me.TextBox2.Text

 

 

 

        Me.idtb_temp.Rows.Add(ldrw_row)

        If Me.DateTimePicker1.Value.ToShortDateString.Trim <> "" Then

            Dim YearFound, MonthFound, DayFound As Boolean

            For Each Me.YearNote In Me.RootNote.Nodes

                If Me.YearNote.Text.ToUpper = Me.DateTimePicker1.Value.Year.ToString.ToUpper & "年" Then

                    YearFound = True

                    Exit For

                End If

            Next

            If Not YearFound Then

                Me.YearNote = Me.RootNote.Nodes.Add(Me.DateTimePicker1.Value.Year.ToString.ToUpper & "年")

            End If

            If Not Me.YearNote Is Nothing Then

                For Each Me.MonthNote In Me.YearNote.Nodes

                    If Me.MonthNote.Text.ToUpper = Me.DateTimePicker1.Value.Month.ToString.ToUpper & "月" Then

                        MonthFound = True

                        Exit For

                    End If

                Next

                If Not MonthFound Then

                    Me.MonthNote = Me.YearNote.Nodes.Add(Me.DateTimePicker1.Value.Month.ToString.ToUpper & "月")

                End If

            End If

 

 

 

            If Not Me.YearNote Is Nothing Then

                If Not Me.MonthNote Is Nothing Then

                    For Each Me.DayNote In Me.MonthNote.Nodes

                        If Me.DayNote.Text.ToUpper = Me.DateTimePicker1.Value.Day.ToString.ToUpper & "日" Then

                            DayFound = True

                            Exit For

                        End If

                    Next

                End If

            End If

            If Not DayFound Then

                Me.DayNote = Me.MonthNote.Nodes.Add(Me.DateTimePicker1.Value.Day.ToString.ToUpper & "日")

            End If

        End If

        Me.TreeView1.ExpandAll()

 

 

 

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.AddNewItem()

 

 

 

    End Sub

 

 

 

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

        If e.KeyCode = Keys.Enter Then

            Me.TextBox2.Focus()

        End If

    End Sub

 

 

 

    Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown

        If e.KeyCode = 13 Then

            Me.AddNewItem()

            Me.TextBox1.Focus()

            Me.TextBox1.Text = String.Empty

            Me.TextBox2.Text = String.Empty

        End If

    End Sub

 

 

 

    Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

 

 

 

        For Each Me.DayNote In Me.MonthNote.Nodes

 

 

 

            If Me.TreeView1.SelectedNode.Text = Me.TreeView1.Nodes(0).Nodes(Me.TreeView1.SelectedNode.Parent.Parent.Index).Nodes(Me.TreeView1.SelectedNode.Parent.Index).Nodes(Me.TreeView1.SelectedNode.Index).Text Then

                Me.TreeView1.SelectedNode.ForeColor = System.Drawing.Color.Red

                '  System.Windows.Forms.MessageBox.Show(Me.TreeView1.SelectedNode.Parent.Parent.Text & Me.TreeView1.SelectedNode.Parent.Text & Me.TreeView1.SelectedNode.Text)

                Dim istg_date As DateTime

                istg_date = Me.TreeView1.SelectedNode.Parent.Parent.Text & Me.TreeView1.SelectedNode.Parent.Text & Me.TreeView1.SelectedNode.Text

                '  MessageBox.Show(istg_date)

                '  MessageBox.Show(istg_date.ToString("yyyy年MM月dd日"))

                Dim Con As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Application.StartupPath & "/xo.mdb;")

                Dim Com As OleDb.OleDbCommand = New OleDb.OleDbCommand

                Com.Connection = Con

                Con.Open()

                Dim DAp As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select * from xx_o where idte_date='" & istg_date.ToString("dd/MM/yyyy") & "'", Con)

                Dim kk As New DataTable

                DAp.Fill(kk)

                Me.DataGrid1.DataSource = kk

            End If

        Next

 

 

 

        ' MessageBox.Show(Me.TreeView1.SelectedNode.Parent.Text)

    End Sub

 

 

 

    Public Function GetDate()

        Dim Con As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Application.StartupPath & "/xo.mdb;")

        Dim Com As OleDb.OleDbCommand = New OleDb.OleDbCommand

        Com.Connection = Con

        Con.Open()

        Dim DAp As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select * from xx_o", Con)

        DAp.Fill(Me.idtb_temp)

        '  Me.DataGrid1.DataSource = idtb_temp

 

 

 

    End Function

 

 

 

    Public Function Fill_Tree()

        If Me.idtb_temp.Rows.Count > 0 Then

            For lint_row As Integer = 0 To Me.idtb_temp.Rows.Count - 1

                Dim YearFound, MonthFound, DayFound As Boolean

                For Each Me.YearNote In Me.RootNote.Nodes

                    If Me.YearNote.Text.ToUpper = Me.idtb_temp.Rows(lint_row).Item("idte_date").Year.ToString.ToUpper & "年" Then

                        YearFound = True

                        Exit For

                    End If

                Next

                If Not YearFound Then

                    Me.YearNote = Me.RootNote.Nodes.Add(Me.idtb_temp.Rows(lint_row).Item("idte_date").Year.ToString.ToUpper & "年")

                End If

                If Not Me.YearNote Is Nothing Then

                    For Each Me.MonthNote In Me.YearNote.Nodes

                        If Me.MonthNote.Text.ToUpper = Me.idtb_temp.Rows(lint_row).Item("idte_date").Month.ToString.ToUpper & "月" Then

                            MonthFound = True

                            Exit For

                        End If

                    Next

                    If Not MonthFound Then

                        Me.MonthNote = Me.YearNote.Nodes.Add(Me.idtb_temp.Rows(lint_row).Item("idte_date").Month.ToString.ToUpper & "月")

                    End If

                End If

 

 

 

                If Not Me.YearNote Is Nothing Then

                    If Not Me.MonthNote Is Nothing Then

                        For Each Me.DayNote In Me.MonthNote.Nodes

                            If Me.DayNote.Text.ToUpper = Me.idtb_temp.Rows(lint_row).Item("idte_date").Day.ToString.ToUpper & "日" Then

                                DayFound = True

                                Exit For

                            End If

                        Next

                    End If

                End If

                If Not DayFound Then

                    Me.DayNote = Me.MonthNote.Nodes.Add(Me.idtb_temp.Rows(lint_row).Item("idte_date").Day.ToString.ToUpper & "日")

                End If

 

 

 

            Next

            Me.TreeView1.ExpandAll()

 

 

 

        End If

    End Function

 

 

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Fill_Tree()

    End Sub

End Class

 

 

 

效果圖：

效果圖：