用户界面设计

《用户界面设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第7章用户界面设计7.1常用控件7.2多重窗体7.3鼠标和键盘7.4综合应用本章目录17.1常用控件7.1.1单选按钮、复选框和框架1.单选按钮(OptionButton)单选按钮以组的形式出现，允许选择一项。重要属性Caption属性按钮上显示的文本Value属性表示单选按钮的状态：True——被选定False——未被选定重要事件Click事件单击后使Value属性为True本章目录2Value属性值为整型，表示复选框的状态：0——vbUnchecked未选定1——vbChecked被选定2——vbGrayed灰色，并显示一个选中标记。重要事件Click事件2

2、.复选框(CheckBox)例7.1通过单选按钮和复选框设置文本框的字体本章目录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属性框架上的标题文本框架可以响应Click和DoubleClick事件，但一般不需要编写事件过程。例7.2框架用法示例本章目录67PrivateSubCommand1_Click()Lis

4、t1.ClearIfOption1ThenList1.AddItem"联想"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滚动条和进度条滚动条(ScrollBar)通常附在窗体上协助观察数据或确定位置，也可作为数据输入工具。进度条(ProgressBar)用来指示事务处理的进度。滚动条有水平和垂直两种进度条没有水平垂直之分本章目录9滚动条属性Value滑块当前位置的值(缺省为0)Min滑块最小位置值(缺省为0)Max滑块最大位置值SmallChange单击滚动条两端的箭头时，Value属性(滑块位置)改变值LargeChange单击滚动条的空白区域时，Value属性改变值本章目录10滚动条事

6、件Scroll当拖动滑块时触发Changed改变Value属性时触发例7.3计算0~18之间某个数阶乘，数据由滚动条获得。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设计一个调色板应用程序，使用三个滚动条作为三种基本颜色的输入工

7、具。(属性设置)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