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

* * 第8章 自定义属性与方法 8.1 自定义属性 8.2 自定义方法 8.1 自定义属性 8.1.1 添加自定义属性 按照以下步骤，可以在表单中添加一个自定义的属性Sec： ① 进入表单设计器，单击系统主菜单中“表单”项，在下拉菜单中选择“新建属性”（如图8-1），打开新建属性对话框。 ② 在“名称（Name）”栏中填入自定义属性的名称Sec，然后在“说明”栏中填入该属性的简单说明：“记录初始秒数”（如图8-2左）.说明内容非必需的，只是为了阅读程序方便。 ③ 单击“添加”按钮后再单击“关闭”按钮，退出“新建属性”对话框。此时，在属性窗口的“其他”选项卡中可以看见新建的属性及其说明，新定义属性的类型为逻辑型，值为：.F.，我们可以将它改为其他类型，如数值型值：0（如图8-2右）。 【例8-1】设计一个计时器，能够设置倒计时的时间，并进行倒计时。 设计步骤如下： ① 添加自定义属性。选择“新建”表单，进入表单设计器，首先在表单中添加一个自定义属性Sec，用以记录“秒表”的初始时间。 ② 建立应用程序用户界面与设置属性。在表单中增加一个命令按钮Command1，一个文本框Text1，一个微调器Spinner1和一个计时器控件Timer1，如图8-3左所示。 其中，计时器控件Timer1可以放在表单的任何位置。 属性设置参见表8-1。 0 Value 0 SpinnerLowValue 120 SpinnerHighValue 0 KeyBoardLowValue 120 KeyBoardHighValue Spinner1 .F.-假 Enabled 1000 Interval Timer1 开始 Caption Command1 说明 属性值 属性 对象 ③ 编写代码。 编写微调器Spinner1的InteractiveChange事件代码： THISFORM.sec = THIS.Value * 60 a1 = THIS.Value a2 = IIF(a1 % 60 10,0 + STR(a1 % 60,1),STR(a1 % 60,2)) a3 = STR(INT(a1 / 60),1) THISFORM.Text1.Value=0 + a3 +: + a2 +:00 IF a1 0 THISFORM.Command1.Enabled = .T. ELSE THISFORM.Command1.Enabled = .F. ENDIF 编写命令按钮Command1的Click事件代码： THISFORM.Timer1.Enabled=.T. THISFORM.Spinner1.Enabled=.F. THIS.Enabled=.F. 编写计时器Timer1的Timer事件代码： THISFORM.sec=THISFORM.sec–1 a0 = THISFORM.sec 秒数 IF a0 –1 a1 = INT(a0 / 60) 分钟数 a2 = INT(a1 / 60) 小时数 b0 = IIF(a0 % 60 10,0 + STR(a0 % 60,1),STR(a0 % 60,2)) b1 = IIF(a1 % 60 10,0 + STR(a1 % 60,1),STR(a1 % 60,2)) b2 = IIF(a2 % 60 10,0 + STR(a2 % 60,1),STR(a2 % 60,2)) THISFORM.Text1.Value = ALLT(b2 +: + b1 + : + b0) THISFORM.Spinner1.Value = a1 ELSE THIS.Enabled=.F. MESSAGEBOX(预定的时间到了！,0,倒计时) THISFORM.Spinner1.Enabled=.T. ENDIF 运行程序，设置时间后按“开始”按钮，即开始倒计时，时间到时将弹出对话框（图8-3中、右）。 8.1.2 数组属性 数组属性是一组具有不同下标的同名属性，可以在任何使用数组的地方使用数组属性。 【例8-2】在例7-3中使用数组属性来存放方阵的元素。求出主对角线上元素之和以及方阵的最大元素。 设计步骤如下： ① 添加自定义属性。选择“新建”表单，进入表单设计器，首先在表单中添加一个自定义的数组属性A(5,5)。 ② 建立应用程序用户界面与设置属性与