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