Postada em 08/12/2004 09:02 hs
'Em um modulo: Option Explicit Private Declare Function HtmlHelpTopic Lib "hhctrl.ocx" Alias _ "HtmlHelpA" (ByVal hWnd As Long, ByVal lpHelpFile As String, _ ByVal wCommand As Long, ByVal dwData As String) As Long Sub ShowHtmlHelp(ByVal tHelpFile As String, ByVal tHelpPage As String) Const HH_DISPLAY_TOPIC =3D &H0 On Error Resume Next 'Abre o Help HtmlHelpTopic 0, tHelpFile, HH_DISPLAY_TOPIC, tHelpPage End Sub 'No seu form insira um CommandButton Private Sub cmdHelp_Click() ShowHtmlHelp App.path & "SeuArqDeAjuda.chm", "Introducao.htm" End Sub
|