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 '
必 须 同 一 行; 为WIN95,NT
' Declare Function WinHelp Lib "User" (ByVal hwnd As
Integer, ByVal lpHelpFile As String, ByVal wCommand As
Integer, dwData As Any) As Integer ' 必须 同 一 行; 为WIN3.X
(2) 窗 体 文 件
Private Sub Form_Load()
App.HelpFile = "d:\winword\dxchlp.hlp"
End Sub
Private Sub mnuContents_Click()
i% = WinHelp(Form1.hwnd, App.HelpFile, HELP_CONTENTS, 0)
End Sub
Private Sub mnuKeySearch_Click()
i% = WinHelp(Form1.hwnd, App.HelpFile, HELP_KEY, 0)
End Sub