我爱帮助网--QQ交流群号

Nas交流与矿渣群(unraid 群晖 猫盘 蜗牛等):372167400         物联网/智能家居群:518812757             帮助教程:手册大全

软件使用与建站群:1057308983      虚拟化交流群:13448651

VB调用chm帮助文件的几种方法

2021-04-22 08:00:00
转贴
36

任何的应用程序,都应该匹配一个相对应的帮助文档,让用户可以参阅使用。

目前大多数软件都用CHM来制作应用程序的帮助文件。CHM (Compiled HTML Help file)文件格式是基于 HTML 文件特性的帮助文件系统,以替代早期的 WinHelp 帮助系统。

下面介绍一下用VisualBasic 6.0调用CHM文件,从而建立起应用程序的帮助系统


方法1 使用F1键:

Private Sub Form_Load()
    App.HelpFile = app.path & "/help.chm" '调用与主程序同目录下的help.chm帮助文件按F1键调用
End Sub



方法2 使用SendKeys方法:
Private Sub Form_Load() 
    App.HelpFile = app.path & "/help.chm"
End Sub
Private Sub CmdHelp_Click()
    SendKeys "{F1}" '发送击键到活动窗口 
End Sub



方法3 使用Shell函数:
Private Sub CmdHelp_Click()
    Shell "hh.exe help.chm", vbNormalFocus 'help.chm为指定的帮助文件,可包含路径。
End Sub




方法4 使用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 帮助类型

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

方法5 使用ShellExecute函数 :
先声明如下API:
Option Explicit
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()
   ShellExecute Me.hwnd, vbNullString, "我的帮助.chm", vbNullString, "", SW_SHOWNORMAL
End Sub



 


0
发表评论
评论通过审核后显示。
文章分类
联系我们
联系人: 王先生
电话: 13928102596
Email: 18449932@qq.com
QQ: 18449932
微信: 13928102596
地址: 广东省中山市西苑广场