VB程序界面设计
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Print：打印文本
Show：显示窗体
Hide：隐藏窗体(不是卸载) Cls：清除运行时窗体中生成的图形和文本
返回目录
返回目录
5.2 常用标准控件－1
标准控件由系统提供，又称为内部控件。 1. 命令按钮-1
Caption属性：设置显示在按钮上的文本(标题)
快捷键作用：
Alt+S ＝单击“开始”按 钮
“座位号”文 本框失去焦点 时的事件响应 代码：检查座 位号是否输入， 是否是数字。
返回目录
5.2 常用标准控件－2
1. 单选按钮
常用属性是Caption和Value。 Value属性表示控件的状态，缺省值为False(未被选中)。 常用事件是Click 缺省时，直接放到窗体上的所有单选按钮自动构成一组。
Change(默认事件)：改变文本框内容时发生
KeyPress：在文本框中按键盘上的键时发生
Lostfocus：文本框失去焦点时发生 Gotfocus：文本框获得焦点时发生
焦点是接收用户鼠标或键盘输入的能力。
4. 框架
可用于对其他控件进行分组 常用属性是Caption，用于设置框架的标题文本 可先画出框架，再将其它控件画到框架中；或者“剪
5.1 应用基础－控件的基本操作
3. 改变控件大小
拖动选中控件四周的8个控制点
修改Width和Height的属性值
4. 删除、移动控件
删除：选中后按Delete键 移动：
拖动选中的控件
修改Top和Left的属性值
返回目录
5.1 应用基础－控件的基本操作
5. 复制控件
选中控件→“复制”→“粘贴”
（0-没有，1-水平，2-垂直，3-水平和垂直）
Locked：设置是否允许用户编辑文本框中的文本
取值True或 False (缺省值)
Passwordchar：设置密码字符
若MultiLine属来自百度文库为True，则PasswordChar属性无效
返回目录
5.2 常用标准控件－1
3. 文本框 -常用事件
返回目录
ShowInTaskbar：窗体运行时是否出现在任务栏中
5.1 应用基础－窗体的属性、事件与方法
2. 窗体的常用事件
Click：单击 Activate/Deactivate：激活/非激活
事件：能被对象识 别和响应的动作 例如，当A窗体变 成活动窗体时，A窗 体发生Activate事件； 当另一个窗体被激活 时，A窗体发生 Deactivate事件。
5.2 常用标准控件－1
[例5.3] 考生登录
Private Sub Txtcode_LostFocus() If Len(Txtcode.Text) < 8 Then
Lblsm.Caption = "准考证号必须输入,长度8位！" Txtcode.SetFocus “准考证号”文 ElseIf Not IsNumeric(Txtcode.Text) Then 本框失去焦点时 Lblsm.Caption = "准考证号必须是数字！" 的 事 件 响 应 代 码 ： 检查是否输入8位 Txtcode.SetFocus 数字。 Else IsNumeric()是 Lblsm.Caption = "" 判断数字函数 End If End Sub 返回目录
Max的缺省值为32767，Min的缺省值为0 LargeChange和SmallChange：
LargeChange 单击此 处时Value的变化值 SmallChange 单击此 处时Value的变化值
滚动条的主要事件是： Change：滚动框的位置改变时发生 Scroll：在拖动滚动条上的滚动框时发生
根据需要选择
控件数组由一组相同类型的控件组成，名称(Name
属性)、属性和事件过程都相同。
通过Index 属性可区分控件数组中的元素。 如果要从控件数组中撤消一个控件，需改变该控
件的Name属性设置，并删除Index属性设置。
返回目录
5.1 应用基础－窗体和控件的常用属性
属 Name Caption Font Enabled Visible BackColor、 ForeColor BorderColor、FillColor
Label1(Index).Caption = Int(Rnd * 10) '对应标签显示随机数 Label1(Index).FontSize = "24" Label1(Index).ForeColor = RGB(255, 0, 0) End Sub
返回目录
5.2 常用标准控件－1
[例5.1] 彩票开奖器
返回目录
5.2 常用标准控件－2
4. 定时器
定时器是应用程序中控制定时发生事件的控件。 常用属性：
Enabled：设置定时器是否可用，缺省为True Interval：设置定时器事件之间所间隔的毫秒数，
缺省值为0(Timer控件无效)，最大为65535
事件： Timer：以Interval属性指定的时间间隔发生
命令按钮的默认事件是Click(单击)，不支持双击事件。
返回目录
5.2 常用标准控件－1
2. 标签
标签控件主要用来显示说明文字，因此 一般不对其进事件处理。
Caption属性：设置在标签控件中显示的文本
Alignment属性：设置标签中文本的对齐方式
（0-左对齐，1-右对齐，2-居中）
BackStyle属性：设置标签控件背景是否透明
返回目录
5.2 常用标准控件－1
[例5.2] 同步显示
两个文本框： MultiLine设为True ScrollBars设为2
Private Sub Text1_Change() Text2.Text = Text1.Text End Sub Private Sub Command1_Click() '重新输入 Text1.Text = "" Text1.SetFocus End Sub
（0-透明，1-不透明） 例，标签“用户名 称”和“密码”是透明 的
返回目录
返回目录
5.2 常用标准控件－1
3. 文本框 -常用属性
Text：设置文本框中显示的内容
MultiLines：设置是否能输入或显示多行文本
取值True或 False (缺省值)
ScrollBars：设置多行文本框中是否出现滚动条
5.2 常用标准控件－1
[例5.3] 考生登录
Private Sub Txtname_LostFocus() If 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
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.1 应用基础－控件的基本操作
1. 在窗体上添加控件
返回目录
单击工具箱中的图标，在窗体上拖放出所需控件
双击工具箱中的图标(窗体中央出现一个缺省大小的控
件)，根据需要移动控件或更改控件的大小。
2. 选中窗体上的控件
选中一个控件：单击 选中多个控件：
Ctrl或Shift+单击 用鼠标拖放出一个矩形框
Load/Unload：装入/卸载
Resize：尺寸改变
Initialize：初始化(在Load事件后发生) KeyPress：按键 MouseDown/MouseUp/MouseOver：鼠标按下/松开/移动
返回目录
5.1 应用基础－窗体的属性、事件与方法
3. 窗体的常用方法
方法：对象要完成的操作(特殊子程序) 调用格式：[对象名称].<方法名称>
Alt+X ＝单击“Exit”按
5.2 常用标准控件－1
1. 命令按钮-2
Default属性：设置缺省的命令按钮。若设置为True，
按回车键相当于单击该按钮。
Cancel属性 ：设置缺省的取消按钮。若设置为True，
按Esc键相当于单击该按钮。
Index属性：设置按钮在控件数组中的编号。
返回目录
5.2 常用标准控件－1
[例5.3] 考生登录
Private Sub TxtSeat_LostFocus() If Len(Txtname.Text) = 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章 界面设计
学习目标：
掌握窗体设计
掌握标准控件的应用 掌握多重窗体的设计与应用 掌握响应鼠标与键盘事件 掌握菜单的设计与应用
第5章 界面设计
教学内容：
5.1 窗体与控件应用基础 5.2 常用标准控件及应用案例 5.3 多窗体程序的设计与应用 5.4 VB工程管理 5.5 鼠标与键盘事件 5.6 菜单的设计与应用
返回目录
性 名称 标题 字体 有效 可见
说
明
背景色、前景色 边框色、填充色
5.1 应用基础－窗体的属性、事件与方法
1. 窗体的属性
除Name、Caption、Font、Enabled、Visible、BackColor、 ForeColor、FillColor属性，常用属性还有： Appearance：设置窗体运行时是否以3D效果显示 BorderStyle：设置窗体的边框样式 ControlBox：设置窗口是否显示控制菜单按钮 Icon：设置窗体最小化时显示的图标 Height/Width：决定窗体的初始大小 Left/Top：根据屏幕的左上角确定窗体的位置 MaxButton/MinButton：是否具有“最大化”/“最小化”按 钮
切”框架外的控件，“粘贴”到框架中
5.2 常用标准控件－1
[例5.1] 彩票开奖器
Command1 控件数组 Private Sub Command1_Click(Index As Integer) Command1(Index).Enabled = False '使点击过的按钮不可用
Randomize (Time)
2. 复选框
常用属性是Caption和Value。 Value属性表示控件的状态：0 - 未被选中(缺省值)，
1 - 选定
复选框的主要事件也是Click
2 – 灰色
返回目录
5.2 常用标准控件－2
3. 滚动条 和
Value属性：滚动框在滚动条中的当前位置 Max和Min属性： Value的最大值和最小值。
返回目录
5.2 常用标准控件－1
[例5.3] 考生登录
If Len(Txtcode.Text) < 8 Then
Lblsm.Caption = "准考证号必须输入,长度8位！" Txtcode.SetFocus “正确无误”按 ElseIf Len(Txtname.Text) = 0 Then 钮 的 Click 事 件 响 Lblsm.Caption = "考生姓名必须输入" 应代码：各项信 Txtname.SetFocus ：Exit Sub 息均正确输入后 弹出一信息框。 ElseIf Len(TxtSeat.Text) = 0 Then Lblsm.Caption = "座位号必须输入" TxtSeat.SetFocus ：Exit Sub End If Lblsm.Caption = "" ： MsgBox "正确" 返回目录
Show：显示窗体
Hide：隐藏窗体(不是卸载) Cls：清除运行时窗体中生成的图形和文本
返回目录
返回目录
5.2 常用标准控件－1
标准控件由系统提供，又称为内部控件。 1. 命令按钮-1
Caption属性：设置显示在按钮上的文本(标题)
快捷键作用：
Alt+S ＝单击“开始”按 钮
“座位号”文 本框失去焦点 时的事件响应 代码：检查座 位号是否输入， 是否是数字。
返回目录
5.2 常用标准控件－2
1. 单选按钮
常用属性是Caption和Value。 Value属性表示控件的状态，缺省值为False(未被选中)。 常用事件是Click 缺省时，直接放到窗体上的所有单选按钮自动构成一组。
Change(默认事件)：改变文本框内容时发生
KeyPress：在文本框中按键盘上的键时发生
Lostfocus：文本框失去焦点时发生 Gotfocus：文本框获得焦点时发生
焦点是接收用户鼠标或键盘输入的能力。
4. 框架
可用于对其他控件进行分组 常用属性是Caption，用于设置框架的标题文本 可先画出框架，再将其它控件画到框架中；或者“剪
5.1 应用基础－控件的基本操作
3. 改变控件大小
拖动选中控件四周的8个控制点
修改Width和Height的属性值
4. 删除、移动控件
删除：选中后按Delete键 移动：
拖动选中的控件
修改Top和Left的属性值
返回目录
5.1 应用基础－控件的基本操作
5. 复制控件
选中控件→“复制”→“粘贴”
（0-没有，1-水平，2-垂直，3-水平和垂直）
Locked：设置是否允许用户编辑文本框中的文本
取值True或 False (缺省值)
Passwordchar：设置密码字符
若MultiLine属来自百度文库为True，则PasswordChar属性无效
返回目录
5.2 常用标准控件－1
3. 文本框 -常用事件
返回目录
ShowInTaskbar：窗体运行时是否出现在任务栏中
5.1 应用基础－窗体的属性、事件与方法
2. 窗体的常用事件
Click：单击 Activate/Deactivate：激活/非激活
事件：能被对象识 别和响应的动作 例如，当A窗体变 成活动窗体时，A窗 体发生Activate事件； 当另一个窗体被激活 时，A窗体发生 Deactivate事件。
5.2 常用标准控件－1
[例5.3] 考生登录
Private Sub Txtcode_LostFocus() If Len(Txtcode.Text) < 8 Then
Lblsm.Caption = "准考证号必须输入,长度8位！" Txtcode.SetFocus “准考证号”文 ElseIf Not IsNumeric(Txtcode.Text) Then 本框失去焦点时 Lblsm.Caption = "准考证号必须是数字！" 的 事 件 响 应 代 码 ： 检查是否输入8位 Txtcode.SetFocus 数字。 Else IsNumeric()是 Lblsm.Caption = "" 判断数字函数 End If End Sub 返回目录
Max的缺省值为32767，Min的缺省值为0 LargeChange和SmallChange：
LargeChange 单击此 处时Value的变化值 SmallChange 单击此 处时Value的变化值
滚动条的主要事件是： Change：滚动框的位置改变时发生 Scroll：在拖动滚动条上的滚动框时发生
根据需要选择
控件数组由一组相同类型的控件组成，名称(Name
属性)、属性和事件过程都相同。
通过Index 属性可区分控件数组中的元素。 如果要从控件数组中撤消一个控件，需改变该控
件的Name属性设置，并删除Index属性设置。
返回目录
5.1 应用基础－窗体和控件的常用属性
属 Name Caption Font Enabled Visible BackColor、 ForeColor BorderColor、FillColor
Label1(Index).Caption = Int(Rnd * 10) '对应标签显示随机数 Label1(Index).FontSize = "24" Label1(Index).ForeColor = RGB(255, 0, 0) End Sub
返回目录
5.2 常用标准控件－1
[例5.1] 彩票开奖器
返回目录
5.2 常用标准控件－2
4. 定时器
定时器是应用程序中控制定时发生事件的控件。 常用属性：
Enabled：设置定时器是否可用，缺省为True Interval：设置定时器事件之间所间隔的毫秒数，
缺省值为0(Timer控件无效)，最大为65535
事件： Timer：以Interval属性指定的时间间隔发生
命令按钮的默认事件是Click(单击)，不支持双击事件。
返回目录
5.2 常用标准控件－1
2. 标签
标签控件主要用来显示说明文字，因此 一般不对其进事件处理。
Caption属性：设置在标签控件中显示的文本
Alignment属性：设置标签中文本的对齐方式
（0-左对齐，1-右对齐，2-居中）
BackStyle属性：设置标签控件背景是否透明
返回目录
5.2 常用标准控件－1
[例5.2] 同步显示
两个文本框： MultiLine设为True ScrollBars设为2
Private Sub Text1_Change() Text2.Text = Text1.Text End Sub Private Sub Command1_Click() '重新输入 Text1.Text = "" Text1.SetFocus End Sub
（0-透明，1-不透明） 例，标签“用户名 称”和“密码”是透明 的
返回目录
返回目录
5.2 常用标准控件－1
3. 文本框 -常用属性
Text：设置文本框中显示的内容
MultiLines：设置是否能输入或显示多行文本
取值True或 False (缺省值)
ScrollBars：设置多行文本框中是否出现滚动条
5.2 常用标准控件－1
[例5.3] 考生登录
Private Sub Txtname_LostFocus() If 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
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.1 应用基础－控件的基本操作
1. 在窗体上添加控件
返回目录
单击工具箱中的图标，在窗体上拖放出所需控件
双击工具箱中的图标(窗体中央出现一个缺省大小的控
件)，根据需要移动控件或更改控件的大小。
2. 选中窗体上的控件
选中一个控件：单击 选中多个控件：
Ctrl或Shift+单击 用鼠标拖放出一个矩形框
Load/Unload：装入/卸载
Resize：尺寸改变
Initialize：初始化(在Load事件后发生) KeyPress：按键 MouseDown/MouseUp/MouseOver：鼠标按下/松开/移动
返回目录
5.1 应用基础－窗体的属性、事件与方法
3. 窗体的常用方法
方法：对象要完成的操作(特殊子程序) 调用格式：[对象名称].<方法名称>
Alt+X ＝单击“Exit”按
5.2 常用标准控件－1
1. 命令按钮-2
Default属性：设置缺省的命令按钮。若设置为True，
按回车键相当于单击该按钮。
Cancel属性 ：设置缺省的取消按钮。若设置为True，
按Esc键相当于单击该按钮。
Index属性：设置按钮在控件数组中的编号。
返回目录
5.2 常用标准控件－1
[例5.3] 考生登录
Private Sub TxtSeat_LostFocus() If Len(Txtname.Text) = 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章 界面设计
学习目标：
掌握窗体设计
掌握标准控件的应用 掌握多重窗体的设计与应用 掌握响应鼠标与键盘事件 掌握菜单的设计与应用
第5章 界面设计
教学内容：
5.1 窗体与控件应用基础 5.2 常用标准控件及应用案例 5.3 多窗体程序的设计与应用 5.4 VB工程管理 5.5 鼠标与键盘事件 5.6 菜单的设计与应用
返回目录
性 名称 标题 字体 有效 可见
说
明
背景色、前景色 边框色、填充色
5.1 应用基础－窗体的属性、事件与方法
1. 窗体的属性
除Name、Caption、Font、Enabled、Visible、BackColor、 ForeColor、FillColor属性，常用属性还有： Appearance：设置窗体运行时是否以3D效果显示 BorderStyle：设置窗体的边框样式 ControlBox：设置窗口是否显示控制菜单按钮 Icon：设置窗体最小化时显示的图标 Height/Width：决定窗体的初始大小 Left/Top：根据屏幕的左上角确定窗体的位置 MaxButton/MinButton：是否具有“最大化”/“最小化”按 钮
切”框架外的控件，“粘贴”到框架中
5.2 常用标准控件－1
[例5.1] 彩票开奖器
Command1 控件数组 Private Sub Command1_Click(Index As Integer) Command1(Index).Enabled = False '使点击过的按钮不可用
Randomize (Time)
2. 复选框
常用属性是Caption和Value。 Value属性表示控件的状态：0 - 未被选中(缺省值)，
1 - 选定
复选框的主要事件也是Click
2 – 灰色
返回目录
5.2 常用标准控件－2
3. 滚动条 和
Value属性：滚动框在滚动条中的当前位置 Max和Min属性： Value的最大值和最小值。
返回目录
5.2 常用标准控件－1
[例5.3] 考生登录
If Len(Txtcode.Text) < 8 Then
Lblsm.Caption = "准考证号必须输入,长度8位！" Txtcode.SetFocus “正确无误”按 ElseIf Len(Txtname.Text) = 0 Then 钮 的 Click 事 件 响 Lblsm.Caption = "考生姓名必须输入" 应代码：各项信 Txtname.SetFocus ：Exit Sub 息均正确输入后 弹出一信息框。 ElseIf Len(TxtSeat.Text) = 0 Then Lblsm.Caption = "座位号必须输入" TxtSeat.SetFocus ：Exit Sub End If Lblsm.Caption = "" ： MsgBox "正确" 返回目录