vf表单设计

【例1】若某表单中有一个文本框Text1和一个命令按钮组CommandGroup1，其中，命令按钮组包含了Command1和Command2两个命令按钮。如果要在命令按钮Command1的某个方法程序中访问文本框Text1的Value属性值，下列句子中正确的是________。

（A）This.ThisForm.Text1.Value （B）This.Parent. Text1.Value

（C）Parent.Parent. Text1.V alue （D）This.Parent. Parent.Text1.Value

（注：答案（D）属于相对引用方式，如果使用绝对引用方式，则应写为：Form1.Text1.Value）【例2】在表单中加入两个命令按钮Command1和Command2，编写Command1的Click 事件代码如下，则当单击Command1后，________。

ThisForm. Parent. Command2.Enabled=.F.

（A）Command1命令按钮不能激活

（B）Command2命令按钮不能激活

（C）事件代码无法执行

（D）命令按钮组中的第二个按钮不能激活

（注：

①①命令按钮的Enabled属性值为.F.时，该控件将以浅色显示，表示此按钮

当前无效。

②②ThisForm. Parent. Command2.Enabled=.F.事件代码的功能实际将当前表

单的父对象中的命令按钮Command2的Enabled属性值设置为.F.。答案（C）

该事件代码无法执行，是因为对Command2对象的引用和描述不正确。

③③如果要使Command2命令按钮不能激活，正确的事件代码应为：

This. Parent. Command2.Enabled=.F.

即将当前对象（命令按钮Command1）的父对象（当前表单）中的Command2命令按钮的Enabled属性值设置为.F.。）

【例2】可选择不同字体的表单

操作步骤如下：

1. 1.打开“表单设计器”或“MODIFY FORM……”

2. 2.添加两个标签、一个文本框、一个选项按钮组、一个命令按钮，放在合适位

置并调整其大小。

3. 3.设置属性：

控件名称属性名设置值

Label1 Caption 请输入文本内容：

FontSize 18

AutoSize .T.

Label2 Caption 请选择字体：

AutoSize .T.

FontSize 18

Text1 FontBold .T. &&设定为粗体字

FontSize 26

ForeColor 0,0,255 &&设置文本为蓝色Command1 Caption 关闭

注：有关颜色设置

RGB函数能返回一种颜色，它的格式为：

RGB(nRedValue，nGreenValue，nBlueValue)

其中3个参数分别表示颜色中含有红、绿、蓝的成分，范围都是0～255。

在属性窗口可以查看RGB参数。

4. 4.设置选项按钮组Optiongroup1：右击——生成器——在“按钮”选项卡中设

置按钮数为4，将表格标题列的4项标题分别设置为：“黑体”、“宋体”、“隶书”、

“楷体”；在“布局”选项卡中设置4个按钮的适当间隔。

5. 5.Optiongroup1的Click事件代码：

Do case

Case this.value=1

thisform.text1.fontname="黑体"

case this.value=2

thisform.text1.fontname="宋体"

case this.value=3

thisform.text1.fontname="隶书"

case this.value=4

thisform.text1.fontname="楷体_GB2312"

Endcase

6. mand1的Click事件代码：

THISFORM.RELEASE

注：上述Click事件代码也可以写成：RELEASE THISFORM

两种写法的区别在于：

THISFORM . RELEASE是调用本表单的RELEASE方法程序，因此，THISFORM后面要加上引用格式中的点号；而RELEASE THISFORM 中的RELEASE是VFP命令，因此，RELEASE后面不需要加上引用格式中的点号。

7.7.保存表单

8.8.运行表单

【例3】在表单上部设计一个向左移动的字幕（Visual FoxPro 6.0），在下部设计一个数字时钟。

操作步骤如下：

1. 1.打开“表单设计器”或“MODIFY FORM……”

2. 2.添加两个标签放在合适位置并调整其大小，再添加两个计时器。（计时器位

置任意，在表单执行时见不到计时器）。

3. 3.设置属性：

控件名称属性名设置值

Form1 Caption 移动字幕和时钟

Label1 Caption Visual FoxPro 6.0

AutoSize .T.

FontSize 18

BackStyle 0 &&使之透明

Label2 AutoSize .T.

FontSize 18

Timer1 Interval 200 &&为Label1移动周期

Timer2 Interval 1000 &&为Label2刷新周期

4. 4.Timer1的Timer事件代码：

IF bel1.Left+bel1.Width<0

bel1.Left=bel1.Width

ELSE

bel1.Left=bel1.Left-10

ENDIF

5. 5.Timer2的Timer事件代码：

IF bel2.Caption!=Time()

bel2.Caption=Time()

ENDIF

注：

①计时器是一种周期性的按时间间隔自动执行其Timer事件代码的控件，它在应用程序中主要用于处理可能规律的、反复发生的动作。