其次妳要在程序中區分還是把不同的權限放到硬盤,可放的地方很多,有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 分開,就是不同的權限了