ppt交互式課件制作-預(yù)覽頁
【正文】 我們希望 鼠標(biāo)單擊 命令按鈕時，選項按鈕的標(biāo)題即 Caption由 OptionButton1變?yōu)椤爸袊K州”，這個技巧只需要右鍵單擊 CommandButton1按鈕，選擇 【 查看代碼 】 進(jìn)入代碼編輯區(qū)，在給出的默認(rèn)代碼中填寫下列蘭色代碼即可： Private Sub CommandButton1_Click() = 中國蘇州 End Sub 注意： 程序中的 ””要用 半角標(biāo)點符號 思考： 怎樣通過程序?qū)?OptionButton1的 Caption改回 OptionButton1? CommandButton1命令按鈕和選項按鈕二 現(xiàn)在有一個命令按鈕，還有兩個選項按鈕，我們希望 鼠標(biāo)單擊 命令按鈕時，程序能進(jìn)行以下 判斷 ：如果 OptionButton1的 Value為 True則顯示“答對了”的消息框，否則，顯示“答錯了，重新選擇！”的消息框。 請務(wù)必掌握以下技巧： 鼠標(biāo)右鍵單擊某控件，選擇 【 屬性 】 可以編輯該控件的屬性 鼠標(biāo)右鍵單擊某控件，選擇 【 查看代碼 】 可以編輯該控件的事件代碼 選項按鈕的屬性和事件 名稱： 默認(rèn)是 OptionButton1 是該控件的標(biāo)志，可改名 Caption： 默認(rèn)是 OptionButton1 可以在此編輯題目 Value： 默認(rèn)是 False Font： 控件文本的字體、字型和字號 注意： 選項按鈕有兩種狀態(tài)即兩種 Value值，默認(rèn)是 False即未選中狀態(tài)，當(dāng) 鼠標(biāo)單擊 選項按鈕時，表示選中該按鈕，控件狀態(tài)會發(fā)生變化，如 OptionButton2所示，而其 Value屬性也由默認(rèn)的 False轉(zhuǎn)變?yōu)?True，這個性質(zhì)千萬要記住。進(jìn)入代碼編輯區(qū)，在給出的默認(rèn)代碼中填寫下列蘭色代碼即可： Private Sub CommandButton1_Click() If = True And = True AND = False Then MsgBox (答對了 ) Else MsgBox (答錯了，重新選擇！ ) End If End Sub 注意： 這個程序有點小問題，即在重新選擇時，原先的選擇狀態(tài)還保留著。進(jìn)入代碼編輯區(qū)，在給出的默認(rèn)代碼中填寫下列蘭色代碼即可： Private Sub CommandButton1_Click() If = 蘇州 Then MsgBox (答對了 ) Else MsgBox (答錯了，重新填寫！ ) End If End Sub 思考： 怎樣在出錯信息出現(xiàn)后，清空文本框內(nèi)的內(nèi)容？ CommandButton1命令按鈕和文本框之改良 這個問題可以仿照之前復(fù)選框的思路來解決，只需修改 TextBox1的 Value為 空
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1