如何用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"--------------------编程问答-------------------- CHM帮助文件在VB程序中的应用
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
http://blog.csdn.net/yefanqiu/archive/2005/12/21/558261.aspx
叶帆写的,很详细。
补充:VB , 基础类