用COMMANDDIALOG控制就可以了,
或者用API,winhlp

解决方案 »

  1.   

    App.HelpFile = App.Path & "\Help.hlp"
      

  2.   

    Public 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
    Public Const HELP_FINDER = &HB&
    Private Sub Form_Load()   '主窗体载入
       App.HelpFile = App.Path & "\help\*.HLP"   '帮助文件
    end sub
    Private Sub MeuHelpFile_Click()   '帮助主题-菜单
       Dim Hlp As Long
       Hlp = WinHelp(MainForm.hwnd, App.HelpFile, HELP_FINDER, CLng(0))
    End Sub
      

  3.   

    试一下vb中的shell函数吧!
    GOOD LUCK!!!!!!!!!
      

  4.   

    shell("hh.exe 你要打开的文件")
      

  5.   

    有两种方法:一种最简单是在VB的工程名上点右键,打开属性窗口,再在help file name 下输入你的帮助文件的完整路径和文件名,这样,在运行工程后,按F1即可打开帮助。另一种是用代码实现:
    Public 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 
    定义后,用一控件的单击事件运行如下语句即可,你可以试一下,应该可以的。
    ShellExecute Me.hwnd, "open", "帮助文件名", "", App.Path, 1