日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

Private Sub Form_Load()
App.HelpFile = app.path & "\help.chm" '調(diào)用與主程序同目錄下的help.chm幫助文件，按F1鍵調(diào)用
End Sub

Private Sub Form_Load()

App.HelpFile = app.path & "\help.chm"
End Sub
private Sub CmdHelp_Click()
SendKeys "{F1}" '發(fā)送擊鍵到活動(dòng)窗口
End Sub

private Sub CmdHelp_Click()

Shell "hh.exe help.chm", vbNormalFocus 'help.chm為指定的幫助文件，可包含路徑。
End Sub

Option Explicit
Private Declare Function HtmlHelpA Lib "hhctrl.ocx"
(ByVal hwndCaller As Long, ByVal pszFile As String,
ByVal uCommand As Long, ByVal dwData As Long) As Long

private Sub CmdHelp_Click()
dim i as string
i = app.path & "\help.chm" '用變量i記錄與主程序同目錄下的help.chm幫助文件
HtmlHelpA Form1.hWnd, i, 0, 0軟件開(kāi)發(fā)網(wǎng)www.mscto.com
End Sub

Option Explicit

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 CmdHelp_Click()
dim a as long
Dim b As String
b = App.Path & "\help.chm" '用變量b記錄與主程序同目錄下的help.chm幫助文件
a = ShellExecute (0, "open", b, "", "", SW_SHOWNORMAL)
End Sub