Private Sub Form_Load()
Dim LNArea As Node
Set LNArea = TreeView1.Nodes.Add(, , "area", "辽宁省")
Set LNArea = TreeView1.Nodes.Add("area", tvwChild, "沈阳")
Set LNArea = TreeView1.Nodes.Add("area", tvwChild, "大连")
Set LNArea = TreeView1.Nodes.Add("area", tvwChild, "鞍山")
Set LNArea = TreeView1.Nodes.Add("area", tvwChild, "铁岭")
Set LNArea = TreeView1.Nodes.Add("area", tvwChild, "阜新")
Set LNArea = TreeView1.Nodes.Add("area", tvwChild, "朝阳")
Set LNArea = TreeView1.Nodes.Add("area", tvwChild, "丹东")
Set LNArea = TreeView1.Nodes.Add("area", tvwChild, "抚顺")
Set LNArea = TreeView1.Nodes.Add("area", tvwChild, "葫芦岛")
Set LNArea = TreeView1.Nodes.Add("area", tvwChild, "辽阳")
Set LNArea = TreeView1.Nodes.Add("area", tvwChild, "本溪")
Set LNArea = TreeView1.Nodes.Add("area", tvwChild, "锦州")
Set LNArea = TreeView1.Nodes.Add("area", tvwChild, "盘锦")
Set LNArea = TreeView1.Nodes.Add("area", tvwChild, "营口")
LNArea.EnsureVisible
End Sub
执行的结果是只显示辽宁省,为什么啊?
请大家指点!谢谢!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货