| |||
Respuesta: Pulsar boton y mostrar ayuda chm Hola CaLer no se si habra una forma más limpia de hacer esto, pero a mi se me ocurre poner un (activex) webbroser en un formulario y en el onload poner la propiedad navigate a la página html si esta pagina la tienes tu guardada en un fichero asi basta, si no, tiene que poner el activex inet, para que coja tambien la conexion a internet. Espero haberte servido de ayuda :) |
| ||||
![]() Cita: No entendí tu pregunta, en el título mencionas un *.chm y en el mensaje dices *.html ![]()
__________________ Por favor, antes de preguntar, revisa la Guía para realizar preguntas. |
| ||||
Respuesta: Pulsar boton y mostrar ayuda chm 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:
En el evento KeyDown del Form pones la siguiente linea, para que funcione solo hay que cambiar una propiedad KeyPreview=TruePublic 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 Cita: En este caso funcionara cuando pulses la tcla F1, si deseas que se invoque desde un Boton, solo copias la linea.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 Espero te pueda servir... Cita: AtteThe_Pretorian
__________________ Creo que todas las cosas suceden por algo, no es eso que los demas llaman 'Destino'. Definitivamente Dios no juega a los dados... |