Private Sub Form_Load()
'设置 Treeview 控件属性。
TreeView1.LineStyle = tvwRootLines ' Linestyle 1 '添加 Node 对象。
Dim nodX As Node '声明 Node 变量。
'带有文本 'Root' 的第一个节点。
Set nodX = TreeView1.Nodes.Add(, , "r", "Root") '下一个节点是节点 1 ("Root") 的子节点。
Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child1", "Child")End Sub
'设置 Treeview 控件属性。
TreeView1.LineStyle = tvwRootLines ' Linestyle 1 '添加 Node 对象。
Dim nodX As Node '声明 Node 变量。
'带有文本 'Root' 的第一个节点。
Set nodX = TreeView1.Nodes.Add(, , "r", "Root") '下一个节点是节点 1 ("Root") 的子节点。
Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child1", "Child")End Sub
解决方案 »
- 做的ACTIVEX控件放在网页,通过javascript不能调用到其方法或属性
- 我已经用API屏蔽掉了Textbox控件的右键菜单,但如何才能防止用快捷键Ctrl+C等复制其中的内容呢?
- 数组与控件问题。
- 如何合并MshFlexGrid中的单元格
- 如何读取HTML脚本程序(急)
- 2个键盘 如何分开输入?
- 在DataReport是否可以自己设置打印页码的初始值,紧急求助。。
- 怎么判断鼠标停留在控件上?
- 查询的问题,急!!!
- 怎样能让我的程序,每隔一秒钟自己检查一下是否是在最底层,如果不是的话,就运行一段代码成为最底层!!
- [email protected]这个王八蛋还在给我发有木马的邮件,各位网友小心啊!!
- 如何把系统用户加入组???
看一下
C:\Program Files\Microsoft Visual Studio\MSDN98\98VS\2052\Samples\VB98\Datatree
这里,