当前位置:编程学习 > VB >>

如何用VB6控件整合CHM文件到生成的EXE程序中

这是我没用控件之前的代码:
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 Sub Command1_Click() 

ShellExecute 0, "open", "文件路径", vbNullString, vbNullString, 1 

End Sub 
生成EXE后,CHM路径必须不能变,一变就打不开。所以想用控件把CHM文件整合到EXE中。我是新菜鸟 ,望好心同志解答我的疑虑 --------------------编程问答-------------------- 可以这样用,在各自窗口调用即时把帮助
'App.HelpFile = App.Path & "帮助文档\新版软件帮助.CHM"
Private Sub About_2_Click()
'打开CHM文件
strSQL = "hh.exe " & MyPath & "帮助文档\新版软件帮助.CHM"
Shell strSQL, vbNormalFocus
End Sub

Private Sub HelpCom_Click()
'在用户信息编辑窗口打开该窗口的帮助说明
Dim m_Value As Long
mysSerStr = App.Path & "帮助文档\新版软件帮助.CHM::/用户信息编辑.htm"
m_Value = htmlhelp(Me.hwnd, mysSerStr, 0, 0)
If m_Value = 0 Then MsgBox "帮助文档不存在!", vbInformation + vbSystemModal, Me.Caption

End Sub

--------------------编程问答-------------------- CHM帮助文件在VB程序中的应用
http://blog.csdn.net/yefanqiu/archive/2005/12/21/558261.aspx

叶帆写的,很详细。
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,