VB TreeView 动态加载节点

首先在模块里要用POUBLIC声明个变量，以便于各个窗体共同区分使用。

其次你要在程序中区分还是把不同的权限放到硬盘，可放的地方很多，有TXT、数据库、EXCEL、INI等文件，也可以放注册表，如果是后者，在用户登录或窗体加载的时候要读其权限，放到上述变量中进行区分。如果用程序区分，那就做成死的了。

这个控件编程的时候，要充分利用缩进，尽量与显示的位置对应起来，便于阅读，比如：

'新建一个窗体，上面放一个TreeView和一个ListView,一个ListImage

'ListImage控件要添加8张以上一样大小的icon文件

'TreeView1和ListView的图像列表都设置成ListImage1

Private Sub Form_Load()

TreeView1.Style = tvwTreelinesPlusMinusPictureText

TreeView1.LabelEdit = tvwManual

TreeView1.Checkboxes = True

ListView1.View = lvwIcon

ListView1.BorderStyle = ccFixedSingle

TreeView1.Nodes.Add , , "r", "学籍管理信息系统", 1

TreeView1.Nodes.Add "r", tvwChild, "r1", "学生基本信息", 2

TreeView1.Nodes.Add "r1", tvwChild, "r11", "个人信息", 3

TreeView1.Nodes.Add "r1", tvwChild, "r12", "家庭信息", 3

TreeView1.Nodes.Add "r", tvwChild, "r2", "学习成绩", 4

TreeView1.Nodes.Add "r2", tvwChild, "r21", "专业成绩", 5

TreeView1.Nodes.Add "r2", tvwChild, "r22", "英语成绩", 5

TreeView1.Nodes.Add "r", tvwChild, "r3", "社团活动", 6

TreeView1.Nodes.Add "r3", tvwChild, "r31", "政治面貌", 7

TreeView1.Nodes.Add "r3", tvwChild, "r32", "获奖情况", 7

其中上面的代码可以用IF..THEN或SELECT CASE 分开，就是不同的权限了

A的Button事件中：

B

MyForm

=

new

B()

B.ShowDialog(this)

A中写个属性:

public

string

AddNodes

{

set{

A.TreeView1.nodes.add(value)

}

}

B的添加按钮事件中：

A

TheForm

=

(A)this.Owner

if

(TheForm

!=

null)

{

TheForm.AddNodes

=

你输入的名称

}

如果你想对这个节点再进行 *** 作，请指定节名的NAME属性

---