如何制作和使用帮助文件

如何制作和使用帮助文件(5)      .ShowHelp
      End With
    End Sub

    Private Sub mnuSearch_Click()
      With CommonDialog1
        .HelpCommand = cdlHelpKey 'cdlHelpKey 是 显 示 关 健 字 搜 索 的 命 令
      .ShowHelp
      End With
    End Sub

    Private Sub mnuAbout_Click()
        aboutform.Show 1 ' 以 模 态 显 示" 关 于" 窗 口
 End Sub

    Private Sub mnuExit_Click()
        End
    End Sub

    以 上 可 用 调 用 动 态 联 结 库 的 方 法， 代 码 如 下：
    （1） 模 块 文 件：
        Global Const HELP_CONTENTS = &H3&
        Global Const HELP_KEY = &H101
        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()