| 楼主 wise |
Private Sub UserForm_Initialize() Key = "曾经沧海的徒弟" Set node1 = TreeView1.Nodes.Add(, , Key, "曾经沧海的徒弟") Set node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, "小7", "情种") Set node3 = TreeView1.Nodes.Add(node1.Index, tvwChild, "小8", "小笨蛋") Set node4 = TreeView1.Nodes.Add(node1.Index, tvwChild, "小9", "蓝儿") End Sub Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) Select Case Node.Key Case "小7" ListBox1.AddItem "情种是个好学生" Case "小8" ListBox1.AddItem "小笨蛋是个男同学" Case "小9" ListBox1.AddItem "蓝儿是个好女孩" End Select End Sub  Treeview控件入门例子.rar |
| 2楼 wise |
这个例子也可以的.算是比较简单的入门的了. |
| 3楼 apolloh |
这个技巧没问题，但你能按规范再整理一下主题吗？ 因为【ｅ问ｅ答】是有统一规范的文章区，和一般发帖不同，要使用正式的书面语言，避免风格互异或口语化，就像读一本书，由１０多个人写，每个人都按自己喜欢的表达方式来写，结果这本书就让人无法阅读了。之前版主们一直都是统一按要求在做的，所以希望大家继续保持。＾＿＾ |