5章vb编程学习

第5章文本框和标签的使用5.1使用文本框处理字符信息5.2使用标签控件显示字符信息【例1】设计一个程序，由用户从键盘上输入两个数，计算这两个数的和，并将计算结果显示出来。5.1使用文本框处理字符信息PrivateSubcmdAdd_Click()op1=Val(txtOp1.Text)op2=Val(txtOp3.Text)sum=op1+op2txtResult.Text=Str$(sum)EndSubPrivateSubcmdClear_Click()txtOp1.Text=″″txtOp3.Text=″″txtResult.Text=″″EndSubPrivateSubcmdExit_Click()EndEndSub为了输入数据，可先单击文本框txtOp1，使光标在文本框中闪烁，表示此文本框是“激活”的，或称“焦点”在该文本框上。此时可以从键盘将被加数（如12）输入到文本框txtOp1中。再单击文本框txtOp3，使光标在其上闪烁，然后用键盘输入加数（如36），再单击“加法运算”命令按钮，以执行cmdAdd_click事件过程，在文本框txtResult中显示相加之和。在计算完一个题目后，如果还要继续计算，应再单击“清除”命令按钮，以便清除原有数据。•设置焦点为了方便用户，往往容许用户既能使用鼠标操作，又能使用键盘操作。可以利用VisualBasic提供的SetFocus（设置焦点）方法和TabStop、TabIndex属性来实现这个目的。（1）用SetFocus方法设置焦点的方法是，在cmdClear事件过程的最后加入以下语句：txtOp1.SetFocus这样，cmdClear过程就变成如下过程：PrivateSubcmdClear_Click()txtOp1.Text=″″txtOp3.Text=″″txtResult.Text=″″txtOp1.SetFocusEndSub这样，单击清除按钮以后焦点自动以东到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属性值由“+”改成“运算符”，使程序具有通用性。用户可以通过键盘输入参与运算的两个数PrivateSubcmdOperat_Click()op1=Val(txtOp1.Text)op2=Val(txtOp3.Text)SelectCasetxtOp2.TextCase″+″result=op1+op2txtResult.Text=Str$(result)Case″-″result=op1-op2txtResult.Text=Str$(result)Case″*″result=op1*op2txtResult.Text=Str$(result)Case″/″result=op1/op2txtResult.Text=Str$(result)CaseElsePrint″运算符错！″txtResult.Text=″″EndSelectEndSub程序进入运行状态后，首先单击“开始”命令按钮，将文本框txtOp1、txtOp2、txtOp3和txtResult清空，如图5.5所示，光标自动定位到txtOp1文本框中，用户输入第一个数（例如输入128）后按下Tab键，光标定位到文本框txtOp2，输入运算符“+”后，按Tab键，光标定位到文本框txtOp3，再输入第二个数（例如输入208），单击“运算”命令按钮，可以看到运算结果(336)显示在文本框txtResult中，如图所示。用户单击“清除”命令按钮，清除4个文本框的内容，然后输入运算符“a”，由于“a”是错误的运算符，所以程序执行CaseElse分支中的语句，显示提示信息，如图5.7所示。1．利用Change【例3】在窗体上画出3个文本框和两个命令按钮，如图5.所示。当程序运行时，用户在第一个文本框内输入一行文字时，在另外两个文本框中同时显示出相同的内容，但显示的字体大小不同。最多只能输入20个字符。5.1.2文本框的属性、事件和方法据此可以编写出如下程序代码：PrivatesubtxtShow1_change()txtShow2.Text=txtShow1.TexttxtShow2.FontSize=18txtShow3.Text=txtShow1.TexttxtShow3.FontSize=24EndSub运行结果如右图所示。2．passwordchar属性）【例4】程序设计者事先设定（在程序中设定）一个密码为“PassWord”。要求用户在一个文本框中输入密码，然后单击“校验密码”命令按钮，程序核对用户输入的密码与事先设定的密码是否一致。如果一致,则继续执行其他功能；若不一致，则输出警告信息，如图。窗体上有两个文本框，一个用来接收用户输入的密码，另一个用来显示信息，显示验证的结果。3个命令按钮中的一个用来通知程序校验用户输入的密码是否正确，另一个用来通知程序清除文本框的信息，还有一个结束程序的运行。先编写“校验密码”命令按钮的单击事件过程：PrivateSubcmdCheck_Click()pass$=txtPW.TextIfpass=111ThentxtShow.Text=密码正确,继续进行!ElsetxtShow.Text=密码错,重新输入!EndIfEndSub运行结果如图所示。当用户单击“清除”命令按钮时，执行以下事件过程：PrivateSubcmdClear_Click()txtPW.Text=″″txtShow.Text=″″txtPW.SetFocusEndSub3．【例5】设计程序，用户界面由一个文本框和一个命令按钮组成，在程序中输入一段文字。当单击命令按钮时，在文本框中将这一段文字显示出来。如图。在窗体上添加一个文本框和两个命令按钮。选中文本框（单击此文本框），到属性表中找到Multiline（多行）属性，单击此属性，右端出现一个向下的箭头，单击箭头打开下拉列表，将False改成True，表示为多行文本框。再设置其他属性值，属性设置如表5.6（见书103页）所示。下面设计一个过程，在文本框中放入一段文字：PrivateSubcmdShow_Click()txtMultiline.Text=″″txtMultiline.Text=″程序运行中，需要通过键盘接收用户输入的信息,或把有关信息显示在屏幕上。在VisualBasic中，可以用文本框和标签实现接收信息和显示信息。″EndSub运行程序后，单击“显示文本”命令按钮，这段文字就会在文本框中显示出来，由于文字的长度在文本框中一行内放不下，遇到一行的右边界时就自动换行。运行结果如图所示。4．如何保证输入数据的正确性在文本框内输入数据时，难免会出现错误的输入操作。怎样判断、检查输入数据是否正确有效呢？文本框控件支持KeyPress事件，该事件识别从键盘上输入的字符。每当用户从键盘上键入一个字符，就触发KeyPress事件。【例6】设计一个程序，运行程序时，要求用户在文本框中输入大写英文字母。如用户输入大写英文字符，窗体上显示出“输入正确！”；当输入小写字符时，窗体上显示出“输入有错误，请使用大写字母！”为了判断用户输入的英文字母是否大小写，可以利用这些字母对应的ASCII码值，大写26个英文字母的ASCII值在65~90之间，如果用户输入的英文字母的ASCII值在此范围内，说明输入了编写如下事件过程：PrivateSubtxtCheck_KeyPress(KeyAsciiAsInteger)IfKeyAscii65OrKeyAscii90ThenPrint输入有错误，请使用大写字母“‘KeyAscii=0ElsePrint输入正确!EndIfEndSub如果希望输入的小写字母不出现在文本框中(即错误的输入内容不显示)，可以在程序中添加一条语句，KeyAscii=0在给出错误提示之后，KeyAscii的值置为0，这样输入的字符就不会在文本框中显示，可以确保文本框中只显示满足要求的大写字母。“清除”命令按钮的事件过程如下：PrivateSubcmdClear_Click()ClsEndSub文本框常用的属性有Text、TabStop、TabIndex、PasswordChar、ReadOnly、MultiLine、MaxLength、ScrollBars等。文本框所能识别的事件主要有Click、DblClick、Change、GotFocus、LostFocus、KeyPress、MouseDown、MouseUp、MouseMove等。文本框能使用的方法主要有Drag、Move、SetFocus等。文本框既可以用于输入文字，又可以用于输出信息，使用起来很方便。但是有时只需要显示某些信息，而不需要在程序运行时向它输入信息，这时最好不用文本框，以免因为误操作而改变文本框中的内容。用VB标签的常用属性有下述8种。5.2使用标签控件显示字符信息（1）Alignment属性：用于指定在标签上显示信息的位置（0——左对齐、1——右对齐、2——（2）AutoSize属性：用于设置标签的大小是否自动按标签中所显示的内容的多少（3）BorderStyle属性：用于设置标签有无边框。（4）Caption属性：（5）Left属性：用于设置标签与窗体左边界之间的距离。（6）Name属性：（7）Top属性：用于设置标签与窗体上边界之间的距离。（8）WordWrap属性：用于设置标签中所显示的内容能否自动折行。【例8】修改例1，使用标签为每个文本框加上说明，以便使各个文本框的作用一目了然，如图所示。Note：（1）设置属性后，该属性并不会自动撤销，只有在显式地重新设置后，才能改变该属性的值。•设置字体颜色，1）用通用对话框。在部件下添加microsoftCommonDialogCommonDialog1.ShowColor显示颜色对话框3p2992p167Label1.ForeColor=CommonDialog1.Color•或者CommonDialog1.Flags=&H107设置对话框属性3p3072p174CommonDialog1.ShowFontLabel1.ForeColor=CommonDialog1.ColorLabel1.FontName=CommonDialog1.FontName2）用qbcolor函数Label1.ForeColor=qbcolor（1）设置为蓝色0黑色8灰色1兰色9亮兰色2绿色10亮绿色3青色11亮青色4红色12亮红色5洋红色13亮洋红色6黄色14亮黄色7白色15亮白色