Abrir archivos chm en visual basic

[mdcoppa]

Hola, cree un archivo de ayuda chm para mi aplicacion y tengo problemas para abrirlo desde visual...

probe con:

- Shell("start " & App.Path & "\help\pesca_help.chm")

- Shell(App.Path & "\help\pesca_help.chm")


y en los dos casos me dice que no puede encontrar el archivo.

Alguien sabe como puedo hacer para abrir el archivo?

[chronos682]

Si lo deseas yo tengo un control ActiveX hecho por mí, en el cual tu escribes el Path y la ventana que quieres abrir exáctamente del archivo de ayuda .chm y el control hace todo el trabajo "sucio".

Si quieres te lo puedo mandar via e-mail. Para esto sólo escríbeme a [email protected] y en Asunto escribe CHM, luego yo te devolveré un mensaje con el control adjunto.

Es muy fácil de usar, funciona en VB 5/6 y además trae su propio archivo de ayuda .chm en donde te indica las propiedades y métodos del control.

[Nightmare]

No es necesario utilizar algun ActiveX para abrir los archivos CHM, y usar la funcion Shell tampoco es la mejor opción, ya que tantas veces como se ejecute esa función sera el número de ventanas que estaran abiertas, todas ellas con el mismo archivo, es decir, si pones la sentencia Shell(....) en una opción de menú, si el usuario de la aplicación accede tres veces a esa opción de menú, este tendra tres ventanas con el mismo archivo CHM abiertas.

No se cómo funcione el ActiveX que te sugirierón utilizar, no se si tenga esa misma problematica, o alguna otra, yo te recomendaría utilizar mejor la función API que realiza la tarea de abrir el archivo CHM, esta abrira solo una ventana con el archivo CHM independientemente de cuantas veces se ejecute esta.

Lo siguiente lo tendras que agregar en un modulo, para poder tenerlo accesible desde cualquier parte de la aplicación:

Public Enum HH_COMMAND
HH_DISPLAY_TOPIC = &H0
HH_HELP_FINDER = &H0
HH_DISPLAY_TOC = &H1
HH_DISPLAY_INDEX = &H2
HH_DISPLAY_SEARCH = &H3
HH_SET_WIN_TYPE = &H4
HH_GET_WIN_TYPE = &H5
HH_GET_WIN_HANDLE = &H6
HH_GET_INFO_TYPES = &H7
HH_SET_INFO_TYPES = &H8
HH_SYNC = &H9
HH_ADD_NAV_UI = &HA
HH_ADD_BUTTON = &HB
HH_GETBROWSER_APP = &HC
HH_KEYWORD_LOOKUP = &HD
HH_DISPLAY_TEXT_POPUP = &HE
HH_HELP_CONTEXT = &HF
HH_TP_HELP_CONTEXTMENU
HH_TP_HELP_WM_HELP = &H11
HH_CLOSE_ALL = &H12
HH_ALINK_LOOKUP = &H13
End Enum

Public Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, ByVal pszFile As String, _
ByVal uCommand As HH_COMMAND, ByVal dwData As Long) As Long

Ahora, para abrir el archivo chm, como por ejemplo desde una opción de menú, tendras que tener algo cómo lo que sigue:

Private Sub mnuAyuda_Click()
'De esta forma se muestra en el tópico por defecto
Dim h As Long
h = HtmlHelp(Me.hWnd, "hhw_vb.chm", HH_DISPLAY_TOPIC, 0&)
End Sub

Espero que te sea de utilidad o a alguien más

[chronos682]

Precisamente lo que hace el control es evitarle tener que escribir todo ese código. Lo único que debe hacer usted como programador es colocar el path completo del archivo chm (en la propiedad Path) y el nombre de la página web que desea abrir exáctamente del archivo de ayuda. De esta forma me parece a mí que es más fácil, y práctico ya que no tiene que llenar el programa de código fuente innecesario.

[Nightmare]

Pues me gustaría que me pasaras el ActiveX para analizarlo y asi poder opinar acerca de el

[mdcoppa]

gracias nightmare, cree el modulo con el codigo como me dijiste y funciono a la perfeccion...
voy a analizar el control activex de chronos682 y les comento.

[Nightmare]

Ok. De nada, haber si tu si me puedes enviar el Active X, mi e-mail es [email protected] para tambien analizarlo y dar mi punto de vista

[mdcoppa]

todavia no lo recibi, le mande un mail a chronos682, asi que en cuanto tenga el control te la re-envio

salu2

[chronos682]

Envié el control chmFilesX a [email protected]. Espero que él se encargue de reenvirlo. Además, espero que cada uno de ustedes lo prueben, lo analicen y manden alguna sugerencia o comentario al foro de discusión. Espero alguno de sus mensajes. Posiblemente le mande una copia a Nightmare esta o la próxima semana.

[rishart]

Hola amigos, yo tengo un problema conrespecto a abrir los archivos chm solo que mi caso yo habro el archivo con el siguiente codigo:

Código:

h = HtmlHelp(Me.hwnd, App.Path & "\Multiplicare_Ganadero.chm", HH_DISPLAY_TOPIC, 0&)

el caso es que mi problema o mas bien quisiera que alguien pudiese ayudarme a como puedo abrir el archivo pero en un tema en especifico. es decir el codigo que menciono arriba me abre el archivo en un tema default pero quisiera saber como hacerlo en un tema especifico. espero que me puedan ayudar se los agradeceria muchisimo.. les agradezco de antemano y les envio un cordial saludo.

[seba123neo]

no revivan post viejos esto tiene casi 4 años........