vb调用chm:在VB中调用CHM 帮助的几种方法来源: 发布时间:星期四, 2009年2月12日 浏览:125次 评论:0
个应用不论编制得如何完美在很多情况下用户还是会对如何使用它提出问题 visual basic 提供了对两种区别帮助系统支持:传统 windows 帮助系统 (winhelp)和新 html 帮助(chm帮助)当我们制作好帮助文件后就需要在适当位置编写代码进行本文将讨论几种在中chm帮助文件思路方法 思路方法 使用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 , byval ucommand as long, byval dwdata as long) as long \'hwndcaller指定者窗口pszfile指定要文件ucommand是发送给 htmlhelp命令dwdata是ucommand参数 然后在过程中: private sub cmdhelp_click dim i as i = app.path & \"\\help.chm\" \'用变量i记录和主同目录下help.chm帮助文件 htmlhelpa form1.hwnd, i, 0, 0 end sub 思路方法 5 使用shellexecute: 先声明如下api: option explicit \'声明api用于异步打开个文档 private declare function shellexecute lib \"shell32.dll\" alias \"shellexecutea\" (byval hwnd as long, byval lpoperation as , byval lpfile as , byval lpparameters as , byval lpdirectory as , byval nshowcmd as long) as long private const sw_shownormal = 1 然后在过程中: private sub cmdhelp_click dim a as long dim b as b = app.path & \"\\help.chm\" \'用变量b记录和主同目录下help.chm帮助文件 a = shellexecute (0, \"open\", b, \"\", \"\", sw_shownormal) end sub 以上 5种思路方法各有优缺点从代码简单上讲建议使用第 2种思路方法从功能上讲建议使用第 5种思路方法因其不只用于打开chm帮助文件还可用同样格式打开、打印或查找个文件或文档(参见该api介绍说明资料) 0
相关文章
读者评论发表评论 |