-----Original Message-----
From: Carlos Villavieja Prados <is04830@scorpius.salleURL.edu>
To: vb-esp@ccc.uba.ar <vb-esp@ccc.uba.ar>
Date: Monday, August 31, 1998 6:52 PM
Subject: (VB-ESP) SOBRE LA AYUDA
>Hola!!
>Siento ser pesado pero me urge.
>Estoy disenando mi fichero de ayuda. Como todo fichero de Ayuda cada tema
>de este tiene un indice.
>Lo qu me gustaria que me resolvierais es como puedo acceder desde mi
>aplicacion a uno de esos temas directamente sin tener que pasar por el
>indice o el buscar.
Crea una aplicacion con el Wizard de VB y el te pone el codigo necesario
para acceder a la ayuda. Para abrir una pagina en concreto consulta la ayuda
de VB en "HelpFile" y "HelpContextID".
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal
hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Private Sub mnuHelpSearchForHelpOn_Click()
Dim nRet As Integer
'if there is no helpfile for this project display a message to the user
'you can set the HelpFile for your application in the
'Project Properties dialog
If Len(App.HelpFile) = 0 Then
MsgBox "Unable to display Help Contents. There is no Help associated
with this project.", vbInformation, Me.Caption
Else
On Error Resume Next
nRet = OSWinHelp(Me.hwnd, App.HelpFile, 261, 0)
If Err Then
MsgBox Err.Description
End If
End If
End Sub
Private Sub mnuHelpContents_Click()
Dim nRet As Integer
'if there is no helpfile for this project display a message to the user
'you can set the HelpFile for your application in the
'Project Properties dialog
If Len(App.HelpFile) = 0 Then
MsgBox "Unable to display Help Contents. There is no Help associated
with this project.", vbInformation, Me.Caption
Else
On Error Resume Next
nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0)
If Err Then
MsgBox Err.Description
End If
End If
End Sub
Manu
-------------------------------------------------------------------
Spanish people from Luxembourg (Europe)
manuel@ip.lu
Resumen