Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
Masha
Зарегистрирован: 25.07.2006 Сообщения: 2
|
Добавлено: Вт Июл 25, 2006 5:11 pm Заголовок сообщения: Как сделать кнопку с пользовательским Help-ом? |
|
|
Здравствуйте!
Поскажите, пожалуйста, как сделать, чтобы по некоторой кнопке вызывался некоторый Help.
Я пыталась делать так:
Код: |
define HH_HELP_CONTEXT = &HF ' Display mapped numeric value in dwData.
define topic_in_help 0
define help_filename "Help/MyHelp.chm"
define zero_const 0
declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Integer, ByVal pszFile As String, ByVal uCommand As Integer, ByVal dwData As Integer) As Integer
'в функции main:
Control Button
Title "kuku Button"
Width 60
Height 12
Position 42, 108
Calling KukuMessage
ID 123
'далее:
sub KukuMessage
Call ShowHelp(topic_in_help)
end sub
Sub ShowHelp(ByVal nID As Integer)
Call HtmlHelp(zero_const, help_filename, HH_HELP_CONTEXT, nID)
End Sub
|
|
|
Вернуться к началу |
|
|
Masha
Зарегистрирован: 25.07.2006 Сообщения: 2
|
Добавлено: Ср Июл 26, 2006 9:00 am Заголовок сообщения: |
|
|
Забыла написать, что именно не работает: ругается на строчку
Код: |
Call HtmlHelp(zero_const, help_filename, HH_HELP_CONTEXT, nID),
|
что "cannot call a function". Не могу понять, почему. В VBA для AutoCAD-a такой фрагмент работал.
Я также пробовала вместо этой строчки написать
Код: |
Set Window Help File "Help\MyHelp.chm" Permanent, |
но результат был нулевой - при нажатии F1 ничего не происходит. |
|
Вернуться к началу |
|
|
|