DoVerb 方 法
在指定的对象上执行一个动作
语 法
Ob jec t.DoVerb[( Verb )]
参 数 描 述
Verb
指 定 在 OLE 容 器 控 件 中 对 象 要 执 行 的 动 作 如 果 没 有 指 定 就 执 行 默 认 的动 作 此 参 数 值 可 以 是 所 有 对 象 都 支 持 的 某 个 标 准 动 作 或 是 ObjectVerbs 属 性 数 组 的 一 个 索 引 每 个 对 象 可 支 持 它 自 身 的 动 作 集
下 列 值 表 示 每 个 对 象 支 持 的 标 准 的 动 作
值 动 作
对象的默认动作
激活要编辑的对象 如果创建对象的应用程序支持现场激活 就在 OLE
容器控件中激活对象
在一个独立的应用程序窗口中打开对象 如果创建对象的应用程序支持现场激活 就在对象自身的窗口中激活对象
对于嵌入的对象 隐藏创建对象的应用程序
续 表如果对象支持现场激活 就以现场激活方式激活对象并显示任何用户界面工具 如果对象不支持现场激活 对象就不激活并产生错误
如果用户将焦点移到 OLE 容器控件中 就创建一个窗口 并准备要编辑的对象 如果对象不支持以鼠标单击的方式激活 就产生错误
当激活要编辑的对象时 用来放弃所有记录的更改 对象的应用程序可以撤消这些更改
说 明
如果将 AutoActivate 属性设置为 2 双击 那么 当用户双击控件时 OLE 容器控件就自动激活当前的对象
提 示 |
尽 管 可 以 使 用 动 作 名 编 辑 |
打 开 |
播 放 等 来 指 定 要 和 |
Doverb 一 起 |
---|---|---|---|---|
使 用 的 动 作 但 使 用 索 引 0 |
1 |
2 等 会 更 快 |
示 例
The 下面的示例向一个表单中添加一个 OLE 容器控件 并使用 OleClass 和DocumentFile 属性指定 Excel 作为 OLE 服务器 指定一个 Excel 工作表作为要编辑的文件
The DocumentFile 属性在驱动器 C 上的 EXCEL 目录中指定一个名为 BOOK1.XLS 的工作表 如果 DocumentFile 指定的文件和目录不存在 此示例将不能正确地执行 可能有必要更新 DocumentFile 属性来指定一个存在的目录和工作表文件
使用 D o V erb 方法激活要编辑的工作表
*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. -1 && -1 用于 编辑
READ EVENTS && 启动事件处理
DEFINE CLASS oleExcelObject as OLEControl OleClass ="Excel.Sheet" && 服务器名
DocumentFile = "C:\EXCEL\BOOK1.XLS" && 此文件必须存在
ENDDEFINE
DEFINE CLASS cmdMyCmdBtn AS CommandButton && 创建命令按钮
Caption = '\<Quit' && 命令按钮的标题
Cancel = .T. && 默认的 取消 命令按钮 (Esc)
Left = 125 && 命令按钮列 Top = 210 && 命令按钮行Height = 25 && 命令按钮的高度PROCEDURE Click
CLEAR EVENTS && 停止事件处理 关闭表单
ENDDEFINE
应 用 于
OLE 绑定型控件 OLE 容器控件
请 参 阅
OLE 绑定型控件 OLE 容器控件