文档介绍：第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(真),表示按Tab键时光标移到本控件处“停下来”,即焦点正常地移到本控件。
在属性设置表中可以看到,文本框2的TabStop属性值为False(假),这样,当用户按下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 ″运算符错!″
= ″″
End Select
End Sub
9
程序进入运行状态后,首先单击