資源描述:
《用戶界面設(shè)計(jì)》由會員上傳分享,免費(fèi)在線閱讀,更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、第7章用戶界面設(shè)計(jì)7.1常用控件7.2多重窗體7.3鼠標(biāo)和鍵盤7.4綜合應(yīng)用本章目錄17.1常用控件7.1.1單選按鈕、復(fù)選框和框架1.單選按鈕(OptionButton)單選按鈕以組的形式出現(xiàn),允許選擇一項(xiàng)。重要屬性Caption屬性按鈕上顯示的文本Value屬性表示單選按鈕的狀態(tài):True——被選定False——未被選定重要事件Click事件單擊后使Value屬性為True本章目錄2Value屬性值為整型,表示復(fù)選框的狀態(tài):0——vbUnchecked未選定1——vbChecked被選定2——vbGrayed灰色,并顯示一個(gè)選中標(biāo)記。重要事件Click事件2
2、.復(fù)選框(CheckBox)例7.1通過單選按鈕和復(fù)選框設(shè)置文本框的字體本章目錄34PrivateSubCheck1_Click()Text1.Font.Bold=NotText1.Font.BoldEndSubPrivateSubCheck2_Click()Text1.Font.Italic=NotText1.Font.ItalicEndSubPrivateSubCheck3_Click()Text1.Font.Strikethrough=NotText1.Font.StrikethroughEndSubPrivateSubCheck4_Click()Text
3、1.Font.Underline=NotText1.Font.UnderlineEndSubPrivateSubOption1_Click()Text1.Font.Name="宋體"EndSubPrivateSubOption2_Click()Text1.Font.Name="黑體"EndSub53.框架(Frame)具有容器功能先建立框架,然后將各控件放置其中。Caption屬性框架上的標(biāo)題文本框架可以響應(yīng)Click和DoubleClick事件,但一般不需要編寫事件過程。例7.2框架用法示例本章目錄67PrivateSubCommand1_Click()Lis
4、t1.ClearIfOption1ThenList1.AddItem"聯(lián)想"ElseList1.AddItem"戴爾"EndIfList1.AddItemText1IfCheck1.Value=1ThenIfOption3ThenList1.AddItem"windowsxp"ElseList1.AddItem"windows2000"EndIfEndIfEndSubPrivateSubForm_Load()Option3.Enabled=FalseOption4.Enabled=FalseEndSubPrivateSubCheck1_Click()Option
5、3.Enabled=TrueOption4.Enabled=TrueEndSub87.1.2滾動條和進(jìn)度條滾動條(ScrollBar)通常附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置,也可作為數(shù)據(jù)輸入工具。進(jìn)度條(ProgressBar)用來指示事務(wù)處理的進(jìn)度。滾動條有水平和垂直兩種進(jìn)度條沒有水平垂直之分本章目錄9滾動條屬性Value滑塊當(dāng)前位置的值(缺省為0)Min滑塊最小位置值(缺省為0)Max滑塊最大位置值SmallChange單擊滾動條兩端的箭頭時(shí),Value屬性(滑塊位置)改變值LargeChange單擊滾動條的空白區(qū)域時(shí),Value屬性改變值本章目錄10滾動條事
6、件Scroll當(dāng)拖動滑塊時(shí)觸發(fā)Changed改變Value屬性時(shí)觸發(fā)例7.3計(jì)算0~18之間某個(gè)數(shù)階乘,數(shù)據(jù)由滾動條獲得。Max屬性為18,Min屬性為0,Value初值為0,SmallChange屬性為1,LargeChange屬性為3本章目錄1112Dimi%,a!,s!PrivateSubHScroll1_Change()s=1n=HScroll1.ValueIfn<>0ThenFori=1Tons=s*iNextiEndIfLabel2.Caption=n&"!="&sEndSub13例7.4設(shè)計(jì)一個(gè)調(diào)色板應(yīng)用程序,使用三個(gè)滾動條作為三種基本顏色的輸入工
7、具。(屬性設(shè)置)14DimredAsLong,greenAsLong,blueAsLongPrivateSubCommand1_Click()Text2.ForeColor=Text1.ForeColorEndSubPrivateSubCommand2_Click()Text2.BackColor=Text1.BackColorEndsubPrivateSubHScroll1_Change()red=HScroll1.Valuegreen=HScroll2.Valueblue=HScroll3.ValueText1.BackColor=RGB(red,green
8、,blue)EndSub