我怎么样把我的帮助文件加到程序中去,请高手指点,详细一些。提供网站也行,先行谢过
解决方案 »
- vb和数据库的问题 帮帮我
- 求证:n(n>1)个连续正整数相加,其结果不可能为2的m(m>0)次方
- 关于Toolbar1的按钮的子菜单问题
- WebBrowser 怎么把焦点移到框架网页上。
- 请问这种安装界面是用什么工具打包的呢??
- 我怎樣才可以把VB程式移植到OFFICE VBA
- VB接收GPS信号并保存到文件夹
- MSHFlexGrid1.TextMatrix(i, j) = Trim(rs.Fields(j))为什么错误?
- vb6调用mapinfo ole对象实现地图的操作
- 如何在VB中用RichTextBox编辑文本!!急急!!请教各位大侠!!!
- 我用picturebox控件做了个图形按钮,如何使它象按钮一样无效时,图形变成暗灰色?
- richtext中如何加入word文档
Declare Function Htmlhelp Lib "hhctrl.ocx"Alias "HtmlHelpA"
(ByVal hwndCaller As Long,
ByVal pszFile As String,
ByVal uCommand As Long,
ByVal dwData As Any) As Long
具体参数含义如下:
hwndCaller 调用该函数的窗体句柄
pszFile 帮助文件的名称和位置
uCommand 帮助类型
dwData 与uCommand相匹配的附加参数定义uCommand 常数Const HH_DISPLAY_TOPIC = &H0
Const HH_DISPLAY_INDEX=&H2
Const HH_HELP_CONTEXT = &HF
Const HH_DISPLAY_SEARCH= &H3
Const HH_DISPLAY_TEXT_POPUP= &HE
接着指定CHM文件的名称和位置:
App.HelpFile=App.Path & "\Sample.CHM"
程序调用
调用缺省主题帮助
Call HtmlHelp(hwnd,
App.HelpFile,
HH_DISPLAY_TOPIC,
ByVal "Default.htm")
此调用方式用于没有上下文ID号的情形,dwData可指定一个在CHM文件内的缺省htm文件,也可取NULL,这是HtmlHelp API最基本的一种用法。调用关键字帮助Call HtmlHelp(hwnd,
App.HelpFile,
HH_DISPLAY_INDEX,
(DWORD)"关键字"))
此调用方式中dwData取索引文件(.hhk)中存在的关键字。
调用上下文敏感帮助
Call HtmlHelp(hwnd,
App.HelpFile,
HH_HELP_CONTEXT, 1000)
此调用方式用于含有映射信息的CHM文件, dwData取映射表中存在的ID号。
调用全文搜索帮助
Dim Query As HH_FTS_QUERY
Call HtmlHelp(hwnd,
App.HelpFile,
HH_DISPLAY_SEARCH,
(DWORD)& Query)
DwData参数指定一个指向HH_FTS_QUERY结构的指针。调用弹出式帮助Dim Popup As HH_POPUP
Call HtmlHelp(hwnd,
NULL,
HH_DISPLAY_TEXT_POPUP,
(DWORD)&Popup)
PszFile通常取NULL,也可以指定一个CHM和一个在该CHM文件中的TEXT文件,DwData用于指定一个指向HH_POPUP结构的指针。指定显示窗体形式
由于显示帮助文件的缺省窗体是在编译该CHM文件时的窗体,因此为了更好地控制帮助文件的显示,在制作CHM文件时,可以自定义一个窗体形式。在程序中可以通过两种方法来调用自定义窗体。
1.当uCommand 为HH_DISPLAY_TOPIC或HH_HELP_CONTEXT时,在pszFile参数中用“>”符号,其后跟上窗体名称即可。如pszFile取:
App.HelpFile & "> MainWin"
2.用HtmlHelp函数直接指定:
Dim WinType As HH_WINTYPE
Call HtmlHelp(hwnd,
App.HelpFile &" > MainWin",
HH_SET_WIN_TYPE,
(DWORD) &WinType)
必须声明的是,以上叙述中使用的“Sample.CHM”、“Default.htm”、“关键字”、“1000”和“MainWin”等均属举例,应用中需要根据自己的具体情况来设置这些参数的实际值。至此,应用程序的帮助系统就建立起来了,当然,要把帮助系统做得更完美一点,还有更多的工作要做。
作者:-
---- 带 有 帮 助 文 件 的 应 用 程 序 无 论 对程 序 员 还 是 用 户 都 是 不 同 凡 响 的, 它 能 节 省 印 刷 大 量 用户 手 册 的 开 支, 对 程 序 员 编 辑 修 改 和 用 户 手 册 的 复 制 保存 都 极 为 方 便。 帮 助 文 件 的 另 一 个 很 有 前 景 的 应 用 是 单独 作 为 带 有 图 文 信 息 的 电 子 图 书 发 布。 ---- 在 此 对 帮 助 文 件 的 编 制 及 如 何 在程 序 中 编 程 调 用 作 一 详 尽 介 绍。 首 先 介 绍 第 一 部 分, 帮 助文 件 的 编 写。 ---- 帮 助 文 件 的 编 写 步 骤: 先 编 写 存 有 所 有 帮 助 信 息 的 帮 助 源 文件RTF 文 件。 编 写 帮 助 项 目 文 件HPJ 文 件。 对HPJ 文 件 编 译, 最 后 生 成HLP 文 件。
帮 助 源 文 件RTF 文 件 的 编 写
---- 帮 助 源 文 件 是 存 有 所 有 帮 助 信 息的, 这 是 一 种RTF(Rich Text Format) 文 件, 帮 助 文 件 象 一 本 书,由 目 录 及 一 个 个 章 节 组 成, 各 章 节 之 间 的 跳 转 是 由 定 义的 热 点 来 完 成。 现 在 举 一 具 体 例 子( 由 目 录 等 五 条 信 息 组成) 详 细 说 明。 ---- 原 始 信 息 由 五 个 章 节 组 成: 目 录、概 述、 说 明、 程 序、 安 装。象 前 面 每 一 节 的 标 题(“ 目 录”,“ 概 述”, “ 说 明”,“ 程 序”, “ 安 装”) 在RTF 文 件 中 必 须 以特 有 的 脚 注( 即$) 明 确 指 定。 对 每 一 节 还 须 指 定 其 跳 转 名( 脚 注 是# , 跳 转 名 不 能 是 汉 字), 以 便 标 识, 在 这 我 们 给 每一 节 分 别 取 名 为:contents , description, explanation ,programming, setup, 对 每 一 节 还 可 指 定 其 搜 索 关 键 字( 脚 注 是K), 关 键字 可 以 是 一 个 或 多 个, 汉 字 和 英 文 均 可。 ---- 具 体 操 作 如 下: 进 入Microsoft Word 中文 版, 选 择: 文 件/ 新 建, 先 输 入 第 一 节 的 内 容: 输 入 第 一节 的 标 题:“ 目 录”, 将 光 标 移 到“ 目 录” 的 前 面, 选 择 系统 菜 单 的“ 插 入”, 选 “ 脚 注 和 尾 注”, 选“ 脚 注” 和“ 自 定义 标 记”, 输 入:$ 符 号, 这 时 文 档 下 方 出 现 脚 注 编 辑 窗 口,光 标 也 自 动 落 在 文 档 下 方 的 脚 注 编 辑 窗 口 中, 在 光 标 处接 着 输 入 这 一 节 的 标 题:“ 目 录”, 有 时 看 不 到 文 档 下 方的 脚 注 窗 口, 这 只 要 将 系 统 菜 单 中“ 视 图” 的“ 脚 注” 选 上。 ---- 下 面 定 义 这 一 节 的 跳 转 名, 将 光 标移 到“ 目 录” 的 前 面, 选 择 系 统 菜 单 的“ 插 入”, 选 “ 脚 注和 尾 注”, 选“ 脚 注” 和“ 自 定 义 标 记”, 输 入:# 符 号, 这 时文 档 下 方 出 现 脚 注 编 辑 窗 口, 光 标 也 自 动 落 在 文 档 下 方的 脚 注 编 辑 窗 口 中, 在 光 标 处 接 着 输 入 这 一 节 的 跳 转 名:“contents”( 有 时 看 不 到 文 档 下 方 的 脚 注 窗 口, 这 只 要 将 系 统 菜 单 中“ 视 图” 的“ 脚 注” 选 上) 定 义 这 一 节 的 搜 索 关 健 字。 将 光 标移 到“ 目 录” 的 前 面, 选 择 系 统 菜 单 的“ 插 入”, 选 “ 脚 注和 尾 注”, 选“ 脚 注” 和“ 自 定 义 标 记”, 输 入:k 符 号, 这 时文 档 下 方 出 现 脚 注 编 辑 窗 口, 光 标 也 自 动 落 在 文 档 下 方的 脚 注 编 辑 窗 口 中, 在 光 标 处 接 着 输 入 这 一 节 的 搜 索 关健 字, 搜 索 关 健 字 可 以 是 中 文 或 英 文, 一 个 或 多 个, 中 间用 分 号( 即 ;) 隔 开, 这 儿 我 们 输 入: 目 录; 目 次;contents。 ---- 最 后 定 义 这 一 节 的 顺 序 号。 顺 序号 相 当 于 一 本 书 中 各 章 节 的 页 码。 将 光 标 移 到“ 目 录” 的前 面, 选 择 系 统 菜 单 的“ 插 入”, 选 “ 脚 注 和 尾 注”, 选“ 脚 注” 和“ 自 定 义 标 记”, 输 入:+ 符 号, 这 时 文 档 下 方 出 现脚 注 编 辑 窗 口, 光 标 也 自 动 落 在 文 档 下 方 的 脚 注 编 辑 窗口 中, 在 光 标 处 接 着 输 入 这 一 节 顺 序 号, 如:0001,0002,0003 等。 这 儿 我 们 输 入:0001. ---- 这 样, 第 一 节 的 脚 注 标 记 全 部 作完。 ---- 第 二 节 的 脚 注 标 记 作 法 一 样。( 第一 节 和 第 二 节 要 有 分 页 符, 选 择 系 统 菜 单 的“ 插 入”, 选 “ 分 隔 符”,“ 分 页 符”)。 ---- 在 帮 助 文 件 中, 当 用 户 在 按 了 绿色 的 跳 转 文 本, 就 应 该 跳 转 到 对 应 的 章 节, 如 何 定 义 一 个热 点 跳 转 呢 ? 因 为 我 们 已 经 定 义 了 第 一 节 的 跳 转 名, 只要 将 跳 转 文 本 与 要 跳 转 到 的 那 一 节 的 跳 转 名 联 系 起 来,跳 转 文 本 在RTF 文 件 中 是 带 双 下 划 线 的 文 本, 以 上 例 操 作如 下: ---- 选 择 系 统 菜 单 上 的“ 格 式”/“ 字 体”,选 择“ 字 体”/“ 下 划 线”, 选“ 双 线”, 然 后 开 始 输 入 热 点文 本, 这 儿 我 们 输 入“ 概 述”, 输 入 完 热 点 文 本, 清 除 双 下划 线 格 式, 操 作: 选 择 系 统 菜 单 上 的“ 格 式”/“ 字 体”, 选择“ 字 体”/“ 下 划 线”, 选“ 无”, 清 除 双 下 划 线 格 式 后, 紧接 着 选 择 隐 藏 文 本 格 式, 输 入 跳 转 目 的 地 的 跳 转 名, 操 作:选 择 系 统 菜 单 上 的“ 格 式”/“ 字 体”, 选 择“ 字 体”/“ 效 果”,选“ 隐 藏”, 输 入 跳 转 目 的 地 的 跳 转 名, 这 儿 输 入“description”,输 入 完 清 除 隐 藏 文 本 格 式。 清 除 隐 藏 文 本 格 式 的 操 作: 选择 系 统 菜 单 上 的“ 格 式”/“ 字 体”, 选 择“ 字 体”/“ 效 果”,将“ 隐 藏” 复 选 框 除 去。 ---- 如 何 定 义 热 点 弹 出 说 明。 它 与 以上 热 点 跳 转 文 本 一 样, 只 不 过 它 是 带 单 下 划 线 的 文 本。 操作 如 下: 选 择 字 符 的 单 下 划 线 格 式, 输 入 弹 出 式 热 点 文 本,如 上 例 输 入 的 是“ 单 下 划 线 的 指 定 说 明 热 点”, 操 作 如 下:选 择 系 统 菜 单 上 的“ 格 式”/“ 字 体”, 选 择“ 字 体”/“ 下 划线”, 选“ 单 线”, 然 后 开 始 输 入 热 点 文 本, 这 儿 我 们 输 入“ 单 下 划 线 的 指 定 说 明 热 点”, 输 入 完 热 点 文 本, 清 除 单 下划 线 格 式, 紧 接 着 选 择 隐 藏 文 本 格 式, 输 入 跳 转 目 的 地 的跳 转 名, 这 儿 是 弹 出 窗 口 的 跳 转 名: 这 儿 输 入“my_pop_up”,输 入 完 清 除 隐 藏 文 本 格 式。 弹 出 窗 口 一 节 要 与 其 它 章 节用 分 页 符 分 开。 只 要 指 定 跳 转 名 即 可。 ---- 我 们 经 常 看 到 的“ 参 阅”、“see also” 弹 出 窗 口 就 是 这 样 作 出 来 的。 ---- 如 何 对 图 形 指 定 热 点 跳 转。 在RTF 文 件 中 使 用 图 形, 可 以 用 语 句:{bmc 图 形 文 件 名},bmc 表 示图 形 放 在 中 间,bml 表 示 图 形 放 在 左 边,bmr 表 示 图 形 放 在 右边, 图 形 文 件 可 以 是 一 般 的BMP 位 图 和SHG 热 点 跳 转 图 形 文件。 ---- 如 用 户 在 图 形 某 处 按 动 时, 会 弹出 一 个 说 明 窗 口。 而 热 点 图 形.shg 文 件 由.bmp 位 图 文 件 通 过工 具 软 件Hotspot Editor 编 辑 而 来。Hotspot Editor 是 随Visual Basic ( 在VB 的HC 目 录 下) 和Visual Foxpro( 在VFP 的HELPCOMP 目 录 下) 发布 的。 执 行 文 件 名 是SHED.EXE。 操 作: 运 行SHED.EXE, 选File/Open,装 入 要 用 到 的 位 图 文 件。 这 儿 用 一 人 头 形 位 图man.bmp, 在 图形 上 拖 动, 产 生 一 个 个 热 点, 双 击 任 一 热 点 区 域, 出 现 一对 话 框, 只 要 在Context String 处 输 入 要 跳 转 或 弹 出 目 的 地 的跳 转 名。 热 点 类 型Type 处 选 取 Jump 跳 转 式 或 Popup 弹 出 式。 热点 区 域 边 框 属 性Attribute 选 取 可 见Visible 或 不 可 见Invisible。在 这 个 例 子 中Context String 输 入eye_popup,Type 选 取 Popup,Attribute 选 取Invisible ( 隐 去 热 点 区 域 的 边 线).
以 一 实 例 说 明, 语 句 分 号 右 边 是注 解
[OPTIONS] ; 这 一 节 的 内 容 并 非 必 须
COMPRESS=0 ; 指 示HLP 文 件 不 压 缩
ERRORLOG=my.err ; 编 译 错 误 存于 此 文 件
REPORT=Yes ; 编 译 时 报 告
CONTENTS=contents ; 目 录 跳 转 名
COPYRIGHT= ; 版 权 信 息
DEFFONT=,10,0 ;字 体 大 小
BMROOT=. ; 指 示BMP 文 件 的 存 放 位 置,
在 同 一 目 录 下 用 空 白 或“.” 否 则BMROOT=Drive:\Path
HLP=.\dxchlp.hlp ; 表 明 生 成 的 帮 助 文 件 名
[FILES] ; 唯 一 重 要 的 一 节
.\Dxchlp.rtf ; 所 用RTF 文 件 名( 包 括 路 径)
---- [WINDOWS] ; 语 法 Main=" 主 窗 口 的 标题",( 窗 口 水 平 位 置, 垂 直 位 置, 宽 度, 高 度), 状 态, 背 景颜 色(R,G,B), 非 滚 动 区 域 背 景 颜 色(R,G,B), 是 否 总 是浮 在 其 它 窗 口 上 面(0 为False,1 为True) 例: ---- Main=“ 主 窗 口 标 题”,(512,10,512,1000),0,(255,251,240),(192,192,192),0 ---- ; 语 法: Second=; 语 法 同 上 面 主 窗口, 例: ---- Second=“ 次 级 窗 口 标 题”,(10,10,500,1000),0,(254,251,240),(191,192,192),1 ---- [CONFIG] ---- BrowseButtons() ; 加 一 向 前 向 后 按 钮 ---- 其 实 用 不 着 写 这 么 多, 最 省 事 的帮 助 项 目 文 件 是 这 样 只 有 一 条 语 句, 其 它 全 是 缺 省 值: ---- [FILES] ; 节 名 称 ---- Myhelp.rtf ; 所 用RTF 文 件 名( 包 括 路径, 如c:\winword\Myhelp.rtf) ---- 以 上hpj 文 件 用 任 何 编 辑 器 编 辑 后以HPJ 文 件 存 盘。 对 帮 助 项 目 文 件HPJ 进 行 编 译, 形 成HLP 文 件
---- 编 译 要 用 编 译 工 具HC.EXE, 在VB 的HC 目 录 下 有HC.EXE, 在VFP 的HELPCOMP 目 录 下 有HC31.EXE 和HC35.EXE, 任选 一 个 使 用。 操 作:HC 文 件 名, 或HC31 文 件 等, 如:HC31 Myhelp.hpj
--------------------------------------------------------------------------------
---- 现 在 介 绍 第 二 部 分, 对 帮 助 文 件编 程。 ---- 帮 助 文 件 的 最 终 目 的 是 要 应 用 到自 己 程 序 中。 现 以 最 常 用 的 三 种 开 发 工 具VB,VFP,DELPHI 分别 举 一 最 简 单 例 子。 VB
---- 进 入VB, 选File/New Project, 出 现 一空 白 窗 体Form1, 加 一 个 通 用 对 话 框CommondDialog1 到Form1, 点 取Menu Editor, 设 置 一 菜 单, 一 级 菜 单 有 二 项:(Caption 分 别 为:)File ,Help, 而File 的 下 一 级 菜 单Exit,Help 的 下 一 级 菜 单 为Contents, KeyWords Search, About, 对 应 的Name 属 性 分 别 为:mnuFile,mnuHelp,mnuExit,mnuContents,mnuSearch,mnuAbou。假 定 帮 助 文 件 是D:\WINWORD\DXCHLP.HLP。 ---- 程 序 代 码 如 下: Private Sub Form_Load()
CommonDialog1.HelpFile = "d:\winword\dxchlp.hlp"
End Sub Private Sub mnuContents_Click()
With CommonDialog1
.HelpCommand = cdlHelpContents 'cdlHelpContents 是 显 示 目 录 的 命 令
.ShowHelp
End With
End Sub Private Sub mnuSearch_Click()
With CommonDialog1
.HelpCommand = cdlHelpKey 'cdlHelpKey 是显 示 关 健 字 搜 索 的 命 令
.ShowHelp
End With
End Sub Private Sub mnuAbout_Click()
aboutform.Show 1 ' 以 模 态 显 示" 关 于" 窗 口
End Sub Private Sub mnuExit_Click()
End
End Sub 以 上 可 用 调 用 动 态 联 结 库 的 方 法,代 码 如 下:
(1) 模 块 文 件:
Global Const HELP_CONTENTS = &H3&
Global Const HELP_KEY = &H101 Declare Function WinHelp Lib "user32" Alias "WinHelpA"
(ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal
wCommand As Long, ByVal dwData As Long) As Long '
必 须 同 一 行; 为WIN95,NT
' Declare Function WinHelp Lib "User" (ByVal hwnd As
Integer, ByVal lpHelpFile As String, ByVal wCommand As
Integer, dwData As Any) As Integer ' 必须 同 一 行; 为WIN3.X
(2) 窗 体 文 件
Private Sub Form_Load()
App.HelpFile = "d:\winword\dxchlp.hlp"
End Sub Private Sub mnuContents_Click()
i% = WinHelp(Form1.hwnd, App.HelpFile, HELP_CONTENTS, 0)
End Sub Private Sub mnuKeySearch_Click()
i% = WinHelp(Form1.hwnd, App.HelpFile, HELP_KEY, 0)
End Sub