第2节 简单的Visual Basic程序设计2.pptVIP

3.3.3 基本控件 文本框（TextBox） 文本框控件通常用于用户输入数据，也可用于输出数据。不论输入数据还是输出数据，都是通过对文本框的Text属性赋值来实现的。 常用属性 Text属性 Text属性是文本框的默认属性，该属性用来返回或设置文本框中显示的内容。 3.3.3 基本控件 Text属性 Text属性是文本框的默认属性，该属性用来返回或设置文本框中显示的内容。 MultiLine属性 默认时，MultiLine属性为False，表示只允许单行输入，并忽略Enter键的作用； 当MultiLine属性为True时，表示允许多行输入。 3.3.3 基本控件 MaxLength属性 MaxLength属性用来设置文本框中允许输入的最大字符数。 默认值为0，表示没有字符数限制。若给该属性赋一个具体的值，该数值就作为文本的长度限制； 当输入的字符数超过设定值时，文本框将不接受超出部分的字符，并发出警告声。 3.3.3 基本控件 PasswordChar属性 设置PasswordChar属性用于掩盖文本框中输入的字符，常用于口令的输入。 默认值为空，此时输入的字母按原样显示在文本框中。 若此属性值设置为非空字符，则输入字符用该非空字符显示在文本框中。 3.3.3 基本控件 ScrollBars属性 ScrollBars属性指定是否在文本框中添加水平和垂直滚动条，属性值有： 0-None：默认值，文本框没有滚动条。 1-Horizontal：文本框只有水平滚动条。 2-Vertical：文本框只有垂直滚动条。 3-Both：文本框同时拥有水平和垂直滚动条。 3.3.3 基本控件 SelStart属性 SelStart属性用于定义当前选择的文本的起始位置，第一个字符的位置为0，依次类推。该属性只能在程序中进行设置。 SelLength属性 SelLength属性用于设置或返回文本框中当前选中的字符个数，该属性只能在程序中进行设置和返回。 3.3.3 基本控件 SelText属性 用于设置或返回文本框中当前选中的文本内容，该属性只能在程序中进行设置和返回。 Locked属性 用于设置文本框的内容是否可以编辑，属性值有： True：默认值，不能编辑文本框中的文本内容。 False：可以编辑文本框中的文本内容。 3.3.3 基本控件 常用方法 文本框常用SetFocus方法把光标移到指定的文本框中，使之获得焦点。当使用多个文本框时，用该方法可把光标移到所需要的文本框中。 其语法格式如下： 文本框名.SetFocus 常用事件 3.3.3 基本控件 Change事件 当用户在文本框中输入新内容，或程序对文本框的Text属性重新赋值，从而改变文本框的Text属性值时触发该事件。 GotFocus事件 用鼠标单击文本框对象，或使用Tab键移动焦点，或使用SetFocus方法将焦点设置到文本框时触发该事件，称为“获得焦点”事件。 3.3.3 基本控件 LostFocus事件 当用户按下Tab键光标离开文本框，或用鼠标选择其他对象时触发该事件，称为“失去焦点”事件。 KeyPress事件 当用户击键（ANSI键，即能在ASCII码表里找到的键）一次（包括按下，再释放）时，就会触发KeyPress事件。 3.3.3 基本控件 【例1】设计应用程序，在窗体上添加3个文本框，使用默认属性。要求当用户单击窗体时，文本框1中显示字符串“Microsoft Visual Basic”，而文本框2和文本框3中分别显示此字符串的小写字母串和大写字母串，程序的运行结果如图3-20所示。 3.3.3 基本控件 分析： 在窗体的Click事件过程中通过设置文本框Text1的Text属性可实现文本框Text1的输出。使用文本框Text1的Change事件过程可将文本框Text1中的字符串分别转换为小写、大写并在文本框Text2和文本框Text3中输出。将字符串转换为小写、大写使用系统函数LCase(strs)、UCase(strs)。 3.3.3 基本控件 设计界面　 创建工程，在窗体上放置3个文本框。 设置对象属性 编写代码 3.3.3 基本控件 Private Sub Form_Click() Text1.Text = Microsoft Visual Basic End Sub Private Sub Text1_Change() Text2.Text = LCase(Text1.Text) Text3.Text = UCase(Text1.Text) End Sub 3.3.3 基本控件 命令按钮（Comma