第6章常用表单控件的剖析.

《第6章常用表单控件的剖析.》由会员分享，可在线阅读，更多相关《第6章常用表单控件的剖析.（189页珍藏版）》请在金锄头文库上搜索。

1、第6章 常用表单控件的使用,重点：常用控件、表单设计,内 容 导 航,学习提要,教学内容,要点回顾,习题/实验,学习提要与目标,熟练掌握输出、输入 、控制和容器类控件的属性、事件和方法 根据实现任务的不同，熟练选择合适的控件 运用常用的控件设计基本表单 熟悉链接与嵌入类控件使用方法,返回,目 录,6.1 输出类控件 6.2 输入类控件 6.3 控制类控件 6.4 容器类控件 6.5 链接与嵌入类控件,Visual FoxPro为我们提供了二十多种控件供设计时使用。根据这些控件的使用功能大致可分为输出类、输入类、控制类、容器类、连接类五大类控件。 以上的分类着眼于控件的基本功能，其实每个控件含有

2、多种功能。例如，大部分控件都可起控制作用，因为它们都含有单击事件；又如文本框既能输入也能输出；等等。本章将逐一介绍这些控件的基本用法。,6.1 输出类控件,输出显示类控件主要有标签（Label）、图像(Image)、线条（Line）和形状（Shape）。这些控件有各自的属性和事件，虽然标签、图像、线条和形状也定义了诸如单击（Click）、双击（DblClick）等事件，但一般较少使用。在此重点介绍输出类控件的属性。,6.1.1 标签（Label）,标签在控件工具栏中的图标是：“A”。按照标签放入表单的顺序，标签的默认名称为Label1、Label2等。 标签的主要功能是在表单上显示用作说明或提

3、示的文本信息，这与我们日常用的标签类似。标签没有数据源，在表单运行中不能获得焦点,标签的常用属性,标签的常用属性,Left、Top、Height、Width属性说明,6.1.2 图像(Image)、线条（Line）与形状（Shape）,1. 图像(Image) 图像在控件工具栏中的图标是：“”。按照放入表单的顺序，图像控件的默认名称为Image1、Image2等。 图像的主要功能是用来显示图片的。,图像常用属性,例如，要显示如下图像，就需要用图像控件，设置其Picture属性为：图像路径FOX.BMP， 设置Stretch属性为1-等比填充，设置BackStyle属性为0-透明。,2. 线条（

4、Line）和形状（Shape） 线条（Line）和形状（Shape）都是图形控件。这里一定要区别开图像控件和图形控件，图像控件操作的对象是“像”，它不是用户现场画的，而是事先保存好的图像文件。而图形控件操作的对象是“形”，是在设计或运行时画的图形，如线、几何图形等。,形状的常用属性,例如，要在表单中画一个红色的球，就需要用形状控件，设置其Width和Height均为100，Curvature为99，FillStyle为0-实线，Fillcolor为RGB(255,0,0)（或当BackStyle为1-不透明时，设BackColor为RGB(255,0,0)）。,【例6.1】设计如图6-3所示的

5、一个显示表单。要求：放一幅图片并配上诗。图片用两个形状作外框，诗句采用竖排、华文行楷、20号、白底、蓝字显示。,设计步骤：,（1）新建表单，设置表单的Caption属性为：“诗画”； （2）放入图像控件，在属性窗口设置其Picture与图片连接，调整图像大小并设置Stretch为等比填充。 （3）为图像框一个形状，设置形状的SpecialEffect为3维，用布局工具栏或格式菜单使形状置后，并调整大小使其框住图像。同样再放入一个形状。本例用了2个形状来修饰图像。 （4）放入一个标签，设置其Caption为诗句，设置其AutoSize为.T.，WordWrap为.T.，往左挤压文字使之竖排。放入

6、其他三个标签，同样做上面的设置。 （5）按住“Shift”键，选中所有写上诗句的标签，设置它们以华文行楷、20号、白底、蓝字显示，然后调整好布局。 （6）保存、运行即可。,6.2 输入类控件,输入类控件主要有文本框（TextBox）、编辑框（EditBox）、列表框（ListBox）与组合框（ComboBox）、微调（Spinner）等。如果将文本框（TextBox）、编辑框（EditBox）的只读属性ReadOnly设置为.T.，通常也可以作为输出显示的控件。,6.2.1 文本框（TextBox）,文本框在控件工具栏中的图标是：“”。按照文本框放入的顺序，文本框的默认名称为Text1、Tex

7、t2等。 文本框是表单设计中用到较多的控件。它既能接收用户的输入，也能输出指定的信息。文本框可以设置数据源，允许用户用文本框编辑保存在表中的非M、非G型数据，也可以通过Value属性赋值或读取文本框的当前值。,1文本框TEXT的常用属性,InputMask属性决定了键入到文本框中字符的特性,2. 文本框的常用方法 格式：控件. SetFocus 功能：为一个控件指定焦点，即确定当前操作的对象。 应用于：复选框、列、组合框、命令按钮、容器对象、控件对象、编辑框、表格、列表框、OLE绑定型控件、OLE容器控件、选项按钮、微调和文本框。 说明：如果控件的Enabled或Visible属性设置为“假”

8、(.F.)，或者控件的When事件返回“假”(.F.) 例如：Thisform.Text1.SetFocus &表单中的Text1获得焦点,文本框的常用事件,3. 文本框的常用事件 （1）Init：创建对象时发生。 说明：容器中各对象的Init事件在容器的Init事件之前触发，所以，对于各对象的初始化处理一般都集中写在表单的Init事件中。 （2）When: 在控件接收焦点之前此事件发生。 （3）GotFocus：当控件接收到焦点时触发。 （4）Valid：在控件失去焦点之前发生。 说明：Valid事件有返回值，默认返回.T.。若Valid事件返回.T.或1，则控件可以失去焦点，继续后续操作；

