Crear ayuda
Publicado por Cubato (5 intervenciones) el 27/04/2004 19:21:49
Const HH_DISPLAY_TOPIC = &H1
Const HH_DISPLAY_INDEX = &H2
Private Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, _
ByVal dwData As Long) As Long
Private Sub MostrarAyudaInd(ByVal texto As String)
Dim hwndHelp As Long
hwndHelp = HtmlHelp(hWnd, texto, HH_DISPLAY_INDEX, 0)
End Sub
Private Sub MostrarAyudaCont(ByVal texto As String)
Dim hwndHelp As Long
hwndHelp = HtmlHelp(hWnd, texto, HH_DISPLAY_TOPIC, 0)
End Sub
Private Sub Command1_Click()
MostrarAyudaCont App.Path & "\Ayuda.chm::ayuda1.html"
End Sub
Private Sub Command2_Click()
MostrarAyudaCont App.Path & "\Ayuda.chm::ayuda2.html"
End Sub
Private Sub Command3_Click()
MostrarAyudaInd App.Path & "\Ayuda.chm::ayuda1.html"
End Sub
como podria traducir esto para ejecutarlo en power
de ante mana graxia
Valora esta pregunta


0