-

Iniciado por xadap, 1 Octubre 2005, 17:59 PM

0 Miembros y 1 Visitante están viendo este tema.

xadap

-
-

_Sergi_

Es sencillo

En declaraciones:

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

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.
Proyecto de Ingeniero

xadap

-
#2
-

_Sergi_

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.
Proyecto de Ingeniero

xadap

-
#4
-

xadap

-
#5
-

_Sergi_

Proyecto de Ingeniero