Учебник по Visual Basic 5.0

Памятники в виде часовни по материалам http://www.koelgamsk.ru. |

Доступ к справочной системе Windows - часть 2



        Global Const HELP INDEX = &H3                 'Display index


        Global Const HELP HELPONHELP = &H4 'Display help on using help


        Global Const HELP SETINDEX = &H5 'Set an alternate Index


        Global Const HELP KEY = &H101                 'Display topic for keyword in Data


        Global Const HELP MULTIKEY = &H201 'Look up keyword in alternate table

    Например, для того, чтобы вызвать стандартную справочную систему "Help on Help", необходимо испольвать следующую процедуру:

    Public Sub DisplayHelp On Help(X As Form)


        Dim Foo As Long ' dummy variable


        Foo = WinHeip(X.hWnd,"C:\WINDOWS\HELP\WINDOWS.HLP",


        HELP HELPONHELP,CLng(O))


    End Sub

    После этого любая строка вида

    DisplayHelp_On_Help_Me

будет вызывать стандартную справочную систему Windows.

Примечание:


Примечание:

После присвоения параметру hCommand значения HELP_CONTEXT следует установить для параметра dwData соответствующий номер ID контекстной строки.


    Если для вызова справочной системы используется WinHeip API, то для того чтобы закрыть дополнительные окна справки, вам нужно снова вызвать функцию WinHeip API (т.к. справочная система Windows является отдельным приложением). Это можно сделать следующим образом (обычно для этого используется событие Form Unload). Переменные Foo и Bar должны иметь правильный тип, хотя реально они не несут никакой полезной нагрузки.

    Sub Form_Unload(Cancel As Integer)


            Dim Foo As Integer, Bar As String 'dummy variables


            Foo = WinHeip(Me.hWnd, Bar, Help_Quit, CLng(O))


    End Sub




- Начало -  - Назад -  - Вперед -