日韩黑丝制服一区视频播放|日韩欧美人妻丝袜视频在线观看|九九影院一级蜜桃|亚洲中文在线导航|青草草视频在线观看|婷婷五月色伊人网站|日本一区二区在线|国产AV一二三四区毛片|正在播放久草视频|亚洲色图精品一区

分享

Word控件工具箱的使用和實例(多選題制作)

 冷太陽lxz 2011-05-24
 word中的控件工具箱是做什么的,如何使用?IT部落窩在本文就為大家講講控件工具箱的使用方法。

  Word的控件工具箱在哪里呢?單擊菜單“視圖——工具欄””項中點(diǎn)“控件工具箱”就可以調(diào)出控件工具箱。

  Word控件工具箱是做什么的呢?word控件工具箱主要在VBA中窗體內(nèi)使用,每個控件都是一個工具模塊,具體功能通過設(shè)置屬性和寫入VB代碼來實現(xiàn)。有些控件也可以在word文檔中使用。

  word控件工具箱其實就是VBA的可視化界面,需要掌握一定的VBA知識,懂一些代碼,才能更好的駕馭Word的控件工具箱。

  舉一個很簡單的例子,打開word后,打開控件工具箱,雙擊命令按鈕,頁面上就會多出一個Commandbutton,雙擊“commandbutton”,在end sub上面加這樣一行MsgBox "
IT部落窩網(wǎng)站(www.),歡迎大家訪問學(xué)習(xí)!"

  保存退出VBA編輯器,單擊一下控件工具箱上第一個鈕退出設(shè)計模式,現(xiàn)在單擊一下頁面上的Commandbutton按鈕,就會彈出一個提示框“
IT部落窩網(wǎng)站(www.),歡迎大家訪問學(xué)習(xí)!”

  下面我們就利用Word的控件工具箱來制作一道多項選擇題。下面是具體操作步驟:

  第一步,啟動Word,新建一空白文檔,輸入 “計算機(jī)的軟件系統(tǒng)包括( )”并根據(jù)情況設(shè)置好字體、字號和顏色。

  第二步,依次單擊菜單欄中的“視圖→工具欄→控件工具箱”命令,在彈出的控件工具箱中選中“復(fù)選框”按鈕 ,然后在文檔拖拉出一個復(fù)選框。

  第三步,在拖拉出的復(fù)選框(checkbox1)上單擊鼠標(biāo)右鍵選擇屬性,打開“屬性”對話框,將其中“名稱”修改為“duoxt11”,“Caption”后面的字符修改為題目相應(yīng)選項字符(如“系統(tǒng)軟件”),然后再設(shè)置“font”選項設(shè)置合適的字體、字號等。其他屬性可采用默認(rèn)值。

  第四步,將上面設(shè)置好的復(fù)選框復(fù)制三個,分別將“名稱”修改為“duoxt12”、“duoxt13”、“duoxt14”,“Caption”屬性分別修改為“應(yīng)用軟件”、“殺毒軟件”和“工具軟件”。

  第五步,選擇“控件工具箱”的“命令按鈕” ,在文檔中添加一個按鈕,和上面3中的操作一樣將其“名稱”修改為“duopd11”,“caption”屬性修改為“判斷”(也可以修改“font”屬性來設(shè)置字體、字號等)。然后雙擊該按鈕,進(jìn)入“VisualBasic編輯器”狀態(tài),將下述代碼輸入到Private Sub Private Sub duopd11_Click()和End Sub代碼中間,輸入完成后,關(guān)閉窗口返回。
  If duoxt11.Value = True And duoxt12.Value = True And duoxt13.Value = False And duoxt14.Value = False Then

  MsgBox "恭喜你,選擇正確。", vbOKOnly, "結(jié)果"

  Else

  If duoxt11.Value = True And duoxt12.Value = False And duoxt13.Value = False And duoxt14.Value = False Or duoxt11.Value = False And duoxt12.Value = True And duoxt13.Value = False And duoxt14.Value = False Then

  MsgBox "選對了一個,還有一個,再努力一下就勝利了。", vbOKOnly, "提示"

  Else

  MsgBox "選擇錯誤!還需要繼續(xù)努力啊!", vbOKOnly, "提示"

  End If

  End If

  上述代碼含義是如果選擇第一項和第二項并且第三和第四項不選時,按下判斷按鈕則彈出“恭喜你,選擇正確”消息框,如果僅僅選擇了第一項或第二項則彈出“選對了一個,還有一個再努力一下就勝利了。”消息框,如果選擇了第三或第四項中的任何一項都會彈出“選擇錯誤!還需要繼續(xù)努力啊!”消息框。

  第六步,將命令按鈕復(fù)制一份,將其“名稱”修改為“duopd12”,“caption”屬性修改為“重選”,雙擊該按鈕,進(jìn)入“VisualBasic編輯器”狀態(tài),將下述代碼輸入到Private Sub duopd12_Click()和End Sub代碼中間,輸入完成后,關(guān)閉窗口返回。

  duoxt11.Value = False

  duoxt12.Value = False

  duoxt13.Value = False

  duoxt14.Value = False

  第七步,單擊“控件工具箱”中的“退出設(shè)計模式”按鈕關(guān)閉“控件工具箱”。這一步很重要,否則不能出現(xiàn)預(yù)期的效果。

控件工具箱實例

  經(jīng)過上面的不再,利用word控件工具箱就制作好了一個多項選題,制作好的效果如上圖所示。

  大家制作好后,可以自己檢測一下,自己勾選前面的框作出選擇,系統(tǒng)就會彈出相應(yīng)的對話框,根據(jù)選擇的不同給出不同的提示。

    本站是提供個人知識管理的網(wǎng)絡(luò)存儲空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點(diǎn)擊一鍵舉報。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多