cách chèn icon vào treeview

[thuyyeu99]

Nhờ các anh chị trên GPE hướng dẫn giúp em cách chèn Icon vào treeview.

Cám ơn các anh chị quan tâm

 

[phinm]

Bạn xem tập tin đính kèm

 

[thuyyeu99]

Cảm ơn bạn rất nhiều

 

[TrungChinhs]

Mình không chạy được nó báo lỗi (trong file đính kèm). Vậy phải xử lý như thế nào ? Thanks!

 

[Nguyễn Duy Tuân]

Mình không chạy được nó báo lỗi (trong file đính kèm). Vậy phải xử lý như thế nào ? Thanks!

+ Bác kiểm tra trong VBA, vào menu Tools\References... có cái nào lỗi Missing không? Nếu có thì bác phải download file MSCOMCTL.OCX về và cài vào thư mục hệ thống của Windows (ví dụ: C:\Windows\System32\).

+ Khai báo các biến I, J,... ở đầu thủ tục Sub TreeView()

Dim I&, J&, keyroot$, keychild$

 

[TrungChinhs]

+ Bác kiểm tra trong VBA, vào menu Tools\References... có cái nào lỗi Missing không? Nếu có thì bác phải download file MSCOMCTL.OCX về và cài vào thư mục hệ thống của Windows (ví dụ: C:\Windows\System32\).

+ Khai báo các biến I, J,... ở đầu thủ tục Sub TreeView()

Dim I&, J&, keyroot$, keychild$

Code đã sửa, chạy không thấy báo lỗi nhưng cũng thấy gì cả ? Bạn nào biết giúp mình với. Thanks!

Sub treeview()
Admin.TreeView1.ImageList = Admin.Imagecart
Admin.TreeView1.Nodes.Clear
  For I = 1 To Range("A2000").End(xlUp).Row
    keyroot = ""
    With Admin.TreeView1.Nodes
      .Add Key:=Range("A" & I).Value, Text:=Range("A" & I).Value, Image:=2
      keyroot = Admin.TreeView1.Nodes(I).Key
      For J = 1 To Range("A2000").End(xlUp).Row
        keychild = ""
        .Add relative:=Range("A" & I).Value, relationship:=tvwChild, Key:=Range("A" & I).Value & J, Text:=Range("B" & J).Value, Image:=1
        keychild = Admin.TreeView1.Nodes.Item(I).Children
      Next J
    End With
  Next I
End Sub

 

[ndu96081631]

Mình không chạy được nó báo lỗi (trong file đính kèm). Vậy phải xử lý như thế nào ? Thanks!

File gốc bị khóa tùm lum, cũng khó cho anh nếu muốn xác định xem Control nào bị MISSING
Anh xem file mới này nhé

 

[TrungChinhs]

Cảm ơn TuanVNUNI và Ndu nhờ các bạn giúp đỡ Tôi đã Test được rồi. Nhưng chưa biết mở rộng ứng dụng như thế nào ?

 

[Nguyễn Duy Tuân]

Cảm ơn TuanVNUNI và Ndu nhờ các bạn giúp đỡ Tôi đã Test được rồi. Nhưng chưa biết mở rộng ứng dụng như thế nào ?

Bác tham khảo các bài viết về TreeView dưới đây:
http://giaoan.violet.vn/present/showprint/entry_id/558814
http://oreilly.com/catalog/vbcnut/chapter/ch05-tv.html
http://msdn.microsoft.com/en-us/library/aa443386(VS.60).aspx

TreeView hay các control trong MSCOMCTL.OCX không hỗ trợ Unicode, người dùng khó tùy biến.

Đây là TreeView hỗ trợ unicode và cách thức làm đơn giản, có thể tùy biến cho việc vẽ.
http://www.bluesofts.net/Products/BSAC/Demos/BSTreeView/BSTreeView.html

 

[thuyyeu99]

Cái này nếu mình để checkbose thì khi em nhấn vào thư muc con của Admin thì thư muc Admin tự đánh dấu check được không ạh (Và các thư mục gốc khác cũng tương tự như vậy, khi bỏ hết check của thư mục con thì thư mục góc cũng bỏ check). Nếu được nhờ các anh hướng dẫn em.

Cám ơn các anh chị quan tâm và hướng dẫn