admin管理员组文章数量:1536775
2024年6月15日发(作者:)
chm文件怎么打开:VB打开CHM文件的几种
思路方法
疯狂代码 / ĵ:VisualBasic/
个应用不论编制得如何完美在很多情况下用户还是会对如何使用它提出问题 Visual Basic 提供了对
两种区别帮助系统支持:传统 Windows 帮助系统 (WinHelp)和新 HTML 帮助(CHM帮助)当我们制作好帮助文
件后就需要在适当位置编写代码进行本文将讨论几种在中CHM帮助文件思路方法 ;
思路方法 使用F1键:
这种思路方法最简单只需如下代码即可:
Private Sub Form_Load ;
le = & "" '和主同目录下帮助文件按F1键
End Sub
思路方法 2 使用SendKeys思路方法:
Private Sub Form_Load ;
le = & "" ;
End Sub ;
private Sub CmdHelp_Click ;
SendKeys "{F1}" '发送击键到活动窗口 ;
End Sub
思路方法 3 使用Shell:
private Sub CmdHelp_Click
Shell " ", vbNormalFocus '为指定帮助文件可包含路径
End Sub
思路方法 4 使用HtmlHelp:
先声明如下API:
Option Explicit
Private Declare Function HtmlHelpA Lib "" (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
i = & "" '用变量i记录和主同目录下帮助文件
HtmlHelpA , i, 0, 0
End Sub
思路方法 5 使用ShellExecute:
先声明如下API:
Option Explicit
'声明API用于异步打开个文档
Private Declare Function ShellExecute Lib "" 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 = & "" '用变量b记录和主同目录下帮助文件
a = ShellExecute (0, "open", b, "", "", SW_SHOWNORMAL)
End Sub
以上 5种思路方法各有优缺点从代码简单上讲建议使用第 2种思路方法从功能上讲建议使用第 5种思路方法
因其不只用于打开CHM帮助文件还可用同样格式打开、打印或查找个文件或文档(参见该API介绍说明资料)
2009-1-15 16:29:58
疯狂代码 /
版权声明:本文标题:chm文件怎么打开VB打开CHM文件的几种思路方法 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://m.elefans.com/dianzi/1718449614a682288.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论