我编了一个CHM文档,可是不知道如何调用.
我准备在菜单下调用.
请高人指个路.
我在线等.很急用的!
我准备在菜单下调用.
请高人指个路.
我在线等.很急用的!
解决方案 »
- VISTA中要调试以前xp下写的vb程序,怎么办?
- 对象打开时不允许操作
- activeSkin4.3 换肤控件的示例程序,我往窗体中加其他任何控件为何都不能被换肤?
- 用inet控件将文件上传到FTP指定文件夹下...谢谢老师指点
- 100分, 向高手挑战
- 软件开发中的问题(效率和打印)急!!!
- VB中总是出现“Adod1.refresh”的FORM语句错误。
- 散分!难题!中文分词检索系统!?75分给一个人!
- 请问:QL SERVER 的image类型的字段如何存取?
- 小小难题
- 动态创建的控件如何响应事件,如动态创建的webbrowser控件怎样响应DocumentComplete事件
- dll ,ocx 有啥别??
然后在需要调用的地方写:sendkeys "{f1}"就可以调用了!
shell 文件名
ShellExecute Me.hwnd, "open", App.Path & "\help.chm", "", "", SW_SHOW
End Subhelp是个菜单项
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 Sub menuTe_Click()
ShellExecute Me.hwnd, "Open", App.Path & "\Help\help.chm", 0, 0, SW_SHOWNORMAL
End Sub
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指定调用者的窗口,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的说明资料)。