下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
標(biāo)準(zhǔn)控件二21、掌握單選按鈕控件的設(shè)置與使用2、掌握復(fù)選框控件的設(shè)置與使用單選按鈕控件的設(shè)置與使用、復(fù)選框控件的設(shè)置與使用單選按鈕控件、復(fù)選框控件的屬性設(shè)置與代碼編寫101018復(fù)習(xí)評講作業(yè)。新課標(biāo)準(zhǔn)控件二一、選擇控件—單選按鈕復(fù)選框和單選按鈕的屬性和事件Value屬性Alignment屬性Style屬性應(yīng)用舉例例:使用單選按鈕使文本框中的字體改變大小。PrivateSubOption1_Click()Text1.FontSize=14EndSubPrivateSubOption2_Click()Text1.FontSize=18EndSub練習(xí)1:請用單選按鈕使文本框中的字體改變顏色。練習(xí)2:使用單選按鈕控制窗口大小怎樣編寫代碼。想在窗體中加載圖片怎樣編寫代碼,想使圖片隨窗口大小變化怎么辦(提示:可以使用圖像框)。PrivateSubOption1_Click()Form1.WindowState=0Form1.Top=100Form1.Left=100Form1.Height=7000'產(chǎn)生窗口的隨機(jī)大小時用Rnd*7000Form1.Width=10000Image1.Top=0Image1.Left=0Image1.Height=Form1.HeightImage1.Width=Form1.WidthImage1.Stretch=TrueImage1.Picture=LoadPicture("d:\hua.jpg")EndSubPrivateSubOption2_Click()Form1.WindowState=2Image1.Top=0Image1.Left=0Image1.Height=Form1.HeightImage1.Width=Form1.WidthForm1.Picture=LoadPicture("d:\hua.jpg")EndSub二、選擇控件—復(fù)選框例:使用復(fù)選框顯示文本框中的字體分別為下劃線、傾斜、粗體PrivateSubCheck1_Click()Text1.FontUnderline=TrueEndSubPrivateSubCheck2_Click()Text1.FontItalic=TrueEndSubPrivateSubCheck3_Click()Text1.FontBold=TrueEndSub該例在運行時復(fù)選框取消時有何表現(xiàn)?問:復(fù)選框取消時如何設(shè)置代碼,使其沒有下劃線等效果?PrivateSubCheck1_Click()IfCheck1.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSubPrivateSubCheck3_Click()IfCheck3.Value=1ThenText1.FontBold=TrueElseText1.FontBold=FalseEndIf練習(xí)1:使用復(fù)選框列出休閑項目,運行時把選擇的項目用msgbox顯示出來。Publictxt1AsStringPublictxt2AsStringPublictxt3AsStringPublictxt4AsStringPrivateSubCheck1_Click()IfCheck1.Value=1Thentxt1=Check1.CaptionEndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1Thentxt2=Check2.CaptionEndIfEndSubPrivateSubCheck3_Click()IfCheck3.Value=1Thentxt3=Check3.CaptionEndIfEndSubPrivateSubCheck4_Click()IfCheck4.Value=1Thentxt4=Check4.CaptionEndIfEndSubPrivateSubCommand1_Click()MsgBox"您的愛好是:"&vbCrLf&t
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 內(nèi)蒙古包頭市(2024年-2025年小學(xué)四年級語文)統(tǒng)編版摸底考試((上下)學(xué)期)試卷及答案
- 內(nèi)蒙古興安盟(2024年-2025年小學(xué)四年級語文)人教版隨堂測試(上學(xué)期)試卷及答案
- 內(nèi)蒙古烏海市(2024年-2025年小學(xué)四年級語文)統(tǒng)編版隨堂測試((上下)學(xué)期)試卷及答案
- 重慶市縣(2024年-2025年小學(xué)四年級語文)人教版摸底考試((上下)學(xué)期)試卷及答案
- DB34∕T 3189-2018 二醋酸纖維濾棒中增塑劑的測定 氣相色譜-質(zhì)譜聯(lián)用法
- 2024-2030年中國什錦果蔬糕行業(yè)供需趨勢及投資風(fēng)險研究報告
- 2024-2030年中國人造地板行業(yè)市場運行分析及投資價值評估報告
- 2024-2030年中國交通運輸行業(yè)市場發(fā)展分析及前景趨勢與投資研究報告
- 2024-2030年中國二氧化硅粉行業(yè)市場發(fā)展趨勢與前景展望戰(zhàn)略分析報告
- 2024-2030年中國乙二胺市場趨勢監(jiān)測與投資策略規(guī)劃分析研究報告
- 底欄柵壩水力學(xué)計算
- 大體積混凝土施工技術(shù)交底
- 兒童哮喘的火罐療法防治技術(shù)
- 機(jī)械圖紙的基礎(chǔ)知識----識圖篇
- 2021年“三會一課”制度執(zhí)行情況自查報告
- 瘤胃微生物種類及分類.PPT
- 牧原食品股份有限公司內(nèi)部控制調(diào)查報告
- 大學(xué)思辨英語教程的編寫理念孫有中教授PPT課件
- 真空相變加熱爐
- 越劇《柳毅傳書》劇本
- 植物大戰(zhàn)僵尸_ppt模板.ppt
評論
0/150
提交評論