用户界面设计课件.pptVIP

第7章 用户界面设计;第7章 用户界面设计 ;7.1 常用控件;控件的分类： 内部控件：也称标准控件，由VB提供 ActiveX控件：扩展名为.OCX的独立文件 可插入对象：VB中能直接使用的对象;标准控件 内部控件 出现在工具箱上的控件，20个 ; 常用ActiveX控件所在的文件：; ActiveX控件与ActiveX DLL/EXE的区别： ActiveX控件： 有界面 用“工程/部件”命令加载 工具箱上有图标 ActiveXDLL/EXE： 没有界面 用“工程/引用”设置引用 工具箱上没有图标 3. 可插入对象 Windows应用程序的对象 可插入对象,可添加到工具箱上 同标准控件一样使用 例如：Microsoft Excel工作表;7.1.1单选钮、复选框和框架;Alignment属性 0：控件钮在左边，标题显示在右边。 1：控件钮在右边，标题显示在左边。 Style属性 0--Standard：标准方式 1--Graphical：图形方式;2．复选框（CheckBox） 属性 Caption属性 显示的文本 Value属性 检查框(整型) 0--vbUnchecked：未被选定 1--vbChecked：选定 2--vbGrayed：灰色，禁止选择 事件 click; 例7.1 用单选钮和检查框设置文本框的字体。;Private Sub Check1_Click() Text1.Font.Bold = Not Text1.Font.Bold End Sub Private Sub Check2_Click() Text1.Font.Italic = Not Text1.Font.Italic End Sub Private Sub Check3_Click() Text1.Font.StrikeThrough = Not Text1.Font.Strikethrough End Sub Private Sub Check4_Click() Text1.Font.Underline = Not Text1.Font.Underline End Sub Private Sub Option1_Click() Text1.Font.Name = 宋体 End Sub Private Sub Option2_Click() Text1.Font.Name = 黑体 End Sub;3.框架(Frame) 如果想把窗体上的控件分组，使用框架是一个常用的选择，框架是ＶＢ向程序员提供的少数可以作为容器的控件之一。; 框架; 例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