26/03/2004, 13:50
|
 | | | Fecha de Ingreso: agosto-2003 Ubicación: Puerto Rico
Mensajes: 332
Antigüedad: 21 años, 8 meses Puntos: 0 | |
| hola
añades el archivo de ayuda en Proyect > Proyect Properties > Help File Name: ruta del archivo de ayuda
en la forma:
Private Sub mnuHelp_Click()
Dim nRet As Integer
If Len(App.HelpFile) = 0 then
msgbox "No se puede mostrar el archivo.", 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
saludos
hmtech
__________________
"...todos los días hay que luchar por que ese amor a la humanidad viviente se transforme en hechos concretos, en actos que sirvan de ejemplo, de movilización."
Che Guevara |