Visual FoxPro 程序设计教程 刘瑞新 第10章新.ppt

cfile = GETFILE() IF cfile != nhandle = FOPEN(cfile) nend = FSEEK(nhandle,0,2) IF nend = 0 = MESSAGEBOX(文件是空的) ELSE = FSEEK(nhandle,0,0) _VFP.ActiveForm.Edit1.Value = FREAD(nhandle,nend) _VFP.ActiveForm.Caption = cfile = FCLOSE(nhandle) ENDIF ENDIF CASE BAR() = 3 DO Save CASE BAR() = 4 DO Save0 ENDCASE _VFP.ActiveForm.Refresh _VFP.ActiveForm.Edit1.SetFocus 关闭编辑器，返回菜单设计器。在“退出”选项的右边填入命令： _VFP.ActiveForm.Release 说明：“编辑”子菜单中的系统菜单项无须编写任何代码。 ④ 生成菜单码。完成菜单的定义后，选择主菜单“菜单”中的“生成”，选择“是”，在“另存为”对话框中输入菜单名Menu1，“确定”后显示“生成菜单”对话框，单击“生成”钮，生成菜单程序Menu1.mpr，至此完成菜单的创建工作。 (2) 设计表单 ① 建立应用程序用户界面。选择“新建”表单，进入表单设计器，增加一个“编辑框”Edit1，如图10-19所示。 ② 设置对象属性，见表10-4。 2 – 作为顶层表单 ShowWindow 表单的标题 未命名 Caption Form1 说明 属性值 属性 对象 ③ 编写程序代码。 编写表单的事件代码： Resize事件： WITH THIS.Edit1 .Top = 0 .Left = 0 .Height = THIS.Height .Width = THIS.Width ENDWITH Init事件： SET EXACT ON DO menu1.mpr WITH THIS, .T. 编写编辑框Edit1的InteractiveChange事件代码： THISFORM.Tag = T (3) 运行表单 运行表单即得到一个有相当功能的简易文本编辑器，如图10-12所示。 10.1.6 在MDI表单中使用菜单 下面给出一个MDI表单的应用实例——多文本编辑器。多文本编辑器可以同时打开多个文本文件，还可以在各个文本之间进行“复制”、“粘贴”等编辑操作（如图10-20）。 【例10-3】设计一个简易的多文本编辑器。 设计步骤如下： (1) 设计菜单 ① 菜单界面。编辑器的菜单系统含有“文件”、“编辑”和“窗口”等3个子菜单，其中“文件”子菜单的菜单选项如图10-21所示。 “编辑”和“窗口”子菜单均由系统菜单项组成（参见例10-2）。其中，“编辑”子菜单的菜单选项参见例10-2，“窗口”子菜单的菜单选项如图10-22所示。 特别地，还在“菜单选项”对话框中将“窗口”菜单的“名称”改为_mwindow，这是系统菜单名，可以在该菜单中列出每个打开的子表单的标题。 最后，还要在“常规选项”对话框中选中“顶层表单”复选框（如图10-3所示）。 ② 菜单代码。当“菜单设计器”进入“文件”子菜单时，用鼠标选择系统菜单中的“显示”中的“菜单选项”。为“文件”菜单编写通用过程代码： DO CASE CASE BAR() = 1 新建 fform..new 运行主表单中的自定义方法：new CASE BAR() = 2 打开 fform..open 运行主表单中的自定义方法：open CASE BAR() = 5 保存 _VFP.ActiveForm.save 运行子表单中的自定义方法：save CASE BAR() = 6 另存 _VFP.ActiveForm.save0 运行子表单中的自定义方法：save0 ENDCASE _