📄 help.bas
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -