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