章vb编程学习

1、第5章 文本框和标签的使用,5.1 使用文本框处理字符信息 5.2 使用标签控件显示字符信息,【例1】设计一个程序，由用户从键盘上输入两个数，计算这两个数的和，并将计算结果显示出来。,5.1 使用文本框处理字符信息,Private Sub cmdAdd_Click() op1 = Val(txtOp1.Text) op2 = Val(txtOp3.Text) sum = op1 + op2 txtResult.Text = Str$(sum) End Sub Private Sub cmdClear_Click() txtOp1.Text = txtOp3.Text = txtResult.T

2、ext = End Sub Private Sub cmdExit_Click() End End Sub,为了输入数据，可先单击文本框txtOp1，使光标在文本框中闪烁，表示此文本框是“激活”的，或称“焦点”在该文本框上。 此时可以从键盘将被加数（如12）输入到文本框txtOp1中。 再单击文本框txtOp3，使光标在其上闪烁，然后用键盘输入加数（如36）， 再单击“加法运算”命令按钮，以执行cmdAdd_click事件过程，在文本框txtResult中显示相加之和。 在计算完一个题目后，如果还要继续计算，应再单击“清除”命令按钮，以便清除原有数据。 设置焦点 为了方便用户，往往容许用户既能

3、使用鼠标操作，又能使用键盘操作。 可以利用Visual Basic提供的SetFocus（设置焦点）方法和TabStop、TabIndex属性来实现这个目的。,（1） 用SetFocus方法设置焦点的方法是，在cmdClear 事件过程的最后加入以下语句： txtOp1.SetFocus 这样，cmdClear过程就变成如下过程： Private Sub cmdClear_Click() txtOp1.Text = txtOp3.Text = txtResult.Text = txtOp1.SetFocus End Sub 这样，单击清除按钮以后焦点自动以东到txtop1,（2） 用TabIn

4、dex属性来控制当用户按下Tab键时焦点的转移顺序。 被加数输入后，用户可以按键盘上的Tab键，使光标跳到文本框3内。 文本框和命令按钮均有一个属性TabIndex，它是按照窗体内添加各控件的顺序自动确定的。 如果在窗体上画控件时的顺序为： 文本框1到5，然后是命令按钮1、2和3， 则，文本框1的TabIndex属性值为0， 文本框2的TabIndex属性值为1， 文本框3、4、5的TabIndex属性值依次为2、3、4， 命令按钮1、2、3的TabIndex属性值为5、6和7。,（3） 可以用TabStop属性来使某个控件“轮空”。 一般控件的TabStop属性的默认值为True（真），表示

5、按Tab键时光标移到本控件处“停下来”，即焦点正常地移到本控件。 在属性设置表中可以看到，文本框2的TabStop属性值为False（假），这样，当用户按下Tab键时光标在本控件处不停留，即跳过文本框2而继续向前跳到文本框3， 文本框3的TabStop属性值为True，故光标停在文本框3。,【例3】，使其能够做加法、减法、乘法和除法运算，用户界面修改如图所示。 txtOp2（文本框2）的Text属性值由“+”改成“运算符”，使程序具有通用性。用户可以通过键盘输入参与运算的两个数字和操作符。,Private Sub cmdOperat_Click() op1 = Val(txtOp1.Text)

6、 op2 = Val(txtOp3.Text) Select Case txtOp2.Text Case + result = op1 + op2 txtResult.Text = Str$(result) Case - result = op1 - op2 txtResult.Text = Str$(result) Case * result = op1 * op2 txtResult.Text = Str$(result) Case / result = op1 / op2 txtResult.Text = Str$(result),Case Else Print 运算符错！ txtRes

7、ult.Text = End Select End Sub,程序进入运行状态后，首先单击“开始”命令按钮，将文本框txtOp1、txtOp2、txtOp3和txtResult清空，如图5.5所示，光标自动定位到txtOp1文本框中，用户输入第一个数（例如输入128）后按下Tab键，光标定位到文本框txtOp2，输入运算符“+”后，按Tab键，光标定位到文本框txtOp3，再输入第二个数（例如输入208），单击“运算”命令按钮，可以看到运算结果(336)显示在文本框txtResult中，如图所示。,用户单击“清除”命令按钮，清除4个文本框的内容，然后输入运算符“a”，由于“a”是错误的运算符，所

8、以程序执行Case Else 分支中的语句，显示提示信息，如图5.7所示。,1 利用Change事件 【例3】 在窗体上画出3个文本框和两个命令按钮，如图5.所示。当程序运行时，用户在第一个文本框内输入一行文字时，在另外两个文本框中同时显示出相同的内容，但显示的字体大小不同。最多只能输入20个字符。,5.1.2 文本框的属性、事件和方法,据此可以编写出如下程序代码： Private sub txtShow1_change() txtShow2.Text = txtShow1.Text txtShow2.FontSize = 18 txtShow3.Text = txtShow1.Text tx

9、tShow3.FontSize = 24 End Sub 运行结果如右图所示。,2 设置密码（passwordchar属性） 【例4】 程序设计者事先设定（在程序中设定）一个密码为“PassWord”。要求用户在一个文本框中输入密码，然后单击“校验密码”命令按钮，程序核对用户输入的密码与事先设定的密码是否一致。如果一致,则继续执行其他功能；若不一致，则输出警告信息，如图。 窗体上有两个文本框，一个用来接收用户输入的密码，另一个用来显示信息，显示验证的结果。3个命令按钮中的一个用来通知程序校验用户输入的密码是否正确，另一个用来通知程序清除文本框的信息，还有一个结束程序的运行。,先编写“校验密码”

10、命令按钮的单击事件过程： Private Sub cmdCheck_Click() pass$ = txtPW.Text If pass = 111 Then txtShow.Text = 密码正确,继续进行! Else txtShow.Text = 密码错,重新输入! End If End Sub 运行结果如图所示。 当用户单击“清除”命令按钮时，执行以下事件过程： Private Sub cmdClear_Click() txtPW.Text = txtShow.Text = txtPW.SetFocus End Sub,3 多行文本框 【例5】 设计程序，用户界面由一个文本框和一个命令按

11、钮组成，在程序中输入一段文字。当单击命令按钮时，在文本框中将这一段文字显示出来。如图。 在窗体上添加一个文本框和两个命令按钮。选中文本框（单击此文本框），到属性表中找到Multiline（多行） 属性，单击此属性，右端出现一个向下的箭头，单击箭头打开下拉列表，将False改成True，表示为多行文本框。再设置其他属性值，属性设置如表5.6（见书103页）所示。,下面设计一个过程，在文本框中放入一段文字： Private Sub cmdShow_Click() txtMultiline.Text = txtMultiline.Text = 程序运行中，需要通过键盘接收用户输入的信息,或把有关信息

12、显示在屏幕上。在Visual Basic 中，可以用文本框和标签实现接收信息和显示信息。 End Sub 运行程序后，单击“显示文本”命令按钮，这段文字就会在文本框中显示出来，由于文字的长度在文本框中一行内放不下，遇到一行的右边界时就自动换行。运行结果如图所示。,4 如何保证输入数据的正确性 在文本框内输入数据时，难免会出现错误的输入操作。怎样判断、检查输入数据是否正确有效呢？ 文本框控件支持KeyPress事件，该事件识别从键盘上输入的字符。 每当用户从键盘上键入一个字符，就触发KeyPress事件。可以通过相应的事件过程进行数据检验。 【例6】 设计一个程序，运行程序时，要求用户在文本框中

13、输入大写英文字母。如用户输入大写英文字符，窗体上显示出“输入正确！”；当输入小写字符时，窗体上显示出“输入有错误，请使用大写字母！”,为了判断用户输入的英文字母是否大小写，可以利用这些字母对应的ASCII码值，大写26个英文字母的ASCII值在6590之间，如果用户输入的英文字母的ASCII值在此范围内，说明输入了正确的字母，否则不正确。 编写如下事件过程： Private Sub txtCheck_KeyPress(KeyAscii As Integer) If KeyAscii 90 Then Print 输入有错误，请使用大写字母“ KeyAscii=0 Else Print 输入正确!

14、 End If End Sub 如果希望输入的小写字母不出现在文本框中(即错误的输入内容不显示)，可以在程序中添加一条语句，KeyAscii=0,在给出错误提示之后，KeyAscii 的值置为0，这样输入的字符就不会在文本框中显示，可以确保文本框中只显示满足要求的大写字母。 “清除”命令按钮的事件过程如下： Private Sub cmdClear_Click() Cls End Sub,文本框常用的属性有Text、TabStop、TabIndex、PasswordChar、ReadOnly、MultiLine、MaxLength、ScrollBars等。 文本框所能识别的事件主要有Click

15、、DblClick、Change、GotFocus、LostFocus、KeyPress、MouseDown、MouseUp、MouseMove等。 文本框能使用的方法主要有Drag、Move、SetFocus等。,文本框既可以用于输入文字，又可以用于输出信息，使用起来很方便。 但是有时只需要显示某些信息，而不需要在程序运行时向它输入信息，这时最好不用文本框，以免因为误操作而改变文本框中的内容。 用VB提供的标签可以较好地解决这个问题。 标签的常用属性有下述8种。,5.2 使用标签控件显示字符信息,（1） Alignment属性： 用于指定在标签上显示信息的位置 （0左对齐、1右对齐、2居中）

16、。 （2） AutoSize属性： 用于设置标签的大小是否自动按标签中所显示的内容的多少进行调整。 （3） BorderStyle属性： 用于设置标签有无边框。 （4） Caption属性： 用于设置标签中所要显示的内容。 （5） Left属性： 用于设置标签与窗体左边界之间的距离。 （6） Name属性： 用于设置标签的名字。,（7） Top属性： 用于设置标签与窗体上边界之间的距离。 （8） WordWrap属性： 用于设置标签中所显示的内容能否自动折行。 【例8】 修改 例1，使用标签为每个文本框加上说明，以便使各个文本框的作用一目了然，如图所示。,Note： （1）设置属性后，该属性并不会自动撤销，只有在显式地重新设置后，才能改变该属性的值。 设置字体颜色， 1）用通用对话框。 在部件下添加microsoft CommonDialog CommonDialog1.ShowColor 显示颜色对话框 3p299 2p167 Label1.ForeColor = CommonDialog1.Color 或者