Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte Visual Basic 6.
2
zvoľte " Štandardné EXE " z nového zoznamu projektov . To bude klásť hlavný VB formulár na obrazovke , rovnako ako zobrazenie VB ToolBox .
3
zvoľte " Button " z VB ToolBox a umiestnite ho na svoje hlavné VB formulár . To bude klásť CommandButton do formulára .
4
Poklepaním na hlavnú VB formulára budete umiestnený na ovládací prvok tlačidla na dostať do jeho kódu modulu .
5
Zadajte alebo skopírujte a vložte nasledujúci kód :
Option Explicit
" Tu je volanie API
Private Declare Function WinHelp Lib " user32 " Alias " WinHelp " _
( byVal hwnd As Long , byVal lpHelpFile As String , _ byVal
wCommand As Long , byVal dwData As Long ) As Long
Private Const HELP_CONTENTS = 3
Privátne Const HELP_FINDER = 11
Private Sub Command1_Click ( ) klipart
Dim LRESULT ako dlho
Dim sHelpFile As String Dim
lCommand tak dlho , lOption ako dlhé
sHelpFile = " winfile.hlp "
lCommand = HELP_CONTENTS
lOption = 0
LRESULT = WinHelp ( Me.hwnd , sHelpFile , lCommand , lOption )
End Sub