WinHelp для HTMLHelp для Visual Basic - PullRequest
Новая
       29

WinHelp для HTMLHelp для Visual Basic

0 голосов
/ 04 сентября 2018

Я унаследовал старый проект Visual Basic. Он по-прежнему работает, за исключением файла .hlp в Windows 10.

Я нашел, как я могу преобразовать файл .hlp в .chm.

Может кто-нибудь сказать мне, как заменить WinHelp на HTMLHelp в проекте VB?

Заранее спасибо

Ответы [ 2 ]

0 голосов
/ 27 сентября 2018

Я успешно получил программу установки для установки модулей WinHlp32. Мне пришлось добавить дополнительный код в программу установки, чтобы заставить модули регистрироваться.

Я пробовал это только на нескольких машинах ...

Спасибо за вашу помощь.

0 голосов
/ 04 сентября 2018

Правильный ответ зависит от ваших точных требований.

Если вы хотите только запустить старый * .exe и отобразить файл * .hlp (WinHelp), перейдите по следующей ссылке (найдите Запустите WinHelp в Windows10 ) и прочитайте все остальные ссылки внутри :

Обратите внимание на инструмент под названием HHPMod , особенно для переноса контекстно-зависимой справки F1. Если справка F1 интенсивно использовалась в вашем старом проекте, может быть трудно перейти с WinHelp ( .hlp) на HTMLHelp ( .chm).

Но вы уже на правильном пути, рекомендованном десять лет назад и по-прежнему действующим сегодня "Авторы справки должны перейти к HTML Help 1.x (.chm)".

Если вы действительно хотите перекомпилировать старый проект, тогда Загрузите пример проекта Visual Basic 6 , который может вам помочь (см. Раздел «Загрузка»).

Прежде всего, вам нужно указать файл справки, который вы хотите использовать, установив, например ::

App.HelpFile = App.Path & "\helpfile.chm"

Вы найдете все объявления в модуле modHelp.bas, например, 

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 Declare Function HTMLHelpTopic Lib "hhctrl.ocx" Alias "HtmlHelpA" _
             (ByVal hwndCaller As Long, ByVal pszFile As String, _
            ByVal uCommand As Long, ByVal dwData As String) As Long

Private Declare Function HtmlHelpSearch Lib "hhctrl.ocx" Alias "HtmlHelpA" _
            (ByVal hwndCaller As Long, ByVal pszFile As String, _
            ByVal uCommand As Long, dwData As HH_FTS_QUERY) As Long

Private Declare Function HtmlHelpIndex Lib "hhctrl.ocx" Alias "HtmlHelpA" _
            (ByVal hwndCaller As Long, ByVal pszFile As String, _
            ByVal uCommand As Long, dwData As HH_AKLINK) As Long

Для получения дополнительной информации см. Также Использование модуля для проектов Visual Basic 6

...