第6章 Visual Basic窗体和常用控件的使用

用属性
● 见课本P124
●
Icon属性的使用
3.窗体的事件 3.窗体的事件
1、Load事件和Unload事件 2、Activate(活动事件)和Deactivate(非活动事件) 3、Resize事件
4. 窗体的方法及操作语句
1）Load语句 Load语句的作用是将一个窗体装入内存，但并不显示窗体 ，其语法格式为： Load 窗体名称 2）Unload语句(P176) Unload语句的功能与Load语句相反，是将窗体从内存中删 除。Unload语句的语法格式为： Unload 窗体名称 卸载后的窗体，由于在内存中已不复存在，故除非重新加载 ，否则不能再做任何引用。
常用标准控件－命令按钮 常用标准控件－
命令按钮 CommandButton
返回目录
快捷键作用（访问热键）： 快捷键作用（访问热键）： Alt+S ＝单击“开始”按 单击“开始” 钮 Alt+X ＝单击“Exit”按钮 单击“ 按钮
命令按钮 CommandButton－常用事件： 常用事件：
命令按钮的默认事件是Click( 单击 命令按钮的默认事件是 Click(单击 ) ， 不支持双击 单击) 事件。 事件。
第6章 窗体和常用控件的使用
◆窗体及窗体设计 窗体及窗体设计 ◆文本框、标签框、命令按钮的使用 文本框、 文本框 标签框、 单选按钮、复选框、 ◆单选按钮、复选框、框架控件的使用 ◆列表框和组合框的使用 ◆滚动条的使用 ◆计时器的使用
窗体及窗体设计
1. 添加窗体
其方法有： 其方法有：
工程→添加窗体” 1）选择 “工程→添加窗体” 菜单命令。 菜单命令。 单击工具条上的“ 2）单击工具条上的“添加 窗体” 窗体”按钮 。 右击“ 3）右击“工程资源管理器 窗口” 选择快捷菜单“ 窗口”，选择快捷菜单“添加 |添加窗体”命令。 添加窗体”命令。
（ 4 ） Locked ： 设置是否允许用户编辑文本框中的 Locked： 文本。 取值True（锁定对文本框的修改功能， 文本。 取值True（锁定对文本框的修改功能， 即不能编辑文本框） 缺省值) 即不能编辑文本框）或 False (缺省值) （5）Passwordchar：设置密码字符 Passwordchar： 默认值为空， 默认值为空，即用户在文本框里键入什么字 符就显示什么字符。若取非空值，如取“ 符就显示什么字符。若取非空值，如取“*”号， 则用户正常键入字符，显示的是星号串。 则用户正常键入字符，显示的是星号串。
3. 文本框 －常用方法： 常用方法：
SetFocus是文本框中较常用的方法 格式为： SetFocus是文本框中较常用的方法，格式为： 是文本框中较常用的方法， [对象名.] SetFocus 对象名. 该方法可以把输入光标（焦点） 该方法可以把输入光标（焦点）移到指定的文本框中
返回目录
举例： 举例：
常用标准控件－应用举例1 常用标准控件－应用举例1
[例] 同步显示
两个文本框： 两个文本框： MultiLine设为 MultiLine设为True 设为True 设为2 ScrollBars设为 ScrollBars设为2
Private Sub Text1_Change() Text1 Text2 Text2.Text = Text1.Text Text1 End Sub Private Sub Command1_Click() '重新输入 Command1 Text1 Text1.Text = "" Text1 Text1.SetFocus End Sub
Private Sub fx2_Click() If fx2.Value = 1 Then wb1.FontItalic = True Else wb1.FontItalic = False End If End Sub Private Sub fx3_Click() If fx3.Value = 1 Then wb1.FontBold = True Else wb1.FontBold = False End If End Sub
返回目录
（4）Autosize属性：设置标签是否自动改变大小以显 Autosize属性 属性： 示其全部内容。取值为True或False。举例说明。 示其全部内容。取值为True或False。举例说明。
2. 标签的主要事件： 标签的主要事件： Label 控件可以接受单击（Click）、双 控件可以接受单击（ ）、双 ）、 击（DblClick）和改变（Change）事件。但 ）和改变（ ）事件。 Label 控件的主要作用是显示文本，一般不需 控件的主要作用是显示文本， 要编写事件过程代码。 要编写事件过程代码
返回目录
常用标准控件－应用举例2 常用标准控件－应用举例2
[例] 考生登录 例
Private Sub Txtcode_LostFocus() If Len(Txtcode.Text) < 8 Then Lblsm.Caption = "准考证号必须输入 长度 位！" 准考证号必须输入,长度 准考证号必须输入 长度8位 Txtcode.SetFocus End If End Sub
3）Show方法－显示窗体 Show方法的语法格式为： [窗体名称.]Show 4）Hide方法—隐藏窗体 语法格式： [窗体名称.]Hide 5) Move方法—移动窗体或控件（见图片） 语法格式： 对象.Move left, top, width, height
5. 设置启动窗体
在具有多个窗体的应用程序中，各个窗体之间是并列关 系。程序运行时，首先执行的窗体默认为第一个创建的窗口 Form1，称为启动窗体。根据需要可以指定其他窗体或Main 子过程为启动对象。选择“工程→工程属性”命令。 选择“工程→工程属性”命令。
二、复选框
－ CheckBox
复选框与单选按钮不同， 复选框与单选按钮不同 ， 在同一容器中的复选 框没有排它性，可对每个复选框做出独立的选择。 框没有排它性，可对每个复选框做出独立的选择。
1.复选框－常用属性： 复选框－常用属性：
1）Caption属性：与单选按钮相同。 ） 属性： 属性 与单选按钮相同。 2）Value属性：用来表示复选框的状态。取值有： ） 属性： 属性 用来表示复选框的状态。取值有： 0 - 未被选中 缺省值 未被选中(缺省值 缺省值) 1 - 选定 2 – 灰色 Style属性 与单选按钮相同。 属性： 3）Style属性：与单选按钮相同。
常用标准控件－文本框TextBox 常用标准控件－文本框TextBox
2. 文本框 －常用事件 ：
（1）Change(默认事件)：改变文本框内容时发生 Change(默认事件 默认事件) KeyPress： （2）KeyPress：在文本框中按键盘上的键时发生 （3）Lostfocus：文本框失去焦点时发生 Lostfocus： Gotfocus： （4）Gotfocus：文本框获得焦点时发生 焦点是接收用户鼠标或键盘输入的能力。 焦点是接收用户鼠标或键盘输入的能力。 Click： （5）Click：
Private Sub Text1_Change() Text2.Text = UCase(Text1.Text) End Sub
常用标准控件－标签Label 常用标准控件－标签Label
1. 标签 常用属性： 常用属性：
标签控件主要用来显示说明文字， 标签控件主要用来显示说明文字，因 此一般不对其进行事件处理。 此一般不对其进行事件处理。
常用标准控件－文本框TextBox 常用标准控件－文本框TextBox
标准控件由系统提供，又称为内部控件。 标准控件由系统提供，又称为内部控件。 工具箱中的控件均为内部控件） （工具箱中的控件均为内部控件）。 1. 文本框 －常用属性 ：
（1）Text：设置文本框中显示的内容 Text： （2）MultiLine：设置是否能输入或显示多行文本 MultiLine： 取值True或 缺省值) 取值True或 False (缺省值) （3）ScrollBars：设置多行文本框中是否出现滚动 ScrollBars： 条 返回目录 没有， 水平， 垂直， 水平和垂直） （0-没有，1-水平，2-垂直，3-水平和垂直） ScrollBars属性只有在 ScrollBars属性只有在MultiLine取True时才起作用 属性只有在MultiLine取True时才起作用
（1）Caption属性：设置在标签控件中显示的文本 Caption属性 属性： （2）Alignment属性：设置标签中文本的对齐方式 Alignment属性 属性： （0-左对齐，1-右对齐，2-居中） 左对齐， 右对齐， 居中） （3）BackStyle属性：设置标签控件背景是否透明 BackStyle属性 属性： （0-透明，1-不透明为默认值） 透明， 不透明为默认值） 标签“ 例 ： 标签 “ 用户名 称 ” 和 “ 密码 ” 是透 明的
2.复选框－常用事件：也是Click 复选框－常用事件：也是Click
每单击一次复选框都产生一个Click事件。 事件。 每单击一次复选框都产生一个 事件
复选框举例
1. 设计用户界面： 设计用户界面： 2. 编写代码： 编写代码：
Private Sub fx1_Click() If fx1.Value = 1 Then wb1.FontUnderline = True Else wb1.FontUnderline = False End If End Sub
文本框的3个动态属性 文本框的 个动态属性 SelLength、SelStart、SelText为文本框的 个动态 为文本框的3个动态 、 、 为文本框的 属性，不在属性窗口，只能在程序执行时动态设置。 属性，不在属性窗口，只能在程序执行时动态设置。 用来记录在文本框中进行文本的选择操作。 用来记录在文本框中进行文本的选择操作。 SelLength：记录用户在文本框中选定的字符数。 ：记录用户在文本框中选定的字符数。 SelStart：记录用户选定文本的起始位置。第一个字 ：记录用户选定文本的起始位置。 符的位置以0计算 后面的以此类推。 计算， 符的位置以0计算，后面的以此类推。 SelText：记录用户选定文本的内容。 ：记录用户选定文本的内容。 Private Sub Text2_Click() Text2.Text = Text1.SelText Print Text1.SelStart Print Text1.SelLength End Sub