فراخوانی فایل Help

[adib202]

با سلام
چطور میشه در رویداد کلیک یک فایل راهنما با فرمت chm رو اجرا کرد.
توی جستجوهای انجام شده مطلبی که واضح باشه ندیدم.لطفا راهنمایی کنید.

[Pr0grammer]

می تونید از این کد استفاده کنید :

Option Explicit
Private 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
'Constants used by HtmlHelp
Const HH_DISPLAY_TOPIC = &H0
Const HH_SET_WIN_TYPE = &H4
Const HH_GET_WIN_TYPE = &H5


Const HH_GET_WIN_HANDLE = &H6
Const HH_DISPLAY_TEXT_POPUP = &HE 'Display String resource ID or text in a pop-up window.
Const HH_HELP_CONTEXT = &HF 'Display mapped numeric value In dwData.
Const HH_TP_HELP_CONTEXTMENU = &H10 'Text pop-up help, similar To WinHelp's HELP_CONTEXTMENU.
Const HH_TP_HELP_WM_HELP = &H11 'Text pop-up help, similar To WinHelp 's HELP_WM_HELP.
'Opens the compiled help file

Private Sub ShowHelpFile(strFilename As String)

Dim hwndHelp As Long
'The return value is the window handle o
' f the created help window.
hwndHelp = HtmlHelp(hWnd, strFilename, HH_DISPLAY_TOPIC, 0)
End Sub

روش استفاده :

ShowHelpFile ("C:\sample.chm")

موفق باشید