• 注册
  • 关于作者
    企业认证:趣记站长
    关注 6 粉丝 4 喜欢 9 内容 992
    江西省·南昌市
    聊天 送礼
    • 查看作者
    • 在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指定调用者的窗口,

      Visual Basic编程访问WMI对象
      用VB创建FTP组件(get),Visual Basic构建线程安全的Singleton,如何实现VB与EXCEL的无缝连接,vb中利用xmlhttp来下载远程文件,vb中使用正则表达式,ASP.NET中Cookie编程的基础知识,MASM-打字练习程序,用VB制作注册软件的方法,VB程序中数据库的图片处理的解决方法,用VB编写键盘拦截程序,用VB实现客户——服务器(TCP/IP)编程实例,利用Visual Basic 实现无线通讯,VB 中资源文件的多种使用技巧,VB中资源文件的具体使用方法,vb接收GPS数据源码全,VB6中使用Winsock穿越各种代理的实现(TCP协议),VB实现文字“闪入”显示的特殊效果,VB对注册表操作程序开机时运行,VB将OCX植入执行文件内,利用VB函数Dir()实现递归搜索目录
      Visual Basic

      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的说明资料)。

      提高Visual Basic访问数据库的效率
      用VB创建FTP组件(get),Visual Basic构建线程安全的Singleton,如何实现VB与EXCEL的无缝连接,vb中利用xmlhttp来下载远程文件,vb中使用正则表达式,ASP.NET中Cookie编程的基础知识,MASM-打字练习程序,用VB制作注册软件的方法,VB程序中数据库的图片处理的解决方法,用VB编写键盘拦截程序,用VB实现客户——服务器(TCP/IP)编程实例,利用Visual Basic 实现无线通讯,VB 中资源文件的多种使用技巧,VB中资源文件的具体使用方法,vb接收GPS数据源码全,VB6中使用Winsock穿越各种代理的实现(TCP协议),VB实现文字“闪入”显示的特殊效果,VB对注册表操作程序开机时运行,VB将OCX植入执行文件内,利用VB函数Dir()实现递归搜索目录
      Visual Basic

    • 0
    • 0
    • 0
    • 78
    • 单栏布局 侧栏位置: