Sử dụng phương thức như thế nào để mở ra và co lại các Node của Treeview ?

[sealand]

Mình muốn nhờ anh em hướng dẫn giúp:

1/Trên form có 1 Treeview và 1 OptionButton. Mình viết code cho nút OptionButton như sau:

Private Sub OptionButton1_Click()
Dim i
For i=1 to Treeview1.Nodes.Count
Treeview1.Nodes(i).Expanded=OptionButton1
Next
End Sub

Như vậy, khi chọn OptionButton1 thì Treeview sẽ mở ra hay co lại toàn bộ.

Mình muốn các bạn giúp làm sao để khi chọn 1 Node nào đó thì chỉ các Node cha và Node con 1 cấp của Node chọn mở ra, còn lại đóng lại.

2/ Trong VBA ta sử dụng các phương thức Expand và Collapse như thế nào?

Xin cám ơn các bạn.

 

[sealand]

Thực sự, mỗi ngày xem bài không thấy hồi âm buồn quá. Mình cũng không hiểu sao có không dưới 1 Topic do mình hỏi có không quá 1 bài???

 

[thanhlanh]

Thực sự, mỗi ngày xem bài không thấy hồi âm buồn quá. Mình cũng không hiểu sao có không dưới 1 Topic do mình hỏi có không quá 1 bài???

Bạn ơi đừng buồn!, thực sự ai cũng muốn giúp nếu có thể, ngặt nổi là cái gì bạn đang nghiên cứu thì đa số còn mù tịt. Cao nhân chỉ có cao nhân trị. Mình (và chắc nhiều người nữa) còn chưa biết Treeview là cái gì .... Mong rằng có ai đó biết và giải đáp giúp bạn để người khác còn học ... ké.

 

[ndu96081631]

Thực sự, mỗi ngày xem bài không thấy hồi âm buồn quá. Mình cũng không hiểu sao có không dưới 1 Topic do mình hỏi có không quá 1 bài???

Nói thật cái Treeview này em không có nhu cầu dùng đến (mặc dù có biết sơ qua) nên cũng khó lòng giúp cho anh (dù là rất muốn)
Thôi thì Google tìm kiếm là chính (trước giờ em cũng làm vậy thôi) ---> Không ai giúp mình thì xem như mình là người đi TIÊN PHONG vậy, nghiên cứu ra được vấn đề gì hay lại chia sẻ cho anh em khác
Ẹc... Ẹc...

 

[cadafi]

- Để kiểm tra xem note đó có collabsed hay không mình có thể dùng đoạn code sau:

If TreeView1.Nodes(i).IsExpanded=False Then do something that you want


- Để kiểm tra xem note đó có được chọn (selected) hay không mình có thể dùng đoạn code sau:

If Me.lblNode.Caption = vbNullString Then do something that you want

Anh nghiên cứu thêm ở đây nhé: http://www.excelguru.ca/node/85

 

[sealand]

Cái khó là Treeview nó tích hợp vào VBA không đầy đủ. Các thuộc tính và phương pháp nó có trong VB nhưng lại không sử dụng được trong VBA. Các trường hợp đó mình lúng túng không biết sử trí ra sao? Còn lòng vòng thì vẫn được nhưng lủng củng quá.
Mình cũng Google nhiều rồi nhưng không tìm thấy áp dụng cho VBA nên mới phải vào đây để hỏi.
Cám ơn ý kiến của các bạn.