Alias

' Ecco due dichiarazioni dell'API WinHelp


Private 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
Private Declare Function WinHelpSearch Lib "user32" Alias _
"WinHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As _
String, ByVal wCommand As Long, ByVal dwData As String) _
As Long

' Ecco le costanti di cui c'e' bisogno


Private Const HELP_PARTIALKEY = &H105&
Private Const HELP_HELPONHELP = &H4
Private Const HelpFile = _
"c:\program\files\devstudio\vb5\help\vb5.hlp"

'Ora aggiungi due pulsanti nel tuo form

'(cmdHelpAbout e cmdHelpSearch) ed inserisci il seguente

'codice nelle loro relative Sub Click. Controlla che la

'directory del file di help corrisponda con la tua

'installazione di Visual Basic.


Private Sub cmdHelpAbout_Click()
'

'

WinHelp Me.hwnd, HelpFile, HELP_HELPONHELP, &H0
'

'

End Sub

Private Sub cmdHelpSearch_Click()
'

'

WinHelpSearch Me.hwnd, HelpFile, HELP_PARTIALKEY, _
"option"
'

'

End Sub

'Manda in esecuzione il tuo progetto e, quando premi sul

'pulsante HelpAbout vedrai comparire l'help contestuale

'(che utilizza l'help di sistema). Se premi sul pulsante

'HelpSearch vedrai comparire una lista di voci

'sull'argomento "option".


ZD Tips © 1998 by Mauro Rossi