TreeView 控件问?急 怎么用代码在,TreeView这个控件中添加,父项单,及子项呀???谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 nodes.add好基础的东西,还是看看书吧 晕了,看msdn啊大哥!Private Sub Form_Load() Dim nodX As Node Set nodX = TreeView1.Nodes.Add(, , "R", "Root") Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1") Set nodX = TreeView1.Nodes.Add("C1", tvwChild, "C2", "Child 2") nodX.EnsureVisible Set nodX = TreeView1.Nodes.Add("C2", tvwChild, "C3", "Child 3") nodX.EnsureVisible Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4") nodX.EnsureVisible Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C5", "Child 1") nodX.EnsureVisibleend sub 【散分】求VB程序读取QQ好友列表数据的完整代码 如何在获取当前操作系统用户的缺省目录 国庆新疆自驾游征友三人 为什么我要看回复的帖子 、非得到”我的专家门诊 我的问题“里看啊?有谁能告诉我吗?谢谢 打包安装问题 狂送100分(5) vb ApI的问题 怎样读取文件夹的属性? ActiveX component can't create object????????????????? 沧浪兄,代码不多,请斧正!(代码在VBA中通过,在VB中报错) 如何将报表里的一个Label变色啊 控件的颜色的问题
好基础的东西,还是看看书吧
Private Sub Form_Load()
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")
Set nodX = TreeView1.Nodes.Add("C1", tvwChild, "C2", "Child 2")
nodX.EnsureVisible
Set nodX = TreeView1.Nodes.Add("C2", tvwChild, "C3", "Child 3")
nodX.EnsureVisible
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4")
nodX.EnsureVisible
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C5", "Child 1")
nodX.EnsureVisible
end sub