使用webbrowser控件对rtf文件进行拼写检查.txt

VB技巧问答10000例 VB技巧问答10000例

为 了 对 RTF文 件 进 行 拼 写 检 查 ， 你 可 以 重 新 求 助 于 嵌 入 Word到 你 的 程 序 。 但 是 ， 如 果 你 打 算 使 用 WebBrowser控 件 ， 则 你 不 需 要 使 用 Word来 进 行 拼 写 检 查 。 这 是 因 为 WebBrowser控 件 提 供 了 这 样 的 功 能 。 为 了 访 问 这 个 功 能 ， 你 需 要 使 用 WebBrowser的 带 有 OLECMDID_SPELL参 数 的 ExecWB()方 法 。 为 了 演 示 这 点 ， 添 加 WebBrowser控 件 到 窗 体 ， 加 入 以 下 代 码 到 Form_Load()事 件 ： 
    WebBrowser1.Navigate "D:\Internet\spell.rtf" 
    替 换 纸 向 RTF文 件 的 路 径 。 接 着 ， 添 加 一 个 按 钮 ， 然 后 输 入 这 些 代 码 到 按 钮 的 Click()事 件 ： 
    WebBrowser1.ExecWB OLECMDID_SPELL, OLECMDEXECOPT_DODEFAULT 
    运 行 工 程 。 WebBrowser将 显 示 RTF文 件 。 当 每 次 点 击 命 令 按 钮 ， VB进 行 通 常 的 拼 写 检 查 操 作 。 
<END>