VB程序设计第二版第二章.ppt

1．文本框的属性 * （1）Text：用于设置或返回文本框中显示的内容。 （2）MultiLine：决定文本框是否能够接受和显示多行文本。True：可以输入或显示多行文本，且自动换行。False：忽略回车符并将数据限制在一行内。 该属性在运行时为只读。 * 在设计阶段，要在属性窗口的Text属性中输入文本时强制换行，需要按下“Ctrl+Enter”组合键； 在运行阶段，如果窗体上没有缺省按钮，则在文本框中按下回车键可以把光标移动到下一行，如果窗体上有缺省按钮，则必须按下“Ctrl+Enter”组合键才能移动到下一行。 如何输入多行文本： * （3）ScrollBars：决定文本框是否带滚动条。有以下4种选择： 0 – None：没有滚动条。 1 – Horizontal：只有水平滚动条。 2 – Vertical：只有垂直滚动条。 3 – Both：同时具有水平和垂直滚动条。 注意，只有当MultiLine属性值为True时，用ScrollBars属性设置的滚动条才能显示出来。ScrollBars属性在运行时是只读的，即不能用代码设置该属性的值。 * （4）PasswordChar：当在该属性中指定一个字符时，文本框中的内容将显示为该字符，常用该属性将文本框设置为一个口令输入框。 （5）MaxLength：指定输入到文本框的最大字符数，常用于控制口令的最大长度。该属性的默认值为0，表示不限制最大字符数。 （6）Locked：决定运行时文本框内容是否可以编辑。True：表示不可以编辑文本。False：表示可以编辑。 * （7）SelLength、SelStart、SelText属性：当用户使用文本框输入数据时，可以使用代码实现文本内容的自动选择，以便用户录入数据或修改数据。选择文本需要指定选择的起始位置和长度。 SelStart：返回或设置当前选择文本的起始位置。0：表示选择文本的起始位置从第一个字符开始。 SelLength：返回或设置选择的字符数。要选择所有文本，可使用Len函数获取文本的总字符数。 例如，要选择Text1中所有字符。使用语句： Text1.SelLength = Len(Text1.Text) SelText：返回或设置当前所选择的字符串。 * （8）TabIndex：决定文本框的Tab键序。 所谓Tab键序是指运行时按TAB键或SHIFT+TAB键时，焦点从一个控件移到另一个控件的次序。许多控件都有TabIndex属性，在窗体上画控件时VB会自动为控件分配一个TabIndex值。 （9）TabStop属性：用于决定运行时按TAB键或SHIFT+TAB键时，是否跳过该控件。 False：焦点不会移动到该控件上； True：焦点会移动到该控件上。 2．文本框的事件 * （1）Change：当向文本框输入新的内容，或在代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时，将触发Change事件。在Change事件过程中应避免改变文本框自身的内容。 （2）KeyPress事件：当在键盘上按下某个键时触发该事件。KeyPress事件返回一个参数KeyAscii，该参数值为整数，表示所按下键的ASCII码值。 * （3）GotFocus事件：当运行时用鼠标单击文本框对象，或使用Tab键或SetFocus方法将焦点设置到文本框时，触发该事件。该事件还适用于窗体和大部分可接受键盘输入的控件。 （4）LostFocus事件：当运行时按下Tab键使光标离开文本框对象，或者用鼠标选择其他对象时触发该事件。 3．文本框的方法 * SetFocus方法：使用该方法可以把光标移到指定的文本框中，使文本框获得焦点。 SetFocus方法的使用格式如下： 对象名.SetFocus 例如，将焦点定位在文本框Text1中： Text1.SetFocus * 【例2-4】设计一个系统登录界面。将输入用户名的文本框命名为txtUsername，将其Text属性设置为“请在这里录入你的姓名”；将输入密码的文本框命名为txtPassword，将其Text属性设置为初始密码“000000”，设置其MaxLength属性为6，以限制最大密码位数为6位。 txtUsername txtPassword * Private Sub Form_Activate() txtUsername.SetFocus txtUsername.SelStart = 0 txtUsername.SelLength = Len(txtUsername.Text) End Sub txtUsername中的当前文本被选中。 * Pr