如何给自己做的应用程序加上.chm的帮助文件
解决方案 »
- 国庆散分,顺便问苏州无锡的朋友明后天天气情况
- 请问如何在内存中把图片剪裁为固定尺寸?
- VB6.0 如何清空 Debug 输出窗口的信息 ?
- 怎样实现vsflexgrid此功能
- 可能是VB版最难的一个问题,高分求方案!
- 谁能告诉我DataEnvironment.rscmdTempReport.Requery的作用是什么?
- 如何在VB中调用VC制作的DLL,并传递自定义的结构数组??
- 如何把MSHFlexgrid的数据读出来?
- 急急。。请教:vb实现将excel转化为pdf格式的代码
- 我在VB里面通过CDONTS发邮件,为什么它老是说“ActiveX部件不能创建对象”?我引用了CDONTS.DLL,代码在里面!!
- 在vb环境中可以运行,但make的exe文件运行时提示“找不到可安装的ISAM”。
- 一个关于如何学习vb的问题,请教高手
On Error GoTo Errhandle ShellExecute Me.hwnd, "open", "C:\aa.chm", vbNullString, vbNullString, 1
Exit Sub
Errhandle: MsgBox Err.Description & "!", vbInformationEnd Sub
方法一 使用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
最简单:
Shell "hh.exe f:\help.chm", vbNormalFocus