Visual FoxPro 程序设计教程 刘瑞新 第9章新.pptVIP

* * 第9章 表单集与多重表单 9.1 表单集 9.2 多重表单 9.1 表单集 9.1.1 创建表单集 表单集是在“表单设计器”中创建的。 无论是建立一个新表单还是打开已有的表单，进入“表单设计器”后，从主菜单中，选择“表单”菜单中的“创建表单集”，即可创建一个新的表单集FormSet1，如图9-1所示。 9.1.2 表单集的应用 【例9-1】使用表单集设计的电子标题板程序（如图9-2所示）。 设计步骤如下： ① 设计“控制”表单。选择新建表单，进入表单设计器，调整表单设计器中第一个表单（Form1）的形状，在表单中增加一个编辑框Edit1、一个选项按钮组OptionGroup1、一个标签Label1和3个命令按钮Command1～Command3。 表单中各对象属性的设置参见图9-3。 ② 创建表单集。在主菜单中选择“表单”中的“创建表单集”，如图9-1所示，创建一个包含原有“控制”表单的表单集FormSet1。 然后再在“表单”菜单中选择“添加新表单”，表单设计器中出现第二个表单(Form2)。在Form2中增加一个标签Label1和一个计时器Timer1，如图9-4所示。 ③ 新建自定义方法。在“表单”主菜单中选择“新建方法程序”，为表单集创建自定义方法Yidong()。 编写表单集的自定义方法Yidong()的代码： DO CASE CASE THIS.Tag = 1 用MOVE方法向上向左移动 20 线 THIS.Form2.Label1.Move( THIS.Form2.Label1.Left – 3, THIS.Form2.Label1.Top – 3) IF THIS.Form2.Label1.Left = 0 THIS.Tag = 2 如果到达表单左边界，向上向右移动 ELSE IF THIS.Form2.Label1.Top = 0 THIS.Tag = 4 如果到达表单顶端，向下向左移动 ENDIF ENDIF CASE THIS.Tag = 2 向上向右移动 20 线 THIS.Form2.Label1.Move( THIS.Form2.Label1.Left + 3, THIS.Form2.Label1.Top – 3) IF THIS.Form2.Label1.Left = (THIS.Form2.Width – THIS.Form2.Label1.Width) THIS.Tag = 1 如果到达表单右边界，向上向左移动 ELSE IF THIS.Form2.Label1.Top = 0 THIS.Tag = 3 如果到达表单顶端，向下向右移动 ENDIF ENDIF CASE THIS.Tag = 3 向下向右移动 20 线 THIS.Form2.Label1.Move( THIS.Form2.Label1.Left + 3, THIS.Form2.Label1.Top + 3) IF THIS.Form2.Label1.Left = (THIS.Form2.Width - THIS.Form2.Label1.Width) THIS.Tag = 4 如果到达表单右边界，向下向左移动 ELSE IF THIS.Form2.Label1.Top = (THIS.Form2.Height – THIS.Form2.Label1.Height) THIS.Tag = 2 如果到达表单底端，向上向右移动 ENDIF ENDIF CASE THIS.Tag = 4 向下向左移动 20 线 THIS.Form2.Label1.Move( THIS.Form2.Label1.Left – 3, THIS.Form2.Label1.Top + 3) IF THIS.Form2.Label1.Left = 0 THIS.Tag = 3 如果到达表单左边界，向下向右移动 ELSE IF THIS.Form2.Label1.Top = (THIS.Form2.Height – THIS.Form2.Label1.Height) THIS.Tag = 1 如果到达表单底端，向上向左移动 END