第7篇 用户界面设计.ppt

第7章 用户界面设计 第7章 用户界面设计 7.1 常用控件 7.2 通用对话框 7.3 菜单设计 7.4 多重窗体 7.5 鼠标和键盘 7.6 应用程序向导 7.7 综合应用 7.1 常用控件 控件的分类： 内部控件：也称标准控件，由VB提供 ActiveX控件：扩展名为.OCX的独立文件 可插入对象：VB中能直接使用的对象 7.1.1单选钮、复选框和框架 1．单选按钮 属性 Caption属性 文本标题。 Value属性 单选钮(逻辑型) True：选定 False：未选定 事件 click Alignment属性 0：控件钮在左边，标题显示在右边。 1：控件钮在右边，标题显示在左边。 Style属性 0--Standard：标准方式 1--Graphical：图形方式 2．复选框（CheckBox） 属性 Caption属性 显示的文本 Value属性 检查框(整型) 0--vbUnchecked：未被选定 1--vbChecked：选定 2--vbGrayed：灰色，禁止选择 事件 click 例7.1 用单选钮和检查框设置文本框的字体。 3.框架(Frame) 如果想把窗体上的控件分组，使用框架是一个常用的选择，框架是ＶＢ向程序员提供的少数可以作为容器的控件之一。 1.属性 Caption属性 框架标题 可以为空（矩形） 2.事件：Click、DblClick事件 一般不需要编写框架的事件过程。 例7.2 框架用法示例 其它常用属性： Enabled属性 框架内的所有控件将随框架一起移动、显示、消失和屏蔽。当框架的Enabled属性设为False时，程序运行时该框架在窗体中的标题为灰色，表示框架内所有控件均被屏蔽，用户无法对其进行操作。 Visible属性 若框架的Visible属性为False，则在程序执行期间，框架及其所有的控件被隐藏起来。 7.1.2 滚动条和进度条 滚动条属性 滚动条事件 例7.3计算0~18之间某个数阶乘，数据由滚动条获得。 Max属性为18 Min属性为0 Value初值为0 SmallChange属性为1 LargeChange属性为3 Private Sub HScroll1_Change() Dim i As Integer, s As Double s = 1 n = HScroll1.Value If n 0 Then For i = 1 To n s = s * i Next i End If Label2.Caption = n ! = Label3.Caption = s End Sub 例7.4 设计一个调色板应用程序，使用三个滚动条作为三种基本颜色的输入工具。 Dim Red, Green, Blue As Long Private Sub Command1_Click() Text1.BackColor = Label1.BackColor End Sub Private Sub Command2_Click() Text1.ForeColor = Label1.BackColor End Sub Private Sub HScroll1_Change() Red = HScroll2.Value Green = HScroll1.Value Blue = HScroll3.Value Label1.BackColor = Red + Green * 256 + Blue * 256 * 256 End Sub Private Sub HScroll2_Change() Red = HScroll2.Value Green = HScroll1.Value Blue = HScroll3.Value Label1.BackColor = Red + Green * 256 + Blue * 256 * 256 End Sub Private Sub HScroll3_Change() Red = HScroll2.Value Green = HSc