在vb中直接打开一个可执行文件的函数

Question

用QuickCHM创建了一个帮助文档，在vb中如何用一个按钮实现和他的连接呢？

Answer 1

如果是一个CHM帮助文件，可以直接在VB中指定其为工程的帮助文件
方法： 工程--属性  在通用选项卡里面，指定帮助文件名....选上即可..以后即可在程序中使用F1直接调用。

Answer 2

关于在VB中调用帮助文件的一些方法:
------------------------------------------------------------------------------------------------------------
你程序的菜单中，指定帮助菜单得快捷键为F1 
VB打开帮助文件到处可见
在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指定调用者的窗口，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的说明资料）。

Answer 3

新建一个工程，将以下代码贴至窗体(需要一个按钮Command1)
--------------------------------------------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
    Dim strHelpFile As String
    Dim RetVal As Long
    
    '欲打开的CHM文件名,改为自己需要的实际值
    strHelpFile = "D:\HEROSOFT\HERO2001\Herosoft.chm"
    
    'hh.exe是windows中用来打工CHM及一些常规帮助文件的程序,通常在windows安装目录下"
    RetVal = Shell("hh.exe " & strHelpFile, 1)
    
End Sub

Answer 4

sub command1_click()
    shell "C:\abc.exe"
end subShell 函数的详细用法
      执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。语法Shell(pathname[,windowstyle])Shell 函数的语法含有下面这些命名参数：部分 描述 
pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。 
Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。 
windowstyle 命名参数有以下这些值：常量 值 描述 
vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。 
VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。 
VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。 
VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。 
VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。 
VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。 

Answer 5

运行 WINHLP32.EXE 并显示指定的帮助文件。语法object.ShowHelpobject 所在处代表对象表达式，其值是“应用于”列表中的对象。说明使用 ShowHelp 方法前，必须将 CommonDialog 控件的 HelpFile 和 HelpCommand 属性设置为其相应的一个常数或值。否则，Winhlp32.exe 就不能显示帮助文件。