| |
Пример вызова справки из вашего приложения |
|
| |
Данный пример довольно прост - имеет всего три шага, но довольно часто задается "юными" программистами, создающими справочные файлы для своих приложений. Итак, вот что нужно для отображения в вашей программе файла Справки myfile.chm:
'Объявим переменную.
Const HH_DISPLAY_TOPIC = &H0
'Объявим API-функцию HtmlHelp.
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
'Создадим вызов HtmlHelp
Private Sub HH_DISPLAY_Click()
Dim hwndHelp As Long
'hWnd - переменная типа Long, содержащая указатель
формы,
'которое будет родительским к окну справки
'hwndHelp - будет содержать указатель созданного окна
Справки
hwndHelp = HtmlHelp(hWnd, "myfile.chm", HH_DISPLAY_TOPIC, 0)
End Sub
'Источник: http://www.relib.com/code.asp?id=360
|
|
| |
|
|
|
|