Обработка событий

[7Blades]

Всем привет!
Если кто может - помогите, ПЖЛ.
Имеется проект. Обычная простенькая формочка с менюшкой. В меню имеется меню (простите за тавтологию) "СПРАВКА", в нем подменю "СПРАВКА" и "О ПРОГРАММЕ".
Вопрос: Какой код можно использовать для обработки события при нажатии на подменю "СПРАВКА"? После нажатия должно происходить следующее - должен выводиться chm-файл справки (файлик сделан собственными руками).
Что нужно написать? Сам файл добавить в проект или добавить в Setup-проект, который делается вместе с этим? И как быть потом?
Никак не могу сделать. Пробовал писать код с ссылкой на файл, но выдает ошибку. Там надо только тогда точный путь прописывать. А если юзер при установке будет ставить программу в другую директорию? Тогда абсолютная ссылка не сработает.
Файл справки устанавливается в ту же папку, что и сам exe-файл программы.
Если кто может - посоветуйте.
Спасибо!

[Tarik]

Так, наверное...

Код: Выделить всё

shell app.path & "\help.chm", vbnormalfocus


[GM]

Так, наверное...

Код: Выделить всё

shell app.path & "\help.chm", vbnormalfocus


Нет shell разве что ошибку выдаст.
Скорее так.

Код: Выделить всё

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
    ShellExecute Me.hwnd, vbNullString,app.path & "\help.chm" , vbNullString, app.path, SW_SHOWNORMAL
End Sub


[/code]

[7Blades]

Скорее так.

Код: Выделить всё

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
    ShellExecute Me.hwnd, vbNullString,app.path & "\help.chm" , vbNullString, app.path, SW_SHOWNORMAL
End Sub


Это обработка события при нажатии на подменю СПРАВКА?
Как я понял, сначала объявляем функцию в коде вообще, а потом на загрузку формы пишем вызов, но если я правильно понял - это не совсем то, что мне нужно. Мне нужен код обработки события при нажатии на подменю СПРАВКА.
Потом, Me.hwnd - выдает ошибку, не тот тип; app.path - говорит, что переменная не объявлена...

[GM]

Странно
Только что проверил все работает

[7Blades]

Странно
Только что проверил все работает

Каков тогда полный код? Что куда писать?
Меню СПРАВКА сделано вручную, это не обычное "виндовое" меню (это для ясности, может что не так поняли).
Просто я код не могу понять в таком случае.

[Tarik]

Это надо писать в General:

Код: Выделить всё

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1


А это - в нужную процедуру:

Код: Выделить всё

ShellExecute Me.hwnd, vbNullString,app.path & "\help.chm" , vbNullString, app.path, SW_SHOWNORMAL


[Tarik]

Блииин... Только щас заметил, что это форум по .NET! А я тут со своим app.path Вот до чего доводит линк "Найти сообщения с Вашего последнего посещения"...

[corgi]

каталог из которого выполняется программа можно определить так:
System.Reflection.Assembly.GetExecutingAssembly.Location()
а app.path теперь нету

[GM]

Блииин... Только щас заметил, что это форум по .NET! А я тут со своим app.path Вот до чего доводит линк "Найти сообщения с Вашего последнего посещения"...

Да и я тоже

[Грандж]

я получал имя каталога так:
IO.Path.GetDirectoryName(Application.ExecutablePath) & "имя_файла.bla"