请问在vb编写的程序中，怎样加入用"html help workshop"写的帮助文件呢？

Question

我希望在点击窗体菜单help时弹出已编译好的帮助文件help.chm，请问我该怎么做？
谢谢！

Answer 1

用API函数HtmlHelpConst 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.
Const HH_CLOSE_ALL = &H12
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
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    Dim hwndHelp As Long
    'The return value is the window handle of the created help window.
    hwndHelp = HtmlHelp(hWnd, "myfile.chm", HH_DISPLAY_TOPIC, 0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    HtmlHelp Me.hWnd, "", HH_CLOSE_ALL, 0
End Sub

Answer 2

不用那么麻烦的
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 LongPrivate Sub helpme_Click()
    Dim x
    x = winhelp(hWnd, App.Path & "\help.HLP", HELP_TAB, 0)
End Sub

Answer 3

Private Sub mnuTopic_Click()
    App.HelpFile = App.Path + "\help\efuhelp.chm"
    mnuTopic.HelpContextID = 1
   SendKeys "{F1}", True
End Sub

Answer 4

强用其它工具：用shell函数来完成。
调用帮助用:winhelp函数来完成。
有什么不明白的可能找我。

Answer 5

制作 HTML HELP 的教程 
http://www.triaton.com.cn/Private/Zip/HtmHlp.zip http://outinn.myrice.com/book/htmlhelp/index.htm
Html Help帮助文件的制作与使用
------------------------------------------------------------------
1 shell  "HH.exe  C:\xxx.chm"2 怎样在vb里调用.chm帮助文件？
http://www.csdn.net/expert/topic/539/539048.xml?temp=.5720178

Answer 6

1,app.helpfile=帮助文件的文件名(包括路径)
这样按F1键可弹出帮助。再在显示帮助的菜单单击事件中写：
shell "hh.exe "&帮助文件的文件名(包括路径),vbNormalFocus2,调用外部程序用shell函数。
如：
shell "c:\windows\winmine.exe",vbnormalfocus
启动windows的扫雷程序。

Answer 7

不用这样,你可以用一软件做.hlp文件,在vb中直接加就是了,何必这样
这个软件是:helpandmanual302528很好用