Pulsar boton y mostrar ayuda chm

[The_Pretorian]

Buenos Dias:
Para poder trabajar con con un archivo de ayuda CHM, tienes q usar la siguiente clase, cHtmlHelp. La cual puedes descargar desde esta URL cHtmlHelp

Copias este procedimiento en tu Form

Código:

Public Sub Help_Planilla()
   Dim sHelpFile As String
    cHelpFile = App.Path & "\tu_Archivo_Ayuda.chm"
    sHelpFile = cHelpFile
    App.HelpFile = sHelpFile
    'Crear una referencia al objeto para mostrar la ayuda
    Set m_HtmlHelp = New cHtmlHelp
    'Asignar las propiedades del objeto
    With m_HtmlHelp
        .hWnd = Me.hWnd
        .HelpFile = sHelpFile
    End With
End Sub

En el evento KeyDown del Form pones la siguiente linea, para que funcione solo hay que cambiar una propiedad KeyPreview=True

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim CtrlDown As Long
CtrlDown = (Shift And vbCtrlMask) > 0
If KeyCode = vbKeyF1 Then
Call m_HtmlHelp.DisplayTopic("ventas.htm")
End If
End Sub

En este caso funcionara cuando pulses la tcla F1, si deseas que se invoque desde un Boton, solo copias la linea.
Espero te pueda servir...

Iniciado por CaLeR

Pues yo quiero que al pulsar un boton ayuda me muestre la ayuda abierta por la pagina que yo qiera por ejemplo Ventas.html, gracias de antemano

Atte
The_Pretorian