Trang Chính
Latest images
Tìm kiếm
Đăng ký
Đăng Nhập
Thanh NguyênAdmin
- Tổng số bài gửi : 527
Được Cảm Ơn : 59
Join date : 11/10/2012
Age : 31
Đến từ : Bà Rịa-Vũng Tàu 
Tree_View Cây Dữ Liệu
Fri Dec 21, 2012 11:25 am
Công Dụng: Cho Phép tạo cây gồm nhiều nút (Nodes) phân thành nhiều cấp độ khác nhau.
-Cấp trước được gọi là cấp Cha, cấp sau gọi là con (Tương tự cây thư mục của Windows).
Tạo Tree_View:
Các Bạn Vào -> ToolBox chọn tree_view và kéo thả tại Winform:
Đặt Tên: "Name"
Lớp Lệnh:
+
Ý nghĩa: Thêm nút "Tittle" vào tree_view Name
+
Ý Nghĩa: Xoá Dữ Liệu của Tree_view
Thêm Nút Con:
Tổng quát với k nút:
Một số hàm liên quan:
Trả về giá trị thông tin Nodes đã chọn.
vd: Hiện Tree_view Mã Khoa từ các bảng DMLOP, DMKHOA như sau:
để làm được như vậy, ta làm như sau:
Và Tại Form_load:
Để Hiển thị dữ liệu trên các textbox khi click và Tree_view:
Phần Kết Nối các bạn xem tại [You must be registered and logged in to see this link.]
Chúc Các Bạn Thành Công.
Thanh Nguyên
-Cấp trước được gọi là cấp Cha, cấp sau gọi là con (Tương tự cây thư mục của Windows).
Tạo Tree_View:
Các Bạn Vào -> ToolBox chọn tree_view và kéo thả tại Winform:
Đặt Tên: "Name"
Lớp Lệnh:
+
- Code:
<Name>.nodes.add(<Tittle>)
Ý nghĩa: Thêm nút "Tittle" vào tree_view Name
+
- Code:
<name>.nodes.clear()
Ý Nghĩa: Xoá Dữ Liệu của Tree_view
Thêm Nút Con:
- Code:
<name>.nodes(n).nodes.add(<Tittle>)
Tổng quát với k nút:
- Code:
<name>.nodes(n1).....nodes(nk).nodes.add(<tittle>)
Một số hàm liên quan:
- Code:
<Name>.SelectedNodes.Text
Trả về giá trị thông tin Nodes đã chọn.
vd: Hiện Tree_view Mã Khoa từ các bảng DMLOP, DMKHOA như sau:
để làm được như vậy, ta làm như sau:
- Code:
Private Sub tree_view()
Dim t1, t2 As New DataTable
t1 = ketnoi.xulisql("select makhoa & '-' & TENKHOA as Khoa from DMKHOA")
Dim i, j As Integer
Dim mk As String
malop.Nodes.Clear()
For i = 0 To t1.Rows.Count - 1
malop.Nodes.Add(t1.Rows(i).Item("Khoa"))
Dim s As String
s = t1.Rows(i).Item("Khoa").ToString()
mk = s.Substring(0, s.IndexOf("-"))
t2 = ketnoi.xulisql("select malop & '-' & Tenlop as lop from DMLOP where makhoa = '" & mk & "'")
For j = 0 To t2.Rows.Count - 1
malop.Nodes(i).Nodes.Add(t2.Rows(j).Item("lop"))
Next
Next
End Sub
Và Tại Form_load:
- Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call tree_view()
End Sub
Để Hiển thị dữ liệu trên các textbox khi click và Tree_view:
- Code:
Private Sub malop_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles malop.AfterSelect
Dim ma, ten, s As String
s = malop.SelectedNode.Text
ma = s.Substring(0, s.IndexOf("-"))
Dim n As Integer
n = s.IndexOf("-")
ten = s.Substring(s.IndexOf("-") + 1, s.Length - n - 1)
Dim dt As DataTable
TENKHOA.Text = ten
dt = ketnoi.xulisql("select malop, tenlop, svhientai, svtoida,muchocphi from DMKHOA a, DMLOP b where malop = '" & ma & "'")
If dt.Rows.Count > 0 Then
TENLOP.Text = dt.Rows(0).Item("TENLOP")
SVHIENTAI.Text = dt.Rows(0).Item("SVHIENTAI")
MUCHOCPHI.Text = dt.Rows(0).Item("MUCHOCPHI")
SVTOIDA.Text = dt.Rows(0).Item("SVTOIDA")
End If
End Sub
Phần Kết Nối các bạn xem tại [You must be registered and logged in to see this link.]
Chúc Các Bạn Thành Công.
Thanh Nguyên
Permissions in this forum:
Bạn không có quyền trả lời bài viết