Imprimir Página

Es sencillo

En declaraciones:

Código:

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Const SW_NORMAL = 1

Y en el evento click del boton de ayuda

Código:

Dim X, Y
Y = "nombre del archivo.htm"
X = ShellExecute(Me.hwnd, "Open", App.Path & "\" & Y, &O0, &O0, SW_NORMAL)

Tienes que sustituir "nombre del archivo.htm" por el archivo de ayuda. Por ejemplo Y = "ayuda.htm"

Recuerda que tiene que estar en la MISMA carpeta que el EXE.

App.Path es donde esta el EXE.

Es decir. Si tienes el exe en C: App.Path = "C:\"
y si pones App.Path & "\carpetaDiferente\" se abrirá "C:\carpetaDiferente"

Lo que hace el codigo es ejecutar el archivo con el programa asociado. Si es Internet Explorer , con Internet Explorer. Si es otro, pues con otro.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: xadap en 1 Octubre 2005, 17:59 pm