Visual Basic程序设计 龚为琨 第3章 文本控件、消息框和输入框.pptVIP

第3章 文本控件、消息框和输入框 3.1 标签、文本框应用举例 3.2 文本框(TextBox)控件 3.3 标签(Label)控件 3.4 消息对话框和输入对话框应用举例 3.5 小结 3.6 练习题 3.7 上机实习题 3.1 标签、文本框应用举例 我们先通过一个例题说明文本框和标签控件的应用。 【例3.1】 客房登记表。要求登记房客的姓名、性别、证件号码、登记房号、入住时间和退房时间。 操作步骤如下： 1) 创建用户界面 (1) 单击主菜单的“文件”，选取“新建工程(N)，创建一个窗体。 (2) 在窗体上摆放7个标签(Label)控件，7个文本(Text)框控件和3个命令按钮(Command)控件。调整它们的位置和大小至合适状态，如图3-1所示。 2) 设置窗体和控件的属性 按表3-1设置窗体和控件的属性值。 3) 编写事件过程代码 编写3个命令按钮的单击事件过程，单击Command1完成将Text1～Text6上的内容显示在Text7文本框。打开代码器窗口，输入以下程序代码： Private Sub Command1_Click() Text7.Text = 姓名: Text1 vbCrLf Text7.Text = Text7 性别: Text2 vbCrLf Text7.Text = Text7 证件号码: Text3 vbCrLf Text7.Text = Text7 登记房号: Text4 vbCrLf Text7.Text = Text7 入住时间: Text5 vbCrLf Text7.Text = Text7 退房时间: Text6 vbCrLf End Sub 注意：在Command1_Click()过程中，“”是VB字符串运算符，它用来连接两个字符串，在使用时，其两边至少要留一个空格。vbCrLf是VB常量，相当于Chr(13) Chr(10)，代表回车换行。Text1即Text1. Text。 Command2__Click()过程中，7个文本框的Text属性值为空。 Private Sub Command2_Click() Text1 = Text2 = Text3 = Text4 = Text5 = Text6 = Text7 = Text1.SetFocus End Sub 4) 运行程序 (1) 单击按钮运行程序后，出现如图3-2所示的界面。 ? (2) 在各文本框中输入相应的内容，单击“登记”按钮，结果如图3-3所示。 (3) 单击“清除”按钮，又出现如图3-2所示的界面。 (4) 单击“退出”按钮，结束程序运行。 注意：在文本框输入内容时，可通过鼠标选择文本框，也可通过“Tab”键选择，每按一下“Tab”键，焦点自动跳到下一个文本框。 在这个例子中，涉及到标签和文本框各自的一些属性(Caption、Font、Alignment、BorderStyle、Text)和方法(SetFocus)。另外，它们还有其他的属性、方法和事件。本章将介绍文本框和标签控件的特点及使用方法。 3.2 文本框(TextBox)控件 文本框(TextBox)控件是用户与应用程序交换信息的桥梁。用户可通过文本框输入变量的初值、查询的信息以及程序继续运行时所需要的数据，并传递给应用程序，应用程序也可以将运行结果在文本框上显示，供用户查阅。文本框中的文本可以编辑，如进行选择、删除、复制、粘贴、替换和修改等操作，也可以通过将Locked属性设置为True，使它成为只读的。文本框还可以实现密码输入、多行显示和自动换行等功能。 3.2.1 文本框控件的特殊属性 1．Text属性 Text属性用于设置文本框内容，其值可以在设计阶段在属性窗口中设置，或利用赋值语句为该属性赋值，例如：Text1.Text= 文本框控件，也可以在程序运行时从键盘输入值。 该属性的值为字符类型。缺