Visual Basic - ¿Como llamar a la ayuda?

Life is soft - evento anual de software empresarial
 
Vista:

¿Como llamar a la ayuda?

Publicado por Marcos (6 intervenciones) el 31/07/2000 00:00:00
Tengo hecha una ayuda con formato chm (como páginas HTML) pero ahora no se como hacer para que desde un botón llamar a la ayuda para que se muestre.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

CON API

Publicado por edu (448 intervenciones) el 31/07/2000 00:00:00
Utiliza esta API de Windows pero primero debe de declarar algunas constantes....

Private Enum HH_COMMAND
HH_DISPLAY_TOPIC = &H0
HH_HELP_FINDER = &H0 ´ WinHelp equivalent
HH_DISPLAY_TOC = &H1 ´ not currently implemented
HH_DISPLAY_INDEX = &H2 ´ not currently implemented
HH_DISPLAY_SEARCH = &H3 ´ not currently implemented
HH_SET_WIN_TYPE = &H4
HH_GET_WIN_TYPE = &H5
HH_GET_WIN_HANDLE = &H6
HH_GET_INFO_TYPES = &H7 ´ not currently implemented
HH_SET_INFO_TYPES = &H8 ´ not currently implemented
HH_SYNC = &H9
HH_ADD_NAV_UI = &HA ´ not currently implemented
HH_ADD_BUTTON = &HB ´ not currently implemented
HH_GETBROWSER_APP = &HC ´ not currently implemented
HH_KEYWORD_LOOKUP = &HD
HH_DISPLAY_TEXT_POPUP = &HE ´ display string resource id
´ or text in a popup window
HH_HELP_CONTEXT = &HF ´ display mapped numeric value
´ in dwData
HH_TP_HELP_CONTEXTMENU ´ Text pop-up help, similar to
´ WinHelp´s HELP_CONTEXTMENU.
HH_TP_HELP_WM_HELP = &H11 ´ text pop-up help, similar to
´ WinHelp´s HELP_WM_HELP.
HH_CLOSE_ALL = &H12 ´ close all windows opened directly
´ or indirectly by the caller
HH_ALINK_LOOKUP = &H13 ´ ALink version of HH_KEYWORD_LOOKUP
End Enum


Private Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHel
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

NO SALIO CoMPLETO

Publicado por edu (448 intervenciones) el 31/07/2000 00:00:00
No salio completo disculpa, despues de declarar las variables escribe

Private Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, ByVal pszFile As String, _
ByVal uCommand As HH_COMMAND, ByVal dwData As Long) As Long

Private Sub command1_Click()
Dim h As Long
h = HtmlHelp(Me.hWnd, "Nombre.chm", HH_DISPLAY_TOPIC, 0&)
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar