vb第16單選按鈕、復(fù)選框控件_第1頁(yè)
vb第16單選按鈕、復(fù)選框控件_第2頁(yè)
vb第16單選按鈕、復(fù)選框控件_第3頁(yè)
vb第16單選按鈕、復(fù)選框控件_第4頁(yè)
vb第16單選按鈕、復(fù)選框控件_第5頁(yè)
全文預(yù)覽已結(jié)束

下載本文檔

版權(quán)說(shuō)明:本文檔由用戶(hù)提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

標(biāo)準(zhǔn)控件二21、掌握單選按鈕控件的設(shè)置與使用2、掌握復(fù)選框控件的設(shè)置與使用單選按鈕控件的設(shè)置與使用、復(fù)選框控件的設(shè)置與使用單選按鈕控件、復(fù)選框控件的屬性設(shè)置與代碼編寫(xiě)101018復(fù)習(xí)評(píng)講作業(yè)。新課標(biāo)準(zhǔn)控件二一、選擇控件—單選按鈕復(fù)選框和單選按鈕的屬性和事件Value屬性Alignment屬性Style屬性應(yīng)用舉例例:使用單選按鈕使文本框中的字體改變大小。PrivateSubOption1_Click()Text1.FontSize=14EndSubPrivateSubOption2_Click()Text1.FontSize=18EndSub練習(xí)1:請(qǐng)用單選按鈕使文本框中的字體改變顏色。練習(xí)2:使用單選按鈕控制窗口大小怎樣編寫(xiě)代碼。想在窗體中加載圖片怎樣編寫(xiě)代碼,想使圖片隨窗口大小變化怎么辦(提示:可以使用圖像框)。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ù)選框顯示文本框中的字體分別為下劃線(xiàn)、傾斜、粗體PrivateSubCheck1_Click()Text1.FontUnderline=TrueEndSubPrivateSubCheck2_Click()Text1.FontItalic=TrueEndSubPrivateSubCheck3_Click()Text1.FontBold=TrueEndSub該例在運(yùn)行時(shí)復(fù)選框取消時(shí)有何表現(xiàn)?問(wèn):復(fù)選框取消時(shí)如何設(shè)置代碼,使其沒(méi)有下劃線(xiàn)等效果?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顯示出來(lái)。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"您的愛(ài)好是:"&vbCrLf&t

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶(hù)所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶(hù)上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶(hù)上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶(hù)因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

評(píng)論

0/150

提交評(píng)論