第2章 简单的visual basic程序设计2

《第2章 简单的visual basic程序设计2》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第3章简单的VisualBasic程序设计3.3.3基本控件文本框（TextBox）文本框控件通常用于用户输入数据，也可用于输出数据。不论输入数据还是输出数据，都是通过对文本框的Text属性赋值来实现的。常用属性Text属性Text属性是文本框的默认属性，该属性用来返回或设置文本框中显示的内容。9/15/20212机械工业出版社3.3.3基本控件Text属性Text属性是文本框的默认属性，该属性用来返回或设置文本框中显示的内容。MultiLine属性默认时，MultiLine属性为False，表示只允许单行输入，并忽略Ent

2、er键的作用；当MultiLine属性为True时，表示允许多行输入。9/15/20213机械工业出版社3.3.3基本控件MaxLength属性MaxLength属性用来设置文本框中允许输入的最大字符数。默认值为0，表示没有字符数限制。若给该属性赋一个具体的值，该数值就作为文本的长度限制；当输入的字符数超过设定值时，文本框将不接受超出部分的字符，并发出警告声。9/15/20214机械工业出版社3.3.3基本控件PasswordChar属性设置PasswordChar属性用于掩盖文本框中输入的字符，常用于口令的输入。默认值为空

3、，此时输入的字母按原样显示在文本框中。若此属性值设置为非空字符，则输入字符用该非空字符显示在文本框中。9/15/20215机械工业出版社3.3.3基本控件ScrollBars属性ScrollBars属性指定是否在文本框中添加水平和垂直滚动条，属性值有：0-None：默认值，文本框没有滚动条。1-Horizontal：文本框只有水平滚动条。2-Vertical：文本框只有垂直滚动条。3-Both：文本框同时拥有水平和垂直滚动条。9/15/20216机械工业出版社3.3.3基本控件SelStart属性SelStart属性用于定义

4、当前选择的文本的起始位置，第一个字符的位置为0，依次类推。该属性只能在程序中进行设置。SelLength属性SelLength属性用于设置或返回文本框中当前选中的字符个数，该属性只能在程序中进行设置和返回。9/15/20217机械工业出版社3.3.3基本控件SelText属性用于设置或返回文本框中当前选中的文本内容，该属性只能在程序中进行设置和返回。Locked属性用于设置文本框的内容是否可以编辑，属性值有：True：默认值，不能编辑文本框中的文本内容。False：可以编辑文本框中的文本内容。9/15/20218机械工业出版

5、社3.3.3基本控件常用方法文本框常用SetFocus方法把光标移到指定的文本框中，使之获得焦点。当使用多个文本框时，用该方法可把光标移到所需要的文本框中。其语法格式如下：文本框名.SetFocus常用事件9/15/20219机械工业出版社3.3.3基本控件Change事件当用户在文本框中输入新内容，或程序对文本框的Text属性重新赋值，从而改变文本框的Text属性值时触发该事件。GotFocus事件用鼠标单击文本框对象，或使用Tab键移动焦点，或使用SetFocus方法将焦点设置到文本框时触发该事件，称为“获得焦点”事件。

6、9/15/202110机械工业出版社3.3.3基本控件LostFocus事件当用户按下Tab键光标离开文本框，或用鼠标选择其他对象时触发该事件，称为“失去焦点”事件。KeyPress事件当用户击键（ANSI键，即能在ASCII码表里找到的键）一次（包括按下，再释放）时，就会触发KeyPress事件。9/15/202111机械工业出版社3.3.3基本控件【例1】设计应用程序，在窗体上添加3个文本框，使用默认属性。要求当用户单击窗体时，文本框1中显示字符串“MicrosoftVisualBasic”，而文本框2和文本框3中分别显

7、示此字符串的小写字母串和大写字母串，程序的运行结果如图3-20所示。图3-20【例3-6】运行结果9/15/202112机械工业出版社3.3.3基本控件分析：在窗体的Click事件过程中通过设置文本框Text1的Text属性可实现文本框Text1的输出。使用文本框Text1的Change事件过程可将文本框Text1中的字符串分别转换为小写、大写并在文本框Text2和文本框Text3中输出。将字符串转换为小写、大写使用系统函数LCase(strs)、UCase(strs)。9/15/202113机械工业出版社3.3.3基本控件

8、设计界面创建工程，在窗体上放置3个文本框。设置对象属性编写代码对象对象名属性属性值窗体Form1Caption转换为大小写文本框Text1Text空Text2Text空Text3Text空9/15/202114机械工业出版社3.3.3基本控件PrivateSubForm_Click()Te