5章vb编程学习

txtOp1.SetFocus
这样，cmdClear过程就变成如下过程：
Private Sub cmdClear_Click() txtOp1.Text = ″″ txtOp3.Text = ″″ txtResult.Text = ″″
txtOp1.SetFocus
End Sub 这样，单击清除按钮以后焦点自动以东到txtop1
下面设计一个过程，在文本框中放入一段文字： Private Sub cmdShow_Click() txtMultiline.Text = ″″ txtMultiline.Text = ″程序运行中，需要通过键盘接收用户输入的信息,或 把有关信息显示在屏幕上。在Visual Basic 中，可以用文本框和标签实现 接收信息和显示信息。 ″ End Sub 运行程序后，单击“显示文本”命令按钮，这段文字就会在文本框中显示 出来，由于文字的长度在文本框中一行内放不下，遇到一行的右边界时就 自动换行。运行结果如图所示。
用VB
标签的常用属性有下述8种。
（1） Alignment属性：
用于指定在标签上显示信息的位置
（0——左对齐、1——右对齐、2—— （2） AutoSize属性： 用于设置标签的大小是否自动按标签中所显示的内容的多少 （3） BorderStyle属性： 用于设置标签有无边框。 （4） Caption属性： （5） Left属性： 用于设置标签与窗体左边界之间的距离。 （6） Name属性：
据此可以编写出如下程序代码： Private sub txtShow1_change() txtShow2.Text = txtShow1.Text txtShow2.FontSize = 18 txtShow3.Text = txtShow1.Text txtShow3.FontSize = 24 End Sub 运行结果如右图所示。
文本框所能识别的事件主要有Click、DblClick、
Change、GotFocus、LostFocus、KeyPress、M ouseDown、MouseUp、MouseMove等。 文本框能使用的方法主要有Drag、Move、SetFo cus等。
5.2
使用标签控件显示字符信息
文本框既可以用于输入文字，又可以用于输出信息， 使用起来很方便。 但是有时只需要显示某些信息，而不需要在程序运 行时向它输入信息，这时最好不用文本框，以免因为 误操作而改变文本框中的内容。
（7） Top属性： 用于设置标签与窗体上边界之间的距离。
（8） WordWrap属性： 用于设置标签中所显示的内容能否自动 折行。 【例8】 修改 例1，使用标签为每个文本框加上说明，以便使各 个文本框的作用一目了然，如图所示。
Note： （1）设置属性后，该属性并不会自动撤销，只有在显式地重新设置后， 才能改变该属性的值。 • 设置字体颜色， 1）用通用对话框。 在部件下添加microsoft CommonDialog CommonDialog1.ShowColor 显示颜色对话框 3p299 2p167 Label1.ForeColor = CommonDialog1.Color • 或者 CommonDialog1.Flags = &H107设置对话框属性3p307 2p174 CommonDialog1.ShowFont Label1.ForeColor = CommonDialog1.Color Label1.FontName = CommonDialog1.FontName 2）用qbcolor函数 Label1.ForeColor = qbcolor（1）设置为蓝色 0黑色8灰色1兰色9亮兰色2绿色10亮绿色3青色11亮青色4红色12亮红色5 洋红色13亮洋红色6黄色14亮黄色7白色15亮白色
2．
passwordchar属性）
【例4】 程序设计者事先设定（在程序中设定）一个密码为“Pass
命令按钮，程序核对用户输入的密码与事先设定的密码是否一致。
Word”。要求用户在一个文本框中输入密码，然后单击“校验密码”
如果一致,则继续执行其他功能；若不一致，则输出警告信息，如图。 窗体上有两个文本框，一个用来接收用户输入的密码，另一个
为了输入数据，可先单击文本框txtOp1，使光标在文本框中 闪烁，表示此文本框是“激活”的，或称“焦点”在该文本框上。 此时可以从键盘将被加数（如12）输入到文本框txtOp1中。 再单击文本框txtOp3，使光标在其上闪烁，然后用键盘输入 加数（如36）， 再单击“加法运算”命令按钮，以执行cmdAdd_click事件过 程，在文本框txtResult中显示相加之和。 在计算完一个题目后，如果还要继续计算，应再单击“清除” 命令按钮，以便清除原有数据。
用来显示信息，显示验证的结果。3个命令按钮中的一个用来通知
程序校验用户输入的密码是否正确，另一个用来通知程序清除文本 框的信息，还有一个结束程序的运行。
先编写“校验密码”命令按钮的单击事件过程： 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
用户单击“清除”命令按钮，清除4个文本框的内容，然后输入 运算符“a”，由于“a”是错误的运算符，所以程序执行Case Else 分支中的语句，显示提示信息，如图5.7所示。
5.1.2
文本框的属性、事件和方法
1． 利用Change 【例3】 在窗体上画出3个文本框和两个命令按钮，如图5.所示。 当程序运行时，用户在第一个文本框内输入一行文字时，在另外 两个文本框中同时显示出相同的内容，但显示的字体大小不同。 最多只能输入20个字符。
• 文本框2的TabIndex属性值为1，
• 文本框3、4、5的TabIndex属性值依次为2、3、4， • 命令按钮1、2、3的TabIndex属性值为5、6和7。

（3） 可以用TabStop属性来使某个控件“轮空”。
一般控件的TabStop属性的默认值为True（真），表示按Tab 键时光标移到本控件处“停下来”，即焦点正常地移到本控件。 在属性设置表中可以看到，文本框2的TabStop属性值为Fals e（假），这样，当用户按下Tab键时光标在本控件处不停留，
3．
【例5】 设计程序，用户界面由一个文本框和一个命令按钮组成， 在程序中输入一段文字。当单击命令按钮时，在文本框中将这一段 文字显示出来。如图。 在窗体上添加一个文本框和两个命令按钮。选中文本框（单击此文 本框），到属性表中找到Multiline（多行） 属性，单击此属性，右 端出现一个向下的箭头，单击箭头打开下拉列表，将False改成Tru e，表示为多行文本框。再设置其他属性值，属性设置如表5.6（见 书103页）所示。
4． 如何保证输入数据的正确性
在文本框内输入数据时，难免会出现错误的输入操作。
怎样判断、检查输入数据是否正确有效呢？
文本框控件支持KeyPress事件，该事件识别从键盘上输入 的字符。
每当用户从键盘上键入一个字符，就触发KeyPress事件。
【例6】 设计一个程序，运行程序时，要求用户在文本框中
Case Else Print ″运算符错！″ txtResult.Text = ″″ End Select End Sub
程序进入运行状态后，首先单击“开始”命令按钮，将文本 框txtOp1、txtOp2、txtOp3和txtResult清空，如图5.5所示，光 标自动定位到txtOp1文本框中，用户输入第一个数（例如输入12 8）后按下Tab键，光标定位到文本框txtOp2，输入运算符“+”后， 按Tab键，光标定位到文本框txtOp3，再输入第二个数（例如输 入208），单击“运算”命令按钮，可以看到运算结果(336)显示 在文本框txtResult中，如图所示。
在给出错误提示之后，KeyAscii 的值置为0，这样输入的字符就不 会在文本框中显示，可以确保文本框中只显示满足要求的大写字母。
“清除”命令按钮的事件过程如下：
Private Sub cmdClear_Click()
Cls End Sub
文本框常用的属性有Text、TabStop、TabIndex、 PasswordChar、ReadOnly、MultiLine、MaxLen gth、ScrollBars等。
即跳过文本框2而继续向前跳到文本框3，
文本框3的TabStop属性值为True，故光标停在文本框3
【例3】，使其能够做加法、减法、乘法和除法运算，用户界面 修改如图所示。
txtOp2（文本框2）的Text属性值由“+”改成“运算符”， 使程序具有通用性。用户可以通过键盘输入参与运算的两个数
Private Sub cmdOperat_Click() op1 = Val(txtOp1.Text) 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)