word版可編輯-visualbasic程序設(shè)計實驗指導(dǎo)書―資源采礦精精心整理doc-資料下載頁
2025-07-15 11:47本頁面
【正文】 。當(dāng)用戶進行選擇時,能啟動相應(yīng)的應(yīng)用程序。,該菜單包含“紅色”,“藍(lán)”和“黃”3個選項,單擊相應(yīng)的選項后可該變文本框中文字的顏色。三、實驗儀器、設(shè)備及材料硬件環(huán)境:PC軟件環(huán)境:操作系統(tǒng)Windows 系列Visual Basic 四、實驗原理VB程序開發(fā)原理五、實驗步驟(1打開“菜單編輯器”窗口,設(shè)置各菜單選項。參考圖2141所示。 圖2141 菜單編輯器(2設(shè)置對象屬性。參考表2141。表2141 菜單項屬性設(shè)置標(biāo)題(Caption名稱(Name說明程序(amp。GProg 主菜單項1....Word(amp。w Word 子菜單項12...Excel(amp。E Excel 子菜單項13....PowerPoint(amp。P PowerPoint 子菜單項14附件(amp。F Fujian 主菜單項2....畫圖Huatu 子菜單項21....游戲Youxi 子菜單項22........紙牌Zhipai 子子菜單項221........掃雷Saolei 子子菜單項222 (3編寫事件代碼。Private Sub excel_Click( Shell (c:\program files\microsoft office\office11\, vbNormalFocusEnd SubPrivate Sub huatu_Click( Shell (c:\winnt\system32\, vbNormalFocusEnd SubPrivate Sub powerpoint_Click( Shell (c:\program files\microsoft office\office11\, vbNormalFocus End SubPrivate Sub saolei_Click( Shell (c:\winnt\system32\, vbNormalFocusEnd SubPrivate Sub word_Click( Shell (c:\program files\microsoft office\office11\, vbNormalFocus End SubPrivate Sub zhipai_Click( Shell (c:\winnt\system32\, vbNormalFocusEnd Sub(4運行程序程序輸出界面如圖2142所示。(1建立用戶界面。添加一個文本框控件Text1。打開“菜單編輯器”窗口,設(shè)置各菜單選項。注意:要將頂級菜單的Visible屬性設(shè)為False。參考圖2143所示。 圖2142程序運行結(jié)果圖2143 菜單編輯器(2編寫事件代碼。Private Sub blue_Click( = vbBlueEnd SubPrivate Sub red_Click( = vbRedEnd SubPrivate Sub yellow_Click( = vbYellowEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single If Button = 2 ThenPopupMenu color, 4 Or 2End IfEnd Sub(3運行程序程序輸出界面如圖2144所示。 圖2144 程序運行結(jié)果六、實驗報告要求創(chuàng)建VB程序,正確是實現(xiàn)對菜單的應(yīng)用。七、實驗注意事項注意機房及計算機使用規(guī)范。八、思考題目菜單的使用方法實驗十五: 工具欄,狀態(tài)欄設(shè)計一、實驗?zāi)康?。二、實驗?nèi)容“新建”,“復(fù)制”,“打開”和“打印”功能的工具欄。三、實驗儀器、設(shè)備及材料硬件環(huán)境:PC軟件環(huán)境:操作系統(tǒng)Windows 系列Visual Basic 四、實驗原理VB程序開發(fā)原理五、實驗步驟(1建立用戶界面。添加一個文本框控件Text1。添加AxtiveX控件。參考圖2151所示。 圖2151 添加控件將工具箱中Toolbar和ImageList控件雙擊到窗體上。參考圖2152所示。 圖2152 設(shè)置界面(2設(shè)置對象屬性。鼠標(biāo)指向ImageList控件,單擊右鍵在彈出的快捷菜單中選擇屬性,在打開的“屬性頁”對話框,選擇“圖象”選項卡,單擊“插入圖片”按鈕,選擇圖片。如圖2153所示。 圖2153 插入圖片在窗體的工具欄上單擊鼠標(biāo)右鍵,在彈出的快捷菜單中選擇屬性,打開的“屬性頁”對話框,在“圖象列表”選項中選取ImageList1,建立與圖象列表框的關(guān)聯(lián)。參考圖2154所示。 圖2154 設(shè)置Toolbar的屬性選擇“按鈕”選項卡,單擊“插入”按鈕,向工具欄中添加4個工具按鈕,索引分別為1,2,3,4,對應(yīng)圖象索引值分別為1,2,3,4。參考圖2155所示。 圖2155 建立與圖象列表框的關(guān)聯(lián)(3編寫事件代碼。Private Sub Toolbar1_ButtonClick(ByVal Button As Select Case Case 1 = Case 2 復(fù)制Case 3 打開Case 4 打印End SelectEnd Sub(4運行程序。程序輸出界面如圖2156所示。 圖2156 程序運行結(jié)果(1建立用戶界面添加AxtiveX控件。向窗體中添加一個StatusBar控件和Timer控件。參考圖2157所示。 圖2157 界面設(shè)計圖2158 插入一個窗格(2設(shè)置對象屬性。設(shè)置Timer控件的Interval屬性為100,右擊StatusBar控件,在彈出的快捷菜單中選擇屬性,在打開的“屬性頁”對話框,選擇“窗格”選項卡。選擇插入窗格命令,插入一個窗格,如圖2158所示。(3編寫事件代碼。Private Sub Form_Load( ( = 歡迎使用本系統(tǒng)End SubPrivate Sub Timer1_Timer(( = Time(End Sub(4運行程序程序輸出界面如圖2159所示。 圖2159 程序運行結(jié)果六、實驗報告要求創(chuàng)建VB程序,正確是實現(xiàn)對工具欄和菜單欄的應(yīng)用。七、實驗注意事項注意機房及計算機使用規(guī)范。
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1