VB调用帮助文件的三种常用方法

IT商界

孙建新

　　一、利用SHELL命令

　　On Error Resume Next

　　Dim x As Long

　　x = Shell("c:\windows\winhelp c:\MYHELP.HLP", vbMaximizedFocus)

　　二、利用COMMDIALOG控件

　　On Error Resume Next

　　commondialog1.HelpFile = "c:\MYHELP.HLP"

　　commondialog1.HelpCommand = cdlHelpContext

　　commondialog1.HelpContext = 0

　　commondialog1.ShowHelp

　　End Sub

　　三、利用系统API函数

　　先申明：

　　Private Declare Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Long) As Long

　　程序部分：

　　On Error Resume Next

　　Dim x As Long

　　x = WinHelp(hwnd, "c:\MYHELP.HLP", cdlHelpContents, 1)

　　注：以上c:\MYHELP.HLP为我们假设的帮助文件。