《Visual FoxPro 6.0基础知识 第十章》由会员分享，可在线阅读，更多相关《Visual FoxPro 6.0基础知识 第十章（107页珍藏版）》请在金锄头文库上搜索。
1、第十章 常用的表单控件,VFP在面向对象开发环境中，是通过在表单上放置控件来完成信息的输入设计工作的。在设计表单时可以使用两类控件：与表中数据捆绑的控件和不与数据捆绑的控件。所谓捆绑控件是指当输入或选择的值要保存或者被引用时，就需为该控件设置一个数据源，数据源可以是表中的字段或变量。对于数据源是变量或字段的控件，则需要设置控件的ControlSource属性；若数据源是整个表中的数据，则需要设置RecordSource属性。而非捆绑控件则不与数据源直接捆绑。,10.1 标签控件（Label） 标签控件 ：它是一个显示文本图形的控件，在设计时可以直接修改其中的文本，标签具有自己的一套属性、事件和
2、方法，能够响应绝大多数鼠标事件，可以在运行时动态地改变标签文本。可以使用TabIndex属性为标签指定一个Tab次序，但标签并不能获得焦点，而是将焦点传递给Tab键次序中紧跟着标签的下一个控件。,常用的标签属性： Caption属性 用于指定标签的标题文本，最多可包含的字符数量为256。标签文本显示在屏幕上以帮助用户识别各个对象。用户在产生表单或控件对象时，系统给予对象的Caption属性值和Name属性值是相同的，此时用户应特别注意它们的区别。 用户在为控件设置Caption属性时，可以将其中的某个字符作为热键，方法是在该字符前插入一个反斜杠（）和一个小于号（）。,AutoSize属性 该属
3、性用于确定是否根据标题的长度来调整标签的大小。 Alignment属性 该属性指定标题文本在控件中显示时的对齐方式。对于不同的控件，该属性的设置是有区别的。对于标签，该属性的设置值如下表所示。,BackStyle属性 该属性用于确定标签是否透明。当标签控件完全处于另一个控件的上方时，标签将遮住下方的控件，此时若标签控件的BackStyle属性设置为0，则下方的控件将透过标签显示出来。 WordWrap属性 该属性用于确定标签上显示的文本能否换行。前提是AutoSize属性值应设置为.T.。 FontSize属性 该属性确定标签上显示的文本字体的大小。 ForeColor属性 该属性用于确定标签
4、上显示的文本字体的颜色。,【例10.1】交换两个变量中的数据（如下图1所示）。,设计步骤如下： 建立应用程序用户界面。 选择“新建”表单，进入表单设计器，增加一个命令按钮Command1，4个标签Label1、Label2、Label3、Label4（如图10-3左所示）。 设置对象属性（如表10-2），设置完成之后的界面如图10-3右所示。,编写程序代码。 *编写命令按钮Command1的Click事件代码： t= Thisform.Label3.Caption Thisform.Label3.Caption= Thisform.Label4.Caption Thisform.Label4.
5、Caption=t 运行程序，单击“交换”按钮，即可看到两个白框中的数据相互交换。,10.2 命令按钮控件（Command） 命令按钮一般是用于启动某一动作的事件（如关闭表单、移动记录等）。这些事件的操作代码通常是放置在命令按钮的Click事件中。当用户需要完成某项特定的操作时，可单击此命令按钮。,常用属性： Dfault属性和Cancel属性 Default属性值为.T.的命令按钮称为“确认”按钮。命令按钮的Default属性的默认值为.F.。一个表单内只能有一个“确认”按钮，当用户将某个命令按钮设置为“确认”按钮时，先前存在的“确认”按钮将自动变为“非确认”按钮。 “确认”按钮的行为要受到
6、KEYCOMP设置（DOS或WINDOWS）的影响。在“确认”按钮所在的表单激活的情况下，“确认”按钮的行为如下表所示。,Cancel属性值为.F.的命令按钮称为“取消”按钮。命令按钮的Cancel属性默认值为.F.。在“取消”按钮所在的表单激活的情况下。按Esc键即可激活“取消”按钮，执行该按钮的Click事件代码。 这两个属性在设计和运行阶段都可使用，主要适用于命令按钮。,Enabled属性 指定表单或控件能否响应由用户引发的事件。默认值为.T.，即对象是有效的，能被选择，能响应用户引发的事件。 Enabled属性使得用户（程序）可以根据应用的当前状态随时决定一个对象是有效的还是无效的，也
7、可限制一个对象的使用（如用一个无效的编辑框来显示只读信息）。 值得注意的是，若一个容器对象的Enabled属性值为.F.，那么它所包容的所有对象也都不会响应用户引发的事件，而无论这些对象的Enabled属性值如何。,Visible属性 指定对象是可见还是隐藏。在表单设计器中，默认值为T.，即对象是可见的；在程序代码中，默认值为.F.，即对象是隐藏的。但是一个对象即使是隐藏的，在代码中仍可以访问它。 Caption属性 该属性决定在命令按钮上显示的标题文本。,【例10.2】利用命令按钮以实现显示状态的切换（如下图所示）。,设计步骤如下： 建立应用程序用户界面： 选择“新建”表单，进入表单设计器，
8、增加2个命令按钮Command1、Command2，一个标签Label1。 设置对象属性,编写程序代码。 *编写Command1的Click事件代码： IF This.Caption=“H欢迎“ Thisform.Label1.Caption=“欢迎使用“+CHR(13)+“Visual FoxPro 6.0“ This.Caption=“D日期“ ELSE Thisform.Label1.Caption=“今天是：”+CHR(13)+STR(YEAR(DATE( ),4)+； 年+STR(MONTH(DATE( ),2)+月+STR(DAY(DATE( ),2)+日 This.Caption
9、=“H欢迎“ ENDIF *编写Command2的Click事件代码： Thisform.Release( ),10.3 文本框控件（Text） 文本框控件是VFP中一种常用的控件。用户利用它可以在内存变量、数组元素或非备注型字段中输入或编辑数据。所有标准的VFP编辑功能（如剪切、复制和粘贴），在文本框内都可使用，文本框一般包含一行数据，文本框可以编辑任何类型的数据（如字符型、数值型、逻辑型、日期型或日期时间型等）。,常用属性： Value属性 该属性返回文本框的当前内容。它的默认值为空串。 PasswordChar属性 该属性指定文本框控件内是显示用户输入的真实字符还是显示占位符。该属性的默
10、认值为空串，此时没有占位符，文本框内显示用户输入的真实字符；当为该属性指定一个字符（即占位符，通常为*）后，文本框内将显示占位符，而不会显示用户输入的实际字符。这通常用于在设计登录口令框时使用。此属性不会影响Value属性的设置，Value属性总是包含用户输入的实际内容。 该属性在设计和运行阶段时可用，仅适用于文本框。,InputMask属性 该属性指定在一个文本框如何输入和显示数据。 InputMask属性值是一个字符串。该字符串通常由一些所谓的模式符组成，每个模式符都规定了相应位置上数据的输入和显示行为。,【例10.3】利用文本框输入圆的半径，计算圆的面积。 设计步骤如下： 建立应用程序用
11、户界面。 选择“新建”表单，进入表单设计器，增加两个“文本框”控件Text1和Text2，两个标签控件Label1和Label2，两个命令按钮Command1和Command2（如下图所示）。. 设置对象属性（如表10-6所示），设置完成之后如下图所示。,编写程序代码。 *编写表单Form1的Activate事件代码： This.Text1.SetFocus *编写Command1的Click事件代码： a= Thisform.Text1.Value Thisform.Text2.Value=a*a*3.14159 Thisform.Text1.Setfocus *编写Command2的Cli
12、ck事件代码： Thisform.Release,【例10.4】设计一个接受口令的表单，屏幕只显示相同个数的“*”号，并控制用户输入口令的次数。 设计步骤如下： 建立应用程序用户界面。 选择“新建”表单，进入表单设计器，增加两个标签控件Label1和Label2，一个命令按钮Command1，一个文本框控件Text1（如图10-8左所示）。 设置对象属性（如表10-7所示），设置完成之后如图10-8右所示。,编写事件代码。 *编写表单Form1的Activate事件代码： PUBLIC n &定义全局变量 n=0 &赋初值 This.Command1.Enabled=.F. *编写命令按钮Co
13、mmand1的Click事件代码： Thisform.Release *编写文本框Text1的Valid事件代码： a=LOWER(This.Value) IF a=“abcdef“ Thisform.Label2.Caption=“欢 迎 使 用 ！“ Thisform.Command1.Tabstop=.T. ELSE Thisform.Label2.Caption=“对不起，口令错！“ This.Value=“ n=n+1 IF n=3 Thisform.Label2.Caption=“对不起，您无权使用！“ Thisform.Command1.Tabstop=.T. This.Enab
14、led=.F. Thisform.Command1.Enabled=.T. ENFIF ENDIF,10.4 计时器控件（Timer） 计时器控件允许在指定的时间间隔内执行操作和检查数据。计时器控件与用户的操作相互独立。它对时间作出反应，可以让计时器以一定的时间间隔重复地执行某种操作。计时器通常用于检查系统时钟，确定是否到了应该执行某一任务的时间，对于其他一些后台处理，计时器也很有用。在运行时，计时器是不可见的，但它一直在后台计时。,Enabled属性 该属性用于确定计时器是否开始计时。当属性值为.F.，时，计时器停止计时；当属性值为.T.时，计时器开始计时。 Interval属性 该属性确定
15、计时器Timer事件的两次引发的时间间隔。它的单位是毫秒。 间隔并不能保证经历的时间的精确度。系统每秒产生18次时钟跳动，因此间隔的真正精度不会超过1/18s。若应用程序向系统提交繁重的任务（如很长的循环、大量的计算、或磁盘、网络、端口的访问等），则应用程序不能按Interval属性指定的频率来引发计时器事件。,【例10.5】设计一个电子动感标题板，使“2008年北京奥运会”的标题字样在表单的黄色区域内从左至右运动。当单击“暂停”按钮时，使标题停止移动，按钮变为“继续”；当单击“继续”按钮时，标题继续移动，按钮又变为“暂停”(如下图所示)。,设计步骤如下： 建立应用程序用户界面。 选择“新建”
16、表单，进入表单设计器，增加一个命令按钮Command1，一个容器控件Container1，用鼠标右键单击容器控件，在弹出的快捷菜单中选择“编辑”，开始对容器进行设计。在容器中增加一个标签控件Label1和一个计时器控件Timer1（如图10-11左所示）。 设置对象属性（如表10-8所示），设置完成之后如图10-11右所示。,编写程序代码。 *编写Command1的Click事件代码： IF This.Caption=“0 This.Parent.Label1.Left=This.Parent.Label1.Left-5 ELSE This.Parent.Label1.Left=This.Parent.Width ENDIF,10.5 编辑框控件（Edit） 在VFP中文本框只能处理单行的文本数据，处理多行文本数据则需要使用编辑框控件来完成。与文本框一样，编辑框也可用于输入、编辑数据，但是它也有自己的特点： 编辑框实际上是一个完整的字处理器，利用它可选择、剪切、粘贴和复制文本；可以实