9、若返回.F.或0，则控件不能失去焦点，把光标锁定在控件上，不能进行后续的操作。此事件常用于输入时检验输入数据的正确性。 （5）LostFocus：当控件失去焦点时触发。 从上面各事件的触发时机可以看出，上述事件发生的先后顺序是：Init、When、GotFocus、Valid 、LostFocus。,文本框的Valid事件,此事件常用于输入时检验输入数据的正确性。 Valid事件有返回值，默认返回.T.。若Valid事件返回.T.或1，则控件可以失去焦点，继续后续操作；若返回.F.或0，则控件不能失去焦点，把光标锁定在控件上，不能进行后续的操作。,口令验证,【例6.2】编写一个口令验证窗口，当

10、输入的口令正确则显示欢迎的提示信息，不正确则要求重新输入口令。,口令验证,（1）问题分析 检验口令的正确性只需要编写文本框的Valid事件代码即可。不显示口令设置文本框的PassWordChar属性为“*”，为了方便下次输入，设置SelectOnEntry为.T.，即选中文本。 （2）设计步骤 建立表单，放入标签和文本框控件。 在属性窗口设置属性：表单Form1的Caption、文本框Text1的PassWordChar=*和SelectOnEntry=.T.属性。 编写文本框Text1的Valid事件代码：,口令验证,编写文本框Text1的Valid事件代码： IF ALLTRIM(This

11、.Value)=“ABC” &精确比较,口令为 “ABC” =MESSAGEBOX(“欢迎使用本系统”) &利用消息框函 数显示提示 RETURN .T. &可以失去焦点，继续后面的操作 ELSE =MESSAGEBOX(“口令错，请再试一次!“) RETURN .F. &不能失去焦点，光标锁定在文本框上 ENDIF,口令或密码使用表中的职工号或姓名,验证口令时，到职工表中查找有无该职工号或姓名,6.2.2 编辑框（EditBox）,编辑框主要是用来处理长的字符型数据和备注型字段的，它是既能作输入也能作输出的控件。编辑框与文本框主要有以下区别： 编辑框只能处理字符型数据（备注型实际是长的字符型

12、数据），而文本框可以处理字符、数值、日期、逻辑等类型的数据。 编辑框可以处理多段文本，回车不退出，而文本框按回车即退出。,编辑框EDIT,编辑框的常用属性,【例6.3】设计一个表单，能在编辑框中输出一个对角线为0其余为1的一个矩阵。,（1）问题分析 这是一个输出二维图形的问题，根据第4章学习的知识，我们可以用双重循环来解此题，即外循环IN控制输出的行数，内循环JN控制每行输出的列数。只是当出现对角线，即I=J或I+J=N+1时，输出0。由于这是通过编辑框输出，因此，可以先将要输出的内容以字符串的格式保存在一个字符变量中，用函数CHR(13)实现回车换行，再把这个长字符串赋值给编辑框。这些处理写

13、在“显示”按钮的Click事件中。控制输入的数字为19，则需要写文本框的Valid事件,（2）设计步骤 新建表单，放入1个标签、1个文本框、1个命令按钮、1个编辑框。 在属性窗口设置Form1、Label1、Command1的Caption属性。 编写表单Form1的Init事件。 Thisform.Command1.Default=.T. Thisform.Text1.SelectOnEntry =.T. Thisform.Text1.Value=1 Thisform.Edit1.ReadOnly =.T.,编写命令按钮Command1（显示）的Click事件代码。,N=Thisform.T

14、ext1.Value &获取文本框的输入值 P=“ &长字符串的初值 FOR I=1 TO N &外循环控制输出的行数 FOR J=1 TO N &内循环控制输出的列数 IF I=J OR I+J=N+1 &左对角线I=J,右对角线I+J=N+1 A=“ 0“ &对角线上元素赋值“0“,为输出清晰在零的前面加一空格 ELSE A=“ 1“ &非对角线上元素赋值“1“ ENDIF P=P+A &把每个字符连接起来 ENDFOR P=P+CHR(13) & 连接回车符 ENDFOR Thisform.Edit1.Value=P &把带回车符的长字符串赋值给编辑框 Thisform.Text1.Se

15、tfocus &焦点打到文本框上，为下次输入作准备 Thisform.Refresh,编写文本框Text1的Valid事件代码。 IF This.Value9 OR This.Value1 =MESSAGEBOX(“输入错,请重新输入!“) Return .F. ELSE Return .T. ENDIF Thisform.Refresh,6.2.3 列表框（ListBox）与组合框（ComboBox）,列表框（ListBox）与组合框（ComboBox）主要是用于给用户提供预先设定的多种选项，极大地方便了用户的输入。,1.列表框（ListBox）,（1）列表框的常用属性,RowSourceT

16、ype属性选项说明 0-无 1-值 2-别名 3-SQL语句 4-查询(.QPR) 5-数组 6-字段 7-文件 8-结构 9-弹出式菜单,（2）列表框的常用方法 AddItem方法： 格式：控件.AddItem(cItem , nIndex , nColumn) 功能：在组合框或列表框中添加一个新数据项。 应用于：组合框和列表框。 RemoveItem方法： 格式：控件. RemoveItem ( nIndex) 功能：从组合框或列表框中移去一项。 应用于：组合框和列表框。,Clear方法 格式：对象.Clear 功能：清除列表框或组合框中的文本。 应用于：列表框和组合框。,列表框的常用事件,（3）列表框的常用事件 列表框常用到InteractiveChange事件. 它的触发时机是：在使用键盘或鼠标更改控件的值时，此事件发生。该事件可应用于