翰文个人计算机学习网
  • 翰文快讯
  • 翰文PC快讯
  • 综合软件区
  • 操作系统
  • 注册表解析
  • Windows系列
  • Unix/Linux
  • 其他系统
  • 应用软件
  • 微软MS Office
  • WPS Office
  • 多媒体软件
  • 图像处理
  • Photoshop
  • Painter
  • Illustrator
  • CorelDRAW
  • 三维空间
  • AutoCAD
  • 3DMAX
  • 3DMAYA
  • 硬件资源
  • 攒机指南
  • 硬件超频
  • 维修指南
  • 网络资源
  • 在线通讯
  • 网上冲浪
  • 浏览器中心
  • 网络故障解析
  • 病毒资料
  • 病毒通报
  • 病毒防治
  • 病毒常识
  • 黑客技巧
  • SQL/MySQL
  • Oracle
  • Delphi
  • 编程资源
  •  C/C#/C++/VC++/VC.NET
  •  Basic/VB/VB.NET/VBScript
  •  FoxBasic/FoxPro/VF/VF.NET
  •  Java/JavaScript
  • PowerBuilder
  • 热门词:
  • 翰文计算机学习网首页
  • >
  • Basic/VB/VB.NET/VBScript
  • >
  • 在VB中调用CHM帮助的几种方法
  • 在VB中调用CHM帮助的几种方法

  • 资源来源:
  • HW-PCS.ORG
  • 资源作者:
  • 翰文计算机学习网
  • 人气指数:
  • [4417]
  • 关键词:问题Windows

      一个应用程序不论编制得如何完美,在很多情况下用户还是会对如何使用它提出问题。VisualBasic提供了对两种不同帮助系统的支持:传统的Windows帮助系统(WinHelp)和新的HTML帮助(CHM帮助)。当我们制作好帮助文件后,就需要在程序的适当位置编写代码进行调用,本文将讨论几种在程序中调用CHM帮助文件的方法。

      方法一 使用F1键:

      这种方法最简单,只需如下代码即可:

    PrivateSubForm_Load()
    App.HelpFile=app.path"help.chm"’调用与主程序同目录下的help.chm帮助文件,按F1键调用
    EndSub

      方法二使用SendKeys方法:

    PrivateSubForm_Load()
    App.HelpFile=app.path"help.chm"
    EndSub
    privateSubCmdHelp_Click()
    SendKeys"{F1}"’发送击键到活动窗口
    EndSub

      方法三使用Shell函数:

    privateSubCmdHelp_Click()
    Shell"hh.exehelp.chm",vbNormalFocus’help.chm为指定的帮助文件,可包含路径。
    EndSub

      方法四使用HtmlHelp函数:

      先声明如下API:

    OptionExplicit
    PrivateDeclareFunctionHtmlHelpALib"hhctrl.ocx"(ByValhwndCallerAsLong,
    ByValpszFileAsString,ByValuCommandAsLong,ByValdwDataAsLong)AsLong
    ’hwndCaller指定调用者的窗口,pszFile指定要调用的文件,uCommand是发送给HtmlHelp的命令,dwData是uCommand的参数。

      然后在过程中调用:

    privateSubCmdHelp_Click()
    dimiasstring
    i=app.path"help.chm"’用变量i记录与主程序同目录下的help.chm帮助文件
    HtmlHelpAForm1.hWnd,i,0,0
    EndSub

      方法五使用ShellExecute函数:

      先声明如下API:

    OptionExplicit
    ’声明API函数用于异步打开一个文档
    PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"
    (ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,
    ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong
    PrivateConstSW_SHOWNORMAL=1

      然后在过程中调用:

    privateSubCmdHelp_Click()
    dimaaslong
    DimbAsString
    b=App.Path"help.chm"’用变量b记录与主程序同目录下的help.chm帮助文件
    a=ShellExecute(0,"open",b,"","",SW_SHOWNORMAL)
    EndSub

      以上五种方法各有优缺点,从代码的简单上讲,建议使用第二种方法。从功能上讲,建议使用第五种方法,因其不只用于打开CHM帮助文件,还可用同样的格式打开、打印或查找一个文件或文档(参见该API的说明资料)。

    感谢您对翰文计算机学习网的支持

  • 关于我们
  • 联系方式
  • 成功案例
  • 技术报价
  • RSS索引
  • 网站地图
  • 翰文电脑学习网
  • MSN:LNDDYGYC9@HOTMAIL.COM Powered by 翰文个人计算机学习网 版权所有,未经允许不得转载
    ICP备案号码:[沪ICP备12020678号] Copyright 2008-2020 HW-PCS.ORG, All Rights Reserved.