VB里实现帮助文件速成

Declare Function WinHelp Lib "user32" Alias "WinHelpA"
(ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal
wCommand As Long, ByVal dwData As Long) As Long '
必 须 同 一 行; 为WIN95,NT
' Declare Function WinHelp Lib "User" (ByVal hwnd As
Integer, ByVal lpHelpFile As String, ByVal wCommand As
Integer, dwData As Any) As Integer ' 必须 同 一 行; 为WIN3.X
（2） 窗 体 文 件
Private Sub Form_Load()
App.HelpFile = "d:\winword\dxchlp.hlp"
End Sub

Private Sub mnuContents_Click()
i% = WinHelp(Form1.hwnd, App.HelpFile, HELP_CONTENTS, 0)
End Sub

Private Sub mnuKeySearch_Click()
i% = WinHelp(Form1.hwnd, App.HelpFile, HELP_KEY, 0)
End Sub

上一篇： VB软件开发中的错误捕获及处理技术
下一篇： VB开发技巧三则

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!