Word控件工具箱的使用和實例復習過程

1、Good is good, but better carries it.精益求精，善益求善。Word控件工具箱的使用和實例-Word控件工具箱的使用和實例word中的控件工具箱是做什么的，如何使用？Word的控件工具箱在哪里呢？單擊菜單“視圖工具欄”項中點“控件工具箱”就可以調出控件工具箱。Word控件工具箱是做什么的呢?word控件工具箱主要在VBA中窗體內使用，每個控件都是一個工具模塊，具體功能通過設置屬性和寫入VB代碼來實現(xiàn)。有些控件也可以在word文檔中使用。word控件工具箱其實就是VBA的可視化界面，需要掌握一定的VBA知識，懂一些代碼，才能更好的駕馭Word的控件工具箱。舉一個很

2、簡單的例子，打開word后，打開控件工具箱，雙擊命令按鈕，頁面上就會多出一個Commandbutton，雙擊“commandbutton”，在endsub上面加這樣一行MsgBox保存退出VBA編輯器，單擊一下控件工具箱上第一個鈕退出設計模式，現(xiàn)在單擊一下頁面上的Commandbutton按鈕，就會彈出一個提示框下面我們就利用Word的控件工具箱來制作一道多項選擇題。下面是具體操作步驟：第一步，啟動Word，新建一空白文檔，輸入“計算機的軟件系統(tǒng)包括()”并根據(jù)情況設置好字體、字號和顏色。第二步，依次單擊菜單欄中的“視圖工具欄控件工具箱”命令，在彈出的控件工具箱中選中“復選框”按鈕，然后在文檔

3、拖拉出一個復選框。第三步，在拖拉出的復選框(checkbox1)上單擊鼠標右鍵選擇屬性，打開“屬性”對話框，將其中“名稱”修改為“duoxt11”，“Caption”后面的字符修改為題目相應選項字符(如“系統(tǒng)軟件”)，然后再設置“font”選項設置合適的字體、字號等。其他屬性可采用默認值。第四步，將上面設置好的復選框復制三個，分別將“名稱”修改為“duoxt12”、“duoxt13”、“duoxt14”，“Caption”屬性分別修改為“應用軟件”、“殺毒軟件”和“HYPERLINK/list.asp?id=8t_blank工具軟件”。第五步，選擇“控件工具箱”的“命令按鈕”，在文檔中添加一個

4、按鈕，和上面3中的操作一樣將其“名稱”修改為“duopd11”，“caption”屬性修改為“判斷”(也可以修改“font”屬性來設置字體、字號等)。然后雙擊該按鈕，進入“VisualBasic編輯器”狀態(tài)，將下述代碼輸入到PrivateSubPrivateSubduopd11_Click()和EndSub代碼中間，輸入完成后，關閉窗口返回。Ifduoxt11.Value=TrueAndduoxt12.Value=TrueAndduoxt13.Value=FalseAndduoxt14.Value=FalseThenMsgBox恭喜你，選擇正確。,vbOKOnly,結果ElseIfduoxt1

5、1.Value=TrueAndduoxt12.Value=FalseAndduoxt13.Value=FalseAndduoxt14.Value=FalseOrduoxt11.Value=FalseAndduoxt12.Value=TrueAndduoxt13.Value=FalseAndduoxt14.Value=FalseThenMsgBox選對了一個，還有一個，再努力一下就勝利了。,vbOKOnly,提示ElseMsgBox選擇錯誤!還需要繼續(xù)努力啊!,vbOKOnly,提示EndIfEndIf上述代碼含義是如果選擇第一項和第二項并且第三和第四項不選時，按下判斷按鈕則彈出“恭喜你，選擇正

6、確”消息框，如果僅僅選擇了第一項或第二項則彈出“選對了一個，還有一個再努力一下就勝利了?！毕⒖?，如果選擇了第三或第四項中的任何一項都會彈出“選擇錯誤!還需要繼續(xù)努力啊!”消息框。第六步，將命令按鈕復制一份，將其“名稱”修改為“duopd12”，“caption”屬性修改為“重選”，雙擊該按鈕，進入“VisualBasic編輯器”狀態(tài)，將下述代碼輸入到PrivateSubduopd12_Click()和EndSub代碼中間，輸入完成后，關閉窗口返回。duoxt11.Value=Falseduoxt12.Value=Falseduoxt13.Value=Falseduoxt14.Value=False第七步，單擊“控件工具箱”中的“退出設計模式”按鈕關閉“控件工具箱”。這一步很重要，否則不能出現(xiàn)預期的效果。經過上