关于VB树型菜单如何来实现

jp1jp2 2011-05-12 11:09:06

大家好，我想问一下，VB的树型菜单如何来实现，权限要怎样来做控制呢！谢

...全文

129 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

dafu2003 2011-05-12

打赏
举报

菜单本来就是树形结构

dbcontrols 2011-05-12

打赏
举报

'新建一个窗体，上面放一个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

For i = 1 To TreeView1.Nodes.Count

    TreeView1.Nodes(i).Expanded = True

Next i