help.bas

适合乡镇供电所使用电费处理系统v3 软件

Attribute VB_Name = "Help"
Option Explicit
Declare Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Any) As Long
Global Const HELP_QUIT = 2
Global Const HELP_INDEX = 3
Global Const HELP_HELPONHELP = 4
Global Const HELP_PARTIALKEY = &H105   '索引
Global Const HELP_CONTENTS = &H3       ' 3
'Global Const HELP_CONTEXTPOPUP = &H8   ' 8  弹出帮助

Sub HelpFunction(lhWnd As Long, HelpCmd As Integer, HelpKey As String)
    Dim lRtn As Long
    If HelpCmd = HELP_PARTIALKEY Then
       lRtn = WinHelp(lhWnd, App.HelpFile, HelpCmd, HelpKey)
    Else
       lRtn = WinHelp(lhWnd, App.HelpFile, HelpCmd, 0&)
    End If
End Sub