Question

VB中TreeView控件怎么用？

已经添加了节点，我想知道的是如何编写当节点被单击时的代码？

Dim myNod As Node
Set myNod = TreeView1.Nodes.Add(, tvwChild, "louhao", "" & rs.Fields(0) & "号公寓")
Set myNod = TreeView1.Nodes.Add("louhao", tvwChild, "zhusu", "房间信息")
Set myNod = TreeView1.Nodes.Add("louhao", tvwChild, "fangjian", "住宿信息")
Set myNod = TreeView1.Nodes.Add("louhao", tvwChild, "feiyong", "收费信息")
Set myNod = TreeView1.Nodes.Add("louhao", tvwChild, "jiancha", "日常检查")
Set myNod = TreeView1.Nodes.Add("louhao", tvwChild, "laifang", "来访信息")
Set myNod = TreeView1.Nodes.Add("louhao", tvwChild, "waichu", "外出信息")
Set myNod = TreeView1.Nodes.Add("louhao", tvwChild, "zhiban", "值班记录")

我想知道下边这个该怎么写

Private Sub TreeView1_BeforeLabelEdit(Cancel As Integer)

End Sub

Answer 1

Private Sub TreeView1_Click()
Select Case TreeView1.SelectedItem.Text
case "" & rs.Fields(0) & "号公寓"
'动作
case ....
'动作
end select
end sub

Answer 2

不好说，