GIÁO TRÌNH MICOSOFT VISUAL BASIC - Chương 14 Microsoft Windows Common Controls Treeview - Updown - Slider Progressbar

TREEVIEW Là đối tượng điều khiển thường được sử dụng để trình bày cấu trúc tổ chức của một đối tượng như cấu trúc cây thư mục, tổ chức một cơ quan, một đơn vị
Nội dung trích xuất từ tài liệu:
GIÁO TRÌNH MICOSOFT VISUAL BASIC - Chương 14 Microsoft Windows Common Controls Treeview - Updown - Slider ProgressbarGiáo trình Visual Basic 6.0 139 Chương 14Microsoft Windows Common Controls Treeview - Updown - Slider - ProgressbarI. TREEVIEWLà đối tượng điều khiển thường được sử dụng để trình bày cấu trúc tổ chức củamột đối tượng như cấu trúc cây thư mục, tổ chức một cơ quan, một đơn vị 1. Các thuộc tínhNodes: Thuộc tính quan trọng nhất của Treeview, là một danh sách các đối tượngNode. Mỗi Node được xem là một cây con, có các nút con, nút cháu... Nodes Node_a Node_b Node 1 Node 1 Node 2 Node 2 Node 3 Node 4 Node 5 Hình 14.1: Đối tượng NodesImageList: Tham chiếu đến đối tương ImageList quản lý danh sách hình liên kếtvới TreeView. Gán giá trị này trong Property PagesHoặc gán bằng lệnh như sau: Private Sub Form_Load() Set TreeView1.ImageList = ImageList1 End SubCheckBoxes (True/False): Làm xuất hiện Checkbox bên trái mỗi nútLabelEdit:Chế độ sửa chữa giá trị nhãn (0-tvwAutomatic, 1-tvwManual)Linestyle: Chế độ vẽ đường nối giữa nút và nút cha , có hai giá trị 0-tvwTreelines,1- tvwRootLines140 Giáo trình Visual Basic 6.0 Hình 14.2: Thuộc tính LinestyleSelectedItem: Cho giá trị là tham chiếu (reference) đến đối tượng Node đangđược chọn trong TreeView hoặc dùng chọn một Node trong TreeView Chọn nút gốc trong Treeview Set Treeview1.SelectedItem =Treeview1.Nodes(“Root”) In giá trị nút đang được chọn Dim nd as Node Set nd = Treeview1.SelectedItem Debug.Print nd.Text 2. Các thuộc tính của đối tượng Node Tham chiếu đến nút con đầu tiênChild Số nút conChildren (True/False) Là xuất hiện các nút con của một nút - Tương đươngExpanded với việc nhấp đúp tại nút hoặc click tại dấu +/- để triển khai/thu gọn một nútFirstSibling Tham chiếu đến nút con đầu tiên ở cùng cấpLastSibling Tham chiếu đến nút con cuối cùng ở cùng cấp Tham chiếu đến nút con kế sau ở cùng cấpNext Tham chiếu đến nút con kế trước ở cùng cấpPrevious Tham chiếu đến nút cha của một nútParent Tham chiếu đến nút gốcRoot Sắp xếp các nút con cùng cấp theo thứ tự alphabetSorted Chuỗi xuất hiện bên phải nútText Số thứ tự của nút trong mảng các nút cùng cấpIndexChương trình con sau in nhãn (Text) các nút con của một nút Private Sub ListChildren(pnod As Node) Dim pnodCurrent As Node Set pnodCurrent = pnod.Child ‘ Tham chiếu đến nút con đầu tiên For i = 1 To pnod.Children ‘ Lặp qua số nút con Debug.Print pnodCurrent.Text ‘ In thuộc tính TextNguyễn Đăng QuangGiáo trình Visual Basic 6.0 141 Set pnodCurrent = pnodCurrent.Next ‘ Trỏ sang nút con kế tiếp Next End SubIn các nút con của nút gốc Private sub Command1_Click() Dim nd as Node Set nd = Treeview1.Nodes(“Root”) ListChildren nd End sub 3. Phương thứcAdd [Relative][, Relationship][, Key][, Text][, Image][, SelImage]Thêm một nút mới vào danh sách Nodes trong Treeview. Trong đó Key hoặc Index của nút mà nút mới được thêm vàoRelative Quan hệ của nút mới so với nút cho trong tham số relative, có các giá trị như sau: 0-tvwFirst Nút được thêm là nút đầu tiên so với các nút cùng cấp với nút cho trong tham số relative 1-tvwLast Nút được thêm là nút sau cùng so với các nút cùng cấpRelationship với nút cho trong tham số relative 2-tvwNext Nút được thêm vào sau nút cho trong tham số relative 3-tvwPrevious Nút được thêm vào trước so với nút cho trong tham số relative 4-tvwChild Nút được thêm vào là nút con của nút cho trong tham số relativeKey Chuỗi mã số duy nhất cho mỗi nútText Chuỗi xuất hiện bên phải nútImage Hình ảnh của nút ở trạng thái bình thường (Lấy từ Imagelist)SelImage Hình ảnh của nút ở trạng thái được chọn (Lấy từ Imagelist)Ví dụ: Sử dụng đối tượng Treeview trình bày sơ đồ ...