如何在VB.NET中啟動運(yùn)行chm文件?

'chm文件放在bin文件夾下:

創(chuàng)新互聯(lián)長期為數(shù)千家客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為銀川企業(yè)提供專業(yè)的網(wǎng)站制作、成都網(wǎng)站制作，銀川網(wǎng)站改版等技術(shù)服務(wù)。擁有10年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。

'button按鈕下:

Help.ShowHelp(Me, Application.StartupPath "\10.chm")

VB.NET 如何打開一個chm文檔

放在你的主程序.exe的同一目錄下

用一句話施行打開它

System.Diagnostics.Process.Start("test.chm")

VB打開CHM文件的幾種方法

引:一個應(yīng)用程序不論編制得如何完美，在很多情況下用戶還是會對如何使用它提出問題。 Visual Basic 提供了對兩種不同幫助系統(tǒng)的支持：傳統(tǒng)的 Windows 幫助系統(tǒng) (WinHelp)和新的 HTML 幫助（CHM幫助）。 一個應(yīng)用程序不論編制得如何完美，在很多情況下用戶還是會對如何使用它提出問題。 Visual Basic 提供了對兩種不同幫助系統(tǒng)的支持：傳統(tǒng)的 Windows 幫助系統(tǒng) (WinHelp)和新的 HTML 幫助（CHM幫助）。當(dāng)我們制作好幫助文件后，就需要在程序的適當(dāng)位置編寫代碼進(jìn)行調(diào)用，本文將討論幾種在程序中調(diào)用CHM幫助文件的方法。 方法一 使用F1鍵： 這種方法最簡單，只需如下代碼即可： Private Sub Form_Load() App.HelpFile = app.path "\help.chm" '調(diào)用與主程序同目錄下的help.chm幫助文件，按F1鍵調(diào)用End Sub方法二 使用SendKeys方法： Private Sub Form_Load() App.HelpFile = app.path "\help.chm"End Subprivate Sub CmdHelp_Click() SendKeys "{F1}" '發(fā)送擊鍵到活動窗口End Sub方法三 使用Shell函數(shù)： private Sub CmdHelp_Click() Shell "hh.exe help.chm", vbNormalFocus 'help.chm為指定的幫助文件，可包含路徑。 End Sub 方法四 使用HtmlHelp函數(shù)： 先聲明如下API： 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 'hwndCaller指定調(diào)用者的窗口，pszFile指定要調(diào)用的文件，uCommand是發(fā)送給 HtmlHelp的命令，dwData是uCommand的參數(shù)。 然后在過程中調(diào)用： private Sub CmdHelp_Click() dim i as string i = app.path "\help.chm" '用變量i記錄與主程序同目錄下的help.chm幫助文件 HtmlHelpA Form1.hWnd, i, 0, 0End Sub方法五 使用ShellExecute函數(shù)： 先聲明如下API： Option Explicit '聲明API函數(shù)用于異步打開一個文檔 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 然后在過程中調(diào)用： 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以上五種方法各有優(yōu)缺點(diǎn)，從代碼的簡單上講，建議使用第二種方法。從功能上講，建議使用第五種方法，因其不只用于打開CHM幫助文件，還可用同樣的格式打開、打印或查找一個文件或文檔。

給VB程序添加一個chm文檔

方法一　使用F1鍵：

這種方法最簡單，只需如下代碼即可：

Private Sub Form_Load()

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

End Sub

方法二 使用SendKeys方法：

Private Sub Form_Load()

App.HelpFile = app.path "\help.chm"

End Sub

private Sub CmdHelp_Click()

SendKeys "{F1}" '發(fā)送擊鍵到活動窗口

End Sub

方法三 使用Shell函數(shù)：

private Sub CmdHelp_Click()

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

End Sub

方法四 使用HtmlHelp函數(shù)：

先聲明如下API：

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

'hwndCaller指定調(diào)用者的窗口，pszFile指定要調(diào)用的文件，uCommand是發(fā)送給 HtmlHelp的命令，dwData是uCommand的參數(shù)。

然后在過程中調(diào)用：

private Sub CmdHelp_Click()

dim i as string

i = app.path "\help.chm" '用變量i記錄與主程序同目錄下的help.chm幫助文件

HtmlHelpA Form1.hWnd, i, 0, 0

End Sub

方法五 使用ShellExecute函數(shù)：

先聲明如下API：

Option Explicit

'聲明API函數(shù)用于異步打開一個文檔

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

然后在過程中調(diào)用：

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

以上五種方法各有優(yōu)缺點(diǎn)，從代碼的簡單上講，建議使用第二種方法。從功能上講，建議使用第五種方法，因其不只用于打開CHM幫助文件，還可用同樣的格式打開、打印或查找一個文件或文檔（參見該API的說明資料）。

新聞標(biāo)題：vb.netchm文檔 vbnet trim
網(wǎng)頁路徑：http://aaarwkj.com/article8/hhpoip.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、網(wǎng)站排名、企業(yè)建站、品牌網(wǎng)站設(shè)計(jì)、ChatGPT、建站公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)