5节vb编程学习.pptVIP

* * 第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.Text = ″″ End Sub Private Sub cmdExit_Click() End End Sub 为了输入数据，可先单击文本框txtOp1，使光标在文本框中闪烁，表示此文本框是“激活”的，或称“焦点”在该文本框上。 此时可以从键盘将被加数（如12）输入到文本框txtOp1中。 再单击文本框txtOp3，使光标在其上闪烁，然后用键盘输入加数（如36）， 再单击“加法运算”命令按钮，以执行cmdAdd_click事件过程，在文本框txtResult中显示相加之和。 在计算完一个题目后，如果还要继续计算，应再单击“清除”命令按钮，以便清除原有数据。 设置焦点 为了方便用户，往往容许用户既能使用鼠标操作，又能使用键盘操作。 可以利用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） 用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(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) Case Else Print ″运算符错！″ txtResult.Text = ″″ End Select E