DoVerb 方 法

DoVerb 方 法 - 图1在指定的对象上执行一个动作

语 法

Ob jec t.DoVerb[( Verb )]

参 数 描 述

Verb

DoVerb 方 法 - 图2DoVerb 方 法 - 图3DoVerb 方 法 - 图4DoVerb 方 法 - 图5DoVerb 方 法 - 图6DoVerb 方 法 - 图7指 定 在 OLE 容 器 控 件 中 对 象 要 执 行 的 动 作 如 果 没 有 指 定 就 执 行 默 认 的动 作 此 参 数 值 可 以 是 所 有 对 象 都 支 持 的 某 个 标 准 动 作 或 是 ObjectVerbs 属 性 数 组 的 一 个 索 引 每 个 对 象 可 支 持 它 自 身 的 动 作 集

DoVerb 方 法 - 图8下 列 值 表 示 每 个 对 象 支 持 的 标 准 的 动 作

值 动 作

对象的默认动作

DoVerb 方 法 - 图9DoVerb 方 法 - 图10DoVerb 方 法 - 图11激活要编辑的对象 如果创建对象的应用程序支持现场激活 就在 OLE

DoVerb 方 法 - 图12容器控件中激活对象

DoVerb 方 法 - 图13DoVerb 方 法 - 图14DoVerb 方 法 - 图15在一个独立的应用程序窗口中打开对象 如果创建对象的应用程序支持现场激活 就在对象自身的窗口中激活对象

DoVerb 方 法 - 图16DoVerb 方 法 - 图17对于嵌入的对象 隐藏创建对象的应用程序

DoVerb 方 法 - 图18DoVerb 方 法 - 图19DoVerb 方 法 - 图20DoVerb 方 法 - 图21续 表如果对象支持现场激活 就以现场激活方式激活对象并显示任何用户界面工具 如果对象不支持现场激活 对象就不激活并产生错误

DoVerb 方 法 - 图22DoVerb 方 法 - 图23DoVerb 方 法 - 图24DoVerb 方 法 - 图25DoVerb 方 法 - 图26如果用户将焦点移到 OLE 容器控件中 就创建一个窗口 并准备要编辑的对象 如果对象不支持以鼠标单击的方式激活 就产生错误

DoVerb 方 法 - 图27DoVerb 方 法 - 图28DoVerb 方 法 - 图29当激活要编辑的对象时 用来放弃所有记录的更改 对象的应用程序可以撤消这些更改

说 明

DoVerb 方 法 - 图30DoVerb 方 法 - 图31DoVerb 方 法 - 图32DoVerb 方 法 - 图33DoVerb 方 法 - 图34DoVerb 方 法 - 图35DoVerb 方 法 - 图36如果将 AutoActivate 属性设置为 2 双击 那么 当用户双击控件时 OLE 容器控件就自动激活当前的对象

提 示

尽 管 可 以 使 用 动 作 名 DoVerb 方 法 - 图37 编 辑

打 开

播 放 等 DoVerb 方 法 - 图38 来 指 定 要 和

Doverb 一 起

使 用 的 动 作 但 使 用 索 引 0

1

2 等 会 更 快

DoVerb 方 法 - 图39DoVerb 方 法 - 图40DoVerb 方 法 - 图41DoVerb 方 法 - 图42DoVerb 方 法 - 图43DoVerb 方 法 - 图44示 例

DoVerb 方 法 - 图45DoVerb 方 法 - 图46DoVerb 方 法 - 图47The 下面的示例向一个表单中添加一个 OLE 容器控件 并使用 OleClass 和DocumentFile 属性指定 Excel 作为 OLE 服务器 指定一个 Excel 工作表作为要编辑的文件

DoVerb 方 法 - 图48DoVerb 方 法 - 图49DoVerb 方 法 - 图50DoVerb 方 法 - 图51The DocumentFile 属性在驱动器 C 上的 EXCEL 目录中指定一个名为 BOOK1.XLS 的工作表 如果 DocumentFile 指定的文件和目录不存在 此示例将不能正确地执行 可能有必要更新 DocumentFile 属性来指定一个存在的目录和工作表文件

DoVerb 方 法 - 图52使用 D o V erb 方法激活要编辑的工作表

*frmMyForm = CREATEOBJECT('form') && 创建一个表单

DoVerb 方 法 - 图53DoVerb 方 法 - 图54*frmMyForm.Closable = .F. && 使 控件 菜单框无效

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

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

DoVerb 方 法 - 图55DoVerb 方 法 - 图56frmMyForm.cmdCommand1.Visible=.T. && 显示 退出 命令按钮

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

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

frmMyForm.Show && 显示表单

DoVerb 方 法 - 图57frmMyForm.oleObject. DoVerb 方 法 - 图58 DoVerb 方 法 - 图59 DoVerb 方 法 - 图60 DoVerb 方 法 - 图61 -1 DoVerb 方 法 - 图62 && -1 用于 编辑

READ EVENTS && 启动事件处理

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

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

ENDDEFINE

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

Caption = '\<Quit' && 命令按钮的标题

DoVerb 方 法 - 图63DoVerb 方 法 - 图64Cancel = .T. && 默认的 取消 命令按钮 (Esc)

Left = 125 && 命令按钮列 Top = 210 && 命令按钮行Height = 25 && 命令按钮的高度PROCEDURE Click

DoVerb 方 法 - 图65CLEAR EVENTS && 停止事件处理 关闭表单

ENDDEFINE

应 用 于

DoVerb 方 法 - 图66OLE 绑定型控件 OLE 容器控件

请 参 阅

DoVerb 方 法 - 图67OLE 绑定型控件 OLE 容器控件