打開幫助文件時的提示如何去除？

jynj

使用代碼打開一個幫助文件時，有下面的提示，不知應(yīng)如何隱藏？

jynj

wanshan


等級：Office黑俠
文章：694
積分：981
門派：無門無派
注冊：2004年4月10日第 2 樓   QQ   

--------------------------------------------------------------------------------
這個問題也曾經(jīng)困擾我好久，不過現(xiàn)在已經(jīng)解決了！有三種方法：

1.

SendKeys "{LEFT}"   '模擬按下←
SendKeys "{ENTER}"   '模擬按下回車鍵

這樣就相當(dāng)于按下確定鍵了！

2.

                    Dim aaa As String
                    aaa = """hh.exe"" " & CurrentProject.Path & "\幫助文件名.chm"
                    Call Shell(aaa, 1)
3.先建一個模塊：

Const HH_DISPLAY_TOPIC = &H0
Const HH_HELP_CONTEXT = &HF

Declare Function HtmlHelp Lib "HHCtrl.ocx" Alias "HtmlHelpA" _
    (ByVal hwndCaller As Long, _
   ByVal pszFile As String, _
   ByVal uCommand As Long, _
   dwData As Any) As Long

然后在單擊事件中寫：

Call HtmlHelp(0, CurrentProject.Path & "\幫助文件名.chm", &H0, ByVal "幫助文件名htm")