我在程序这么写的:
        Dim X                              
        X = Shell("EXPLORER " + App.Path + "\help\help.chm", 1)
     
        可是有提示下载那个窗体,比较烦,请问各位大哥怎么解决的!

解决方案 »

  1.   

    这个声明ShellExecute这个API函数
    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
    利用这个API函数打开后缀名为CHM的文件
    ShellExecute Me.HWnd, "Open", "help.chm", vbNullString, App.Path + "\help\", 1