vb第16單選按鈕、復(fù)選框控件

標(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ī)大小時(shí)用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該例在運(yùn)行時(shí)復(fù)選框取消時(shí)有何表現(xiàn)？問：復(fù)選框取消時(shí)如何設(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ù)選框列出休閑項(xiàng)目，運(yùn)行時(shí)把選擇的項(xiàng)目用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