實驗八菜單與工具欄設(shè)計

1、實驗設(shè)一、 實驗?zāi)?二、實驗內(nèi)實驗實驗82實驗設(shè)一、 實驗?zāi)?二、實驗內(nèi)實驗實驗82。學(xué)打開“學(xué)”?！?。操作步驟如操作步驟如下 7把主菜單掛接到窗體上（略實驗8-實驗8-。8-。（1）“類型”3個選項，選擇（2“（1）“類型”3個選項，選擇（2“（3）欄8-省略使用“宏”創(chuàng)建菜單（5-10操作（3）通過工具箱中的“其他控件”按鈕在窗口中添加ImageList、ToolBarTreeview在“屬性”窗口設(shè)置ImageList、ToolBarTreeview標(biāo)題：學(xué)管邊框樣式框邊略略（3）通過工具箱中的“其他控件”按鈕在窗口中添加ImageList、ToolBarTreeview在“屬性”窗口設(shè)

2、置ImageList、ToolBarTreeview標(biāo)題：學(xué)管邊框樣式框邊略略無略前景色無（6）Dim objtreeAsForm_load()PrivateSubForm_Load() Dim nodx As NodeSetobjtree=Me.TreeView.Object Setnodx=objtree.Nodes.Add(, Set nodx = objtree.Nodes.Add(, Set（6）Dim objtreeAsForm_load()PrivateSubForm_Load() Dim nodx As NodeSetobjtree=Me.TreeView.Object Set

3、nodx=objtree.Nodes.Add(, Set nodx = objtree.Nodes.Add(, Set nodx = objtree.Nodes.Add( , 3)Set nodx = objtree.Nodes.Add( , 3)Set nodx = 管理學(xué)院, Set nodx = 學(xué)院學(xué)院, 學(xué)院, tvwChild, , 學(xué)院, tvwChild, , 學(xué)院, tvwChild, , 學(xué)院, tvwChild, 經(jīng)濟(jì)管理學(xué)院, 學(xué)院, tvwChild, , 社, Set nodx = objtree.Nodes.Add(, tvwChild, 計算機專業(yè), 算機專業(yè),

4、 Set nodx = objtree.Nodes.Add(信息電氣工程專業(yè), 3)Set nodx = objtree.Nodes.Add(信息動化專業(yè), 3)Set nodx = objtree.Nodes.Add(信息通訊工程專業(yè), 3)Set nodx = objtree.Nodes.Add(機械專業(yè), 3), tvwChild, 電氣工程專業(yè), , tvwChild, 自動化專業(yè), , tvwChild, 通訊工程專業(yè), , tvwChild, 機械專業(yè), Set nodx = objtree.Nodes.Add(機械專業(yè), 3)Set nodx = objtree.Nodes.Ad

5、d(機械專業(yè), 3)Set nodx = objtree.Nodes.Add(化學(xué)專業(yè), 3)Set nodx = objtree.Nodes.Add(機械專業(yè), 3)Set nodx = objtree.Nodes.Add(機械專業(yè), 3)Set nodx = objtree.Nodes.Add(化學(xué)專業(yè), 3)Set nodx = objtree.Nodes.Add(化學(xué)分子專業(yè), 3)Set nodx = objtree.Nodes.Add(人文社旅游管理專業(yè), 3)Set nodx = objtree.Nodes.Add(人文社公共管理專業(yè), 3)objtree.Nodes(1).Ex

6、panded=True End Sub, tvwChild, 機電專業(yè), , tvwChild, 儲運專業(yè), , tvwChild, 化學(xué)專業(yè), , tvwChild, 高分子專業(yè), , tvwChild, 旅游管理專業(yè), , tvwChild, 公共管理專業(yè), )PrivateSubToolbar1_ButtonClick(ByValButtonAsObject) Select Case ButtonCase添加DoCmd.OpenForm學(xué)生基本情況 Case 修改DoCmd.OpenForm教師基本情況 End SelectEnd Dim strSQL As StringDimstrkey1AsString strkey1 = Node.KeystrSQLselect * from 學(xué)院