vb程序界面设计

《vb程序界面设计》由会员分享，可在线阅读，更多相关《vb程序界面设计（81页珍藏版）》请在金锄头文库上搜索。

1、第5章 界面设计,学习目标： 掌握窗体设计 掌握标准控件的应用 掌握多重窗体的设计与应用 掌握响应鼠标与键盘事件 掌握菜单的设计与应用,第5章 界面设计,教学内容： 5.1 窗体与控件应用基础 5.2 常用标准控件及应用案例 5.3 多窗体程序的设计与应用 5.4 VB工程管理 5.5 鼠标与键盘事件 5.6 菜单的设计与应用,5.1 应用基础控件的基本操作,1. 在窗体上添加控件 单击工具箱中的图标，在窗体上拖放出所需控件 双击工具箱中的图标(窗体中央出现一个缺省大小的控件)，根据需要移动控件或更改控件的大小。 2. 选中窗体上的控件 选中一个控件：单击 选中多个控件： Ctrl或Shift

2、+单击 用鼠标拖放出一个矩形框,返回目录,5.1 应用基础控件的基本操作,3. 改变控件大小 拖动选中控件四周的8个控制点 修改Width和Height的属性值 4. 删除、移动控件 删除：选中后按Delete键 移动： 拖动选中的控件 修改Top和Left的属性值,返回目录,5.1 应用基础控件的基本操作,5. 复制控件 选中控件“复制”“粘贴”,返回目录,控件数组由一组相同类型的控件组成，名称(Name属性)、属性和事件过程都相同。 通过Index 属性可区分控件数组中的元素。 如果要从控件数组中撤消一个控件，需改变该控件的Name属性设置，并删除Index属性设置。,5.1 应用基础窗体

3、和控件的常用属性,返回目录,5.1 应用基础窗体的属性、事件与方法,1. 窗体的属性 除Name、Caption、Font、Enabled、Visible、BackColor、 ForeColor、FillColor属性，常用属性还有： Appearance：设置窗体运行时是否以3D效果显示 BorderStyle：设置窗体的边框样式 ControlBox：设置窗口是否显示控制菜单按钮 Icon：设置窗体最小化时显示的图标 Height/Width：决定窗体的初始大小 Left/Top：根据屏幕的左上角确定窗体的位置 MaxButton/MinButton：是否具有“最大化”/“最小化”按钮

4、ShowInTaskbar：窗体运行时是否出现在任务栏中,返回目录,5.1 应用基础窗体的属性、事件与方法,2. 窗体的常用事件 Load/Unload：装入/卸载 Click：单击 Activate/Deactivate：激活/非激活 Resize：尺寸改变 Initialize：初始化(在Load事件后发生) KeyPress：按键 MouseDown/MouseUp/MouseOver：鼠标按下/松开/移动,返回目录,例如，当A窗体变成活动窗体时，A窗体发生Activate事件；当另一个窗体被激活时，A窗体发生Deactivate事件。,5.1 应用基础窗体的属性、事件与方法,3. 窗体

5、的常用方法 方法：对象要完成的操作(特殊子程序) 调用格式：对象名称. Print：打印文本 Show：显示窗体 Hide：隐藏窗体(不是卸载) Cls：清除运行时窗体中生成的图形和文本,返回目录,5.2 常用标准控件1,标准控件由系统提供，又称为内部控件。 1. 命令按钮-1 Caption属性：设置显示在按钮上的文本(标题),返回目录,快捷键作用： Alt+S 单击“开始”按钮 Alt+X 单击“Exit”按钮,5.2 常用标准控件1,1. 命令按钮-2 Default属性：设置缺省的命令按钮。若设置为True，按回车键相当于单击该按钮。 Cancel属性 ：设置缺省的取消按钮。若设置为T

6、rue，按Esc键相当于单击该按钮。 Index属性：设置按钮在控件数组中的编号。 命令按钮的默认事件是Click(单击)，不支持双击事件。,返回目录,5.2 常用标准控件1,2. 标签 Caption属性：设置在标签控件中显示的文本 Alignment属性：设置标签中文本的对齐方式 （0-左对齐，1-右对齐，2-居中） BackStyle属性：设置标签控件背景是否透明 （0-透明，1-不透明）,返回目录,例，标签“用户名称”和“密码”是透明的,标签控件主要用来显示说明文字，因此一般不对其进事件处理。,5.2 常用标准控件1,3. 文本框 -常用属性 Text：设置文本框中显示的内容 Mult

7、iLines：设置是否能输入或显示多行文本 取值True或 False (缺省值) ScrollBars：设置多行文本框中是否出现滚动条 （0-没有，1-水平，2-垂直，3-水平和垂直） Locked：设置是否允许用户编辑文本框中的文本 取值True或 False (缺省值) Passwordchar：设置密码字符 若MultiLine属性为True，则PasswordChar属性无效,返回目录,5.2 常用标准控件1,3. 文本框 -常用事件 Change(默认事件)：改变文本框内容时发生 KeyPress：在文本框中按键盘上的键时发生 Lostfocus：文本框失去焦点时发生 Gotfoc

8、us：文本框获得焦点时发生 焦点是接收用户鼠标或键盘输入的能力。 4. 框架 可用于对其他控件进行分组 常用属性是Caption，用于设置框架的标题文本 可先画出框架，再将其它控件画到框架中；或者“剪切”框架外的控件，“粘贴”到框架中,返回目录,5.2 常用标准控件1,例5.1 彩票开奖器 Private Sub Command1_Click(Index As Integer) Command1(Index).Enabled = False 使点击过的按钮不可用 Randomize (Time) Label1(Index).Caption = Int(Rnd * 10) 对应标签显示随机数 L

9、abel1(Index).FontSize = “24“ Label1(Index).ForeColor = RGB(255, 0, 0) End Sub,返回目录,5.2 常用标准控件1,例5.1 彩票开奖器 Private Sub Cmd_Redo_Click() 点击ReDo按钮 For i = 0 To 3 Command1(i).Enabled = True Label1(i).Caption = “ Next i End Sub Private Sub Cmd_Exit_Click() 点击Exit按钮 End End Sub,返回目录,5.2 常用标准控件1,例5.2 同步显示

10、Private Sub Text1_Change() Text2.Text = Text1.Text End Sub Private Sub Command1_Click() 重新输入 Text1.Text = “ Text1.SetFocus End Sub,返回目录,两个文本框： MultiLine设为True ScrollBars设为2,5.2 常用标准控件1,例5.3 考生登录 If Len(Txtcode.Text) 8 Then Lblsm.Caption = “准考证号必须输入,长度8位！“ Txtcode.SetFocus ElseIf Len(Txtname.Text) =

11、0 Then Lblsm.Caption = “考生姓名必须输入“ Txtname.SetFocus ：Exit Sub ElseIf Len(TxtSeat.Text) = 0 Then Lblsm.Caption = “座位号必须输入“ TxtSeat.SetFocus ：Exit Sub End If Lblsm.Caption = “ ： MsgBox “正确“,返回目录,“正确无误”按钮的Click事件响应代码：各项信息均正确输入后弹出一信息框。,5.2 常用标准控件1,例5.3 考生登录 Private Sub Txtcode_LostFocus() If Len(Txtcode.

12、Text) 8 Then Lblsm.Caption = “准考证号必须输入,长度8位！“ Txtcode.SetFocus ElseIf Not IsNumeric(Txtcode.Text) Then Lblsm.Caption = “准考证号必须是数字！“ Txtcode.SetFocus Else Lblsm.Caption = “ End If End Sub,返回目录,“准考证号”文本框失去焦点时的事件响应代码：检查是否输入8位数字。,IsNumeric()是判断数字函数,5.2 常用标准控件1,例5.3 考生登录 Private Sub Txtname_LostFocus() I

13、f Len(Txtcode.Text) 8 Or Not IsNumeric(Txtcode.Text) Then Txtcode.SetFocus ElseIf Len(Txtname.Text) = 0 Then Lblsm.Caption = “考生姓名必须输入！“ Txtname.SetFocus Else Lblsm.Caption = “ End If End Sub,返回目录,“姓名”文本框失去焦点时的事件响应代码：检查姓名是否输入。,5.2 常用标准控件1,例5.3 考生登录 Private Sub TxtSeat_LostFocus() If Len(Txtname.Text

14、) = 0 Then Txtname.SetFocus ElseIf Len(TxtSeat.Text) = 0 Then Lblsm.Caption = “座位号必须输入！“ TxtSeat.SetFocus ElseIf Not IsNumeric(TxtSeat.Text) Then Lblsm.Caption = “座位号必须是数字“ TxtSeat.SetFocus Else Lblsm.Caption = “ End If End Sub,返回目录,“座位号”文本框失去焦点时的事件响应代码：检查座位号是否输入，是否是数字。,5.2 常用标准控件2,1. 单选按钮 常用属性是Capt

15、ion和Value。 Value属性表示控件的状态，缺省值为False(未被选中)。 常用事件是Click 缺省时，直接放到窗体上的所有单选按钮自动构成一组。 2. 复选框 常用属性是Caption和Value。 Value属性表示控件的状态：0 - 未被选中(缺省值)， 1 - 选定 2 灰色 复选框的主要事件也是Click,返回目录,5.2 常用标准控件2,3. 滚动条 和 Value属性：滚动框在滚动条中的当前位置 Max和Min属性： Value的最大值和最小值。 Max的缺省值为32767，Min的缺省值为0 LargeChange和SmallChange： 滚动条的主要事件是： C

16、hange：滚动框的位置改变时发生 Scroll：在拖动滚动条上的滚动框时发生,返回目录,5.2 常用标准控件2,4. 定时器 定时器是应用程序中控制定时发生事件的控件。 常用属性： Enabled：设置定时器是否可用，缺省为True Interval：设置定时器事件之间所间隔的毫秒数， 缺省值为0(Timer控件无效)，最大为65535 事件： Timer：以Interval属性指定的时间间隔发生 (Enabled属性设置为True) 注：定时器控件只在设计时出现在窗体上,返回目录,5.2 常用标准控件2,例5.4 简易计算器 Private Sub Command1_Click() 计算 a = Val(Text1.Text): b = Val(Text2.Text) If Option1 Then Text3.Text = a + b If Option2 Then Text3.Text = a - b If Option3