UC知道VB调用CHM帮助后为什么打不开，急！
来源：百度知道 编辑：UC知道 时间：2024/05/04 22:49:19
Private 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
Private Const SW_SHOWNORMAL = 1
Private Sub help_Click(Index As Integer)
Dim a As Long
Dim b As String
b = App.Path & "\帮助.chm" '用变量b记录与主程序同目录下的help.chm帮助文件
a = ShellExecute(0, "open", b, "", "", SW_SHOWNORMAL)
End Sub
为什么点Help没反应，也不显示哪有错误信息，还是我的路径有问题？路径要写出哪个盘，哪个文件夹吗？郁闷！急请求高手帮助~
或者是我的帮助文件没做好，怎样才算完全做好？
大哥大姐，麻烦详细点，在哪修改，我完全是VB痴，谢谢
Private Const SW_SHOWNORMAL = 1
Private Sub help_Click(Index As Integer)
Dim a As Long
Dim b As String
b = App.Path & "\帮助.chm" '用变量b记录与主程序同目录下的help.chm帮助文件
a = ShellExecute(0, "open", b, "", "", SW_SHOWNORMAL)
End Sub
为什么点Help没反应，也不显示哪有错误信息，还是我的路径有问题？路径要写出哪个盘，哪个文件夹吗？郁闷！急请求高手帮助~
或者是我的帮助文件没做好，怎样才算完全做好？
大哥大姐，麻烦详细点，在哪修改，我完全是VB痴，谢谢
ShellExecute Me.hwnd, "open", App.Path & "\帮助.chm", "", "", 1
没必须声明个 a\b 变量 一句就搞定了
ShellExecute 0, "Open", App.Path & "\help.chm", "", "", vbNormalFocus
CHM哪有什么做好做不好的？双击能打开不就行了，至于制作CHM 有很多专用工具的。