Dim MyHelp As String
MyHelp = Shell(App.Path + "\MYHELP.HLP", 1)
AppActivate MyHelp
help.hlp подключение
пробовал так
Код:
ничего не вышло.подскажите что не так?
Запускай сразу winhlp32.exe и в первом параметре ему передавай путь к .hlp.
Цитата: Proger_XP
Запускай сразу winhlp32.exe и в первом параметре ему передавай путь к .hlp.
а можно пример?
Для работы в Vista и выше скачай winhlp32.exe для Висты, я ссылку тебе уже давал сегодня.
Цитата: cpentyc
а можно пример?
Private Declare Function WinHelp_
Lib "user32" Alias "WinHelpA" (_
ByVal hwnd As Long, _
ByVal lpHelpFile As String, _
ByVal wCommand As Long, _
ByVal dwData As Long_
) As Long
Const HELP_TAB = &HF
Private Sub Form_Click()
Dim lngX As Long
lngX = WinHelp(hWnd, "MYHELP.HLP",HELP_TAB,0)
End Sub