vb用户界面设计课件

《vb用户界面设计课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、用户界面设计常用控件通用对话框菜单设计多重窗体鼠标和键盘应用程序向导综合应用常用控件一、单选按钮、复选框和框架1、单选按钮(OptionButton)重要属性Caption按钮上显示的文本Value表示单选按钮的状态：True-----被选定False-----未被选定重要事件Click事件单击后使Value属性为True例：单选按钮示例PrivateSubOption1_Click()Label1.Caption="教师"EndSubPrivateSubOption2_Click()Label1.Caption="学生"EndSubPrivateSub

2、Option3_Click()Label1.Caption="其他"EndSubValue属性值为整型，表示复选框的状态：0——vbUnchecked未选定1——vbChecked被选定2——vbGrayed灰色并显示一个选中标记。2、复选框(CheckBox)例：复选框示例PrivateSubCheck1_Click()IfCheck1.Value=1ThenLabel1.Caption="喜欢学习"ElseLabel1.Caption="不喜欢学习"EndIfEndSubPrivateSubCommand1_Click()Text1.Font.Nam

3、e=IIf(Option1,"宋体","黑体")Text1.Font.Bold=IIf(Check1=1,True,False)Text1.Font.Italic=IIf(Check2=1,True,False)Text1.Font.Strikethrough=IIf(Check3=1,True,False)Text1.Font.Underline=IIf(Check4=1,True,False)EndSub例：通过单选按钮和复选框设置文本框的字体3、框架(Frame)先建立框架，然后将各控件放置其中。Caption属性框架上的标题文本例1：框架用法示例

4、PrivateSubCommand1_Click()EndEndSubPrivateSubList1_Click()Text1.Text=List1.TextEndSub例2：摆出如下效果即可，具体代码实现在下一页。PrivateSubCheck1_Click()Combo1.Enabled=NotCombo1.EnabledText1.Enabled=NotText1.EnabledEndSubPrivateSubCheck2_Click()Option1.Enabled=NotOption1.EnabledOption2.Enabled=NotOpt

5、ion2.EnabledEndSubPrivateSubCombo1_LostFocus()‘当焦点离开组合框时组合框的LostFocus事件被触发，’利用该事件过程将用户输入的计算机品牌添加到组合框中。‘添加到组合框的新项目不能永久保存，下次运行该程序中‘看不到上次保存的项目。flag=FalseFori=0ToCombo1.ListCount-1IfCombo1.List(i)=Combo1.TextThenflag=TrueExitForEndIfNextIfNotflagThenCombo1.AddItemCombo1.TextEndIfEndS

6、ubPrivateSubCommand1_Click()IfCheck1.Value=1ThenList1.AddItemCombo1List1.AddItemText1EndIfIfCheck2.Value=1ThenIfOption1ThenList1.AddItem"Windows2000"ElseList1.AddItem"Windows98"EndIfEndIfEndSubPrivateSubForm_Load()'Combo1中的选项已在设计状态通过List属性设计Combo1.Enabled=FalseText1.Enabled=False

7、Option1.Enabled=FalseOption2.Enabled=FalseEndSub二、滚动条和进度条滚动条(ScrollBar)通常附在窗体上协助观察数据或确定位置，也可作为数据输入工具。进度条(ProgressBar)用来指示事务处理的进度。滚动条有水平和垂直两种；进度条没有水平垂直之分1、滚动条属性Value滑块当前位置的值(缺省为0)Min滑块最小位置值(缺省为0)Max滑块最大位置值SmallChange单击滚动条两端的箭头时，Value属性(滑块位置)改变值LargeChange单击滚动条的空白区域时，Value属性改变值2、滚动

8、条事件Scroll当拖动滑块时触发Changed改变Value属性时触发例1:计