С помощью эл. управления CommonDialog Вы можете отобразить свой файл справки Help.
Для этого неоходимо свойство CommonDialog1.Action установить в 6 или же применить метод ShowHelp.
Но, прежде чем перед Вами появится файл справки Help необходимо назначить ряд свойств.
1.Установить значение свойства HelpCommand одной из констант приведенной в таблице
Константы
|
Значения
|
Описание
|
| cdlHelpContext |
&H1
|
Отображение Help
для специальной темы |
| cdlHelpQuit |
&H2 |
Сообщение
программе Help, что
определенный справочный
файл - больше не используется |
| cdlHelpIndex |
&H3
|
Отображает индекс
определенного Help файла |
| cdlHelpContents |
&H3 |
Отображает тему
содержания в текущем Help
файле |
| cdlHelpHelpOnHelp |
&H4 |
Отображает Help
для использования
непосредственной
прикладной программы Help |
| cdlHelpSetIndex |
&H5 |
Устанавливает
текущий индекс для
многоиндексного Help |
| cdlHelpSetContents |
&H5 |
Обозначает
специфическую тему как
тему содержания |
| cdlHelpContextPopup |
&H8 |
Отображает тему,
идентифицированную
контекстным номером |
| cdlHelpForceFile |
&H9 |
Создает Help
файл, который отображает
текст в только одном
шрифте |
| cdlHelpKey |
&H101 |
Отображает Help для
специфического ключевого
слова |
| dlHelpCommandHelp |
&H102 |
Отображает Help
для специфической команды |
| cdlHelpPartialKey |
&H105
|
Вызывает поиск в
Справке Windosw |
2.Установить значение свойства HelpFile, т.е. указать путь к Вашему файлу Help.
3.И наконец, вызываем сам Help.
CommonDialog1.Action = 6 или же CommonDialog1.ShowHelp
Теперь скомпануем все вышеописанное в упорядоченный код:
Private Sub mnuWinHelp_Click()
On Error GoTo ErrorHandler
With CommonDialog1
.CancelError = True
.HelpCommand = cdlHelpHelpOnHelp
.HelpFile = "C:\Windows"
.Action = 6
End With
Exit Sub
ErrorHandler:
If Err.Number = 32755 Then
Exit Sub
End If
End Sub
