文档介绍：第5章文本框和标签的使用 使用文本框处理字符信息 使用标签控件显示字符信息【例1】设计一个程序,由用户从键盘上输入两个数,计算这两个数的和,并将计算结果显示出来。 使用文本框处理字符信息 Private Sub cmdAdd_Click() op1 = Val() op2 = Val() sum = op1 + op2 = Str$(sum) End Sub Private Sub cmdClear_Click() = ″″ = ″″ = ″″ End Sub Private Sub cmdExit_Click() End End Sub 为了输入数据,可先单击文本框 txtOp1 ,使光标在文本框中闪烁,表示此文本框是“激活”的,或称“焦点”在该文本框上。此时可以从键盘将被加数(如12 )输入到文本框 tx tOp1 中。再单击文本框 txtOp3 ,使光标在其上闪烁,然后用键盘输入加数(如36 ), 再单击“加法运算”命令按钮,以执行 cmdAdd_click 事件过程,在文本框 txtResult 中显示相加之和。在计算完一个题目后,如果还要继续计算,应再单击“清除”命令按钮,以便清除原有数据。设置焦点为了方便用户,往往容许用户既能使用鼠标操作,又能使用键盘操作。可以利用 Visual Basic 提供的 SetFocus (设置焦点)方法和 TabStop 、 TabIndex 属性来实现这个目的。(1)用 SetFocus 方法设置焦点的方法是,在 cm dClear 事件过程的最后加入以下语句: 这样, cmdClear 过程就变成如下过程: Private Sub cmdClear_Click() = ″″ = ″″ = ″″ End Sub 这样,单击清除按钮以后焦点自动以东到 txtop1 (2)用 TabIndex 属性来控制当用户按下 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 (真),表示按 Tab 键时光标移到本控件处“停下来”,即焦点正常地移到本控件。在属性设置表中可以看到,文本框 2的 TabStop 属性值为 False (假),这样,当用户按下 Tab 键时光标在本控件处不停留,即跳过文本框 2而继续向前跳到文本框 3, 文本框 3的 TabStop 属性值为 True ,故光标停在文本框 3。【例3 】, 使其能够做加法、减法、乘法和除法运算,用户界面修改如图所示。 txtOp2 (文本框 2)的 Text 属性值由“+”改成“运算符”,使程序具有通用性。用户可以通过键盘输入参与运算的两个数字和操作符。 Private Sub cmdOperat_Click() op1 = Val() op2 = Val() Select Case Case ″+″ result = op1 + op2 = Str$(result) Case ″-″ result = op1 - op2 = Str$(result) Case ″*″ result = op1 * op2 = Str$(result) Case ″/″ result = op1 / op2 = Str$(result) Case Else Print ″运算符错! ″ = ″″ End Select End Sub 程序进入运行状态后,首