cumentFile 属 性

返回文件名 由该文件创建一个嵌入或链接的对象 设计时 指定链接文件名 对于一个已有的对象 运行和设计时只读 但在对象生成时可以设置

语 法

Ob jec t.DocumentFile[ = cFileNam e]

参 数 描 述

cFileName

指 定 文 件 名 由 该 文 件 创 建 一 个 嵌 入 或 链 接 的 对 象 该 文 件 名 包 括 该 文 件 的完 整 路 径

说 明

DocumentFile 包含了嵌入 不是链接 对象的空字符串

最初向表单上添加 OLE 容器时 通过 插入对象 对话框为链接的 OLE 对象设置DocumentFile 属性 也可以在 APPEND GENERAL 命令创建 OLE 对象或以代码作为类定义的一部分来定义对象时 设置该属性

在用 DocumentFile 属性指定 OLE 对象的内容前 通过设置对象的 OLEClass 属性来指定 Automation 服务应用程序

示 例

下面的示例向一个表单中添加一个 OLE 容器控件 并使用 DocumentFile 和 OleClass 属性来指定一个 Excel 工作表作为要编辑的文件 指定 Excel 作为 OLE 服务器DocumentFile 属性在 EXCEL 目录中指定一个名为 BOOK1.XLS 的工作表 如果在DocumentFile 属性中指定的文件和目录不存在 这个示例将不能正确地执行

DoVerb 方法用于激活要编辑的工作表frmMyForm = CREATEOBJECT('form') && 创建一个表单frmMyForm.Closable = .F. && 控件 菜单框无效

frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn') && 添加命令按钮

frmMyForm.AddObject("oleObject","oleExcelObject") && 添加 OLE 对象

frmMyForm.cmdCommand1.Visible=.T. && 显示 退出 命令按钮

frmMyForm.oleObject.Visible=.T. && 显示 OLE 控件

frmMyForm.oleObject.Height = 50 && OLE 控件高度

frmMyForm.Show && 显示表单frmMyForm.oleObject.DoVerb(-1) && -1 用于编辑READ EVENTS && 启动事件处理

DEFINE CLASS oleExcelObject as OLEControl OleClass ="Excel.Sheet" && 服务器名

= "C:\EXCEL\BOOK1.XLS" && 此文件必须存在

ENDDEFINE

DEFINE CLASS cmdMyCmdBtn AS CommandButton && 创建命令按钮

Caption = '\<Quit' && 命令按钮的标签Cancel = .T. && 默认 取消 按钮 (Esc) Left = 125 && 命令按钮列

Top = 210 && 命令按钮行Height = 25 && 命令按钮高度PROCEDURE Click

CLEAR EVENT && 停止事件处理 关闭表单

ENDDEFINE

应 用 于

OLE 绑定型控件 OLE 容器控件

请 参 阅

APPEND GENERAL , CREATEOBJECT , OLEClass