在网上查到TreeView的用法,全盘复制粘到Private Sub TreeView1_BeforeLabelEdit中,出现的为什么是空白?
代码如下.
Dim myNod As Node
Set myNod = TreeView1.Nodes.Add(, , tvwChild, "china", "中国")
Set myNod = TreeView1.Nodes.Add("china", tvwChild, "hb", "河北")
Set myNod = TreeView1.Nodes.Add("china", tvwChild, "sx", "山西")
Set myNod = TreeView1.Nodes.Add("hb", tvwChild, "1", "石家庄")
Set myNod = TreeView1.Nodes.Add("sx", tvwChild, "2", "太原")
TreeView

不用SET 直接
TreeView1.Nodes.Add ,tvwChild, "china", "中国"

删了加,加了又删,还是不得,晕啊.

Private Sub Form_Load()
Dim myNod As Node
Set myNod = TreeView1.Nodes.Add(, tvwChild, "china", "中国")
Set myNod = TreeView1.Nodes.Add("china", tvwChild, "hb", "河北")
Set myNod = TreeView1.Nodes.Add("china", tvwChild, "sx", "山西")
Set myNod = TreeView1.Nodes.Add("hb", tvwChild, "hb1", "石家庄")
Set myNod = TreeView1.Nodes.Add("sx", tvwChild, "sx2", "太原")
End Sub

ok了,谢谢.

4楼真行...有兴趣的能否加入我的工作室!