VB中制作帮助? 请教

在VB中调用CHM 帮助的几种方法一个应用程序不论编制得如何完美，在很多情况下用户还是会对如何使用它提出问题。 Visual Basic 提供了对两种不同帮助系统的支持：传统的 Windows 帮助系统 (WinHelp)和新的 HTML 帮助（CHM帮助）。当我们制作好帮助文件后，就需要在程序的适当位置编写代码进行调用，本文将讨论几种在程序中调用CHM帮助文件的方法。
方法一　使用F1键：
这种方法最简单，只需如下代码即可：
Private Sub Form_Load()
App.HelpFile = app.path & "\help.chm" '调用与主程序同目录下的help.chm帮助文件，按F1键调用
End Sub方法二使用SendKeys方法：
Private Sub Form_Load()
App.HelpFile = app.path & "\help.chm"
End Sub
private Sub CmdHelp_Click()
SendKeys "{F1}" '发送击键到活动窗口
End Sub方法三使用Shell函数：
private Sub CmdHelp_Click()
Shell "hh.exe help.chm", vbNormalFocus 'help.chm为指定的帮助文件，可包含路径。
End Sub方法四使用HtmlHelp函数：
先声明如下API：
Option Explicit
Private Declare Function HtmlHelpA Lib "hhctrl.ocx" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long
'hwndCaller指定调用者的窗口，pszFile指定要调用的文件，uCommand是发送给 HtmlHelp的命令，dwData是uCommand的参数。
然后在过程中调用：
private Sub CmdHelp_Click()
dim i as string
i = app.path & "\help.chm" '用变量i记录与主程序同目录下的help.chm帮助文件
HtmlHelpA Form1.hWnd, i, 0, 0
End Sub方法五使用ShellExecute函数：
先声明如下API：
Option Explicit
'声明API函数用于异步打开一个文档
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
然后在过程中调用：
private Sub CmdHelp_Click()
dim a as long
Dim b As String
b = App.Path & "\help.chm" '用变量b记录与主程序同目录下的help.chm帮助文件
a = ShellExecute (0, "open", b, "", "", SW_SHOWNORMAL)
End Sub
以上五种方法各有优缺点，从代码的简单上讲，建议使用第二种方法。从功能上讲，建议使用第五种方法，因其不只用于打开CHM帮助文件，还可用同样的格式打开、打印或查找一个文件或文档（参见该API的说明资料）。
ＣＨＭ帮助文件制作工具：html help workshop
或
visual chm
编写帮助文件：新建一个Word文档，内容分成几个部分：目录、概述、使用方法、安装。先输入“目录”，然后将光标移至“目录”的前面，选择菜单栏的‘插入’|脚注和尾注，弹出对话框，选中
‘自定义标记’单选按钮，光标会自动跳到相应的文本框，在文本框中输入“$”（注脚），然后‘确定’；
光标跳至当前编辑的页的末尾，并有一个“$”符号，直接在“$”后面输入“目录”，第一步完成；
  再将光标移至“目录”的前面，选择菜单栏的‘插入’|脚注和尾注，弹出对话框，选中‘自定义标记’单
选按钮，光标仍然跳到相应的文本框，在文本框中输入“#”（跳转名），然后‘确定’；光标跳至当前编辑
的页的末尾，有一个“#”符号，直接在“#”后面输入“mulu”（跳转名一般不支持汉字），第二步完成；
  再将光标移至“目录”的前面，选择菜单栏的‘插入’|脚注和尾注，‘自定义标记’单选按钮，光标跳到
文本框，输入“+”（页码），然后‘确定’；光标跳至当前编辑的页的末尾，有一个“+”符号，直接在
“+”后面输入“001”，第三步完成。
  输入“概述”，重复前面三步操作：插入“$”，输入“概述”；插入“#”，输入“gaishu”;插入“+”，
输入“002”。
  输入“使用方法”，重复操作：插入“$”，输入“使用方法”；插入“#”，输入“fangfa”;插入“+”，
输入“003”。
  输入“安装”，重复操作：插入“$”，输入“安装”；插入“#”，输入“anzhuang”;插入“+”，输入
“004”。  回到“目录”页，编辑：  概述
  使用方法
  安装
（三个跳转文本，绿色带下划线的文本，设置跳转目标位置的方法在后面叙述。）
在所以内容编辑完毕后，在菜单中选择‘插入’|分隔符，文本框中选择单选按钮‘分页符’，确定。
  编辑“概述”页，编辑内容，插入‘分页符’……
  编辑“使用方法”页，编辑内容，插入‘分页符’……
  编辑“安装”页，编辑内容，插入‘分页符’……编辑跳转名、跳转目标页的步骤：
例：“目录”页，在菜单中选择‘格式’|‘字体’，对话框中下划线列表框中选择双下划线（====），
确；输入文本：“概述”，选择‘格式’|‘字体’，对话框中下划线列表框中选择（无），将效果中的
复选项‘隐藏文字’复选框选中，确定；输入“gaishu”（此时输入的文本均为不可见的），选择‘格式’
|‘字体’，对话框中将效果中的复选项‘隐藏文字’复选框取消选取，确定。这样，“目录”在帮助文件
中将是以绿色带下划线的格式显示，用户只要单击“目录”文本，即可跳转到“概述”页。
    再继续编辑“使用方法”的跳转目标页，步骤参考上面的步骤，再编辑“安装”……不再详述。将Word文档保存为*.RTF格式文件。启动Help Workshop（在VB安装盘：\common\Tools\VB\HCW  有安装程序，执行安装即可）。菜单‘File’|‘New’（新建命令），对话框中选择‘HelpProject’，然后‘OK’（指定一个路径地址
保存 *.hlp 文件。
编辑区的有侧有一列按钮，选‘Options’打开对话框，
    General选项卡：
    Default topic: contents
    Help title: xxx 帮助文件（将显示在未来的帮助窗体的顶栏）
最后‘确定’。

  选‘Files’打开对话框，
    Add按钮将上面编辑的*.RTF文件添加进来，‘OK’完毕。

  选‘Map’添加位图文件  ……
点击编辑区域右下角的‘Save and Compile’（保存和编辑）开始编辑 *.hlp格式的帮助文件。菜单中‘File’|‘Run WinHelp’选项打开运行对话框View Help File
‘View Help’运行帮助文件，效果已经出来了。'VB工程中窗体菜单栏 ‘帮助’的Click()事件中加入代码：  On Error Resume Next
  Dim i As Integer
  If Len (App.HelpFile) = 0 Then
    MsgBox "没有帮助文件可以显示！",,Me.Caption
  Else
    i = OSWinHelpFile(Me.hwnd,App.HelpFile,3,0)
    If Err Then
      MsgBox Err.Description
    End If
  End If'将帮助文件Copy到同路径文件夹中，
'VB工程菜单‘工程’|‘属性’对话框中，将帮助文件路径选定。

调试易

VB中制作帮助? 请教

解决方案 »