VisualBasic教案第45、46课时.doc

4.2 制作注册窗体 【教学目标】 掌握文本框控件的常用属性、常用方法和常用事件； 熟悉为文本框控件设置访问键的方法。 【教学重点】 【教学难点】 【教具】 多媒体、计算机 【教学过程】 一、复习 1、标签控件的常用属性有哪些？ 二、导入 上一章讨论了Visual Basic中标签控件的常用属性、常用方法、常用事件以及控件的基本操作。本节课我们来通过制作小程序，学习文本框控件的属性、方法、事件及如何将文本框控件设置访问键。 三、自主学习 1、文本框的常用属性。 除拥有控件的通用属性哇塞，文本框控件还具有以下常用属性。 1）MaxLength：返回或设置一个值，指出在文本框控件中能够输入的字符是否有一个最大值，如果是：则指定能够输入的字符的最大数量。在DBCS系统中，每个字符能够取两个字节而不是一个字节，以此来限制用户能够输入的字符的数量。 2）MultiLine：返回或设置一个布尔值，决定文本框是否可以接受或显示多行文本。若设置为TRUE，则文本框允许多行文本，此时可在文本框内用Alignment属性设置文本的对齐方式；若设置为False（默认值），则忽略回车符并将数据限制在一行内，此时Alignment属性不起作用。该属性在运行时是只读的。 3）PasswordChar：返回或设置一个值，指示所输入的字符或占位符在文本框控件中是否要显示出来。例如，在用文本框输入密码时，通常将该属性设置为“*”。若MultiLine属性设置True，则设置PasswordChar属性将不起效果。 4）ScrollBasrs：返回或设置一个值，指示一个对象是有水平滚动条还是有垂直滚动条。该属性有以下4个取值。 vbSBNone-0（默认值）：无滚动条 vbHozontal-1：有水平滚动条 vbVertical-2：有垂直滚动条 vbBoth-3：同时有两种滚动条 5）SelLength、SelStar和SelText：这些属性用于对文本框中的文本进行选定操作。其中，SelLength属性返回或设置所选择的字符数；SelSTart属性返回设置所选择的文本的起始点，若未选中文本，则指出插入点的位置；SelText属性返回或设置包含当前所选择文本的字符串，若未选中字符，则为零长度字符串（“”） 6）TabIndex：返回或设置文本框访问Tab键的顺序。 7）TabStop：返回或设置一个值，指定用户是否可用Tab键来选定文本框。 8）Text：返回或设置文本框中得文本。 2、文本框的常用方法 SetFocus是文本框控件的一个常用方法，用于将焦点移至文本框控件，语法格式如下： Object.SetFocus 其中object表示文本框控件。 3、文本框常用事件 1）Change：当文本框的内容改变时发生此事件。 2）KeyDown和KeyUp：这些事件是当一个控件具有焦点时按下（KeyDown）或松开（KeyUp）一个键时发生，语法格式如下： Private Sub object_KeyDown ( Keycode As Integer , shift As Integer ) Private Sub object_KeyUp ( Keycode As Integer , shift As Integer ) 其中Keycode 是一个键代码，例如vbKeyF1白哦是F1键，vbKeyHome表示Home键。Shift 是该事件发生时响应Shift、Ctrl、Alt键的状态的一个整数。Shift值如下： 1表示shift键被按下 2表示ctrl键被按下 4表示Alt键被按下 3）KeyPress：当用户按下和松开一个ANSI键时发生此事件。语法格式如下： Private Sub object_KeyPress ( Keyascii As Integer ) 其中object表示文本框控件，keyascii是返回一个标准数字ANSI键代码的整数。Keyascii通过引用传递，对它进行改变可给文本框发送一个不同的的字符。若将keyascii改变为0时，可取消击键，这样一来控件便接收不到字符。 4、为文本框设置访问键 具体方法是：首先添加一个标签并在其Caption属性中通过字符指定一个访问键，然后添加一个文本框，这样标签的TabIndex属性比文本框的该属性小1，二标签不能接受焦点，使用访问键即可把焦点置于文本中。 四、合作探究 编程：Private Sub cmdcancel_click() Unload Me End Sub Private Sub cmdok_click() If txtusername.Text = Then MsgBox 用户名不能为空！, vbInformation + vbOKOnly txtusername.S