标题: 一个有意思的问题,请高手解决 [打印本页] 作者: binbow_z 时间: 2002-4-7 19:53 标题: 一个有意思的问题,请高手解决 在窗体中按按钮帮助后,会出现这样的帮助界面,如何将标题栏中的MICROSOFT ACCESS帮助改为销售管理系统帮助,并将"应答向导"和"索引"两个选项卡去掉
我的罗斯文数据库中没有找到调用罗斯文数据库的帮助的宏,但我找到了ShowHelpAPI函数
Function ShowHelpAPI() As Boolean
' This procedure is used by the Show Me button on various Developer
' Solutions toolbars. It uses the WinHelp API function so that the
' Show Me Help button will provide context-sensitive Help regardless
' of the current state of the object. Make sure that the Help file is
' in the same directory as the Developer Solutions database.
Dim lnghWnd As Long, strHelpFile As String, lngContext As Long
Dim lngRetVal As Long, obj As Object
On Error Resume Next
Const conHelpContext = &H1
Set obj = Screen.ActiveForm
If Err = 2475 Then
' Active object is not a form.
' Reset Err and test for Report object.
Err = 0
Set obj = Screen.ActiveReport
If Err = 2476 Then
' Current object is not a form or a report.
MsgBox "Select a form or report before you ask for help."
ShowHelpAPI = False
Exit Function
End If
End If
With obj
' Get the current object's hWnd, HelpFile, and HelpContextID properties.
lnghWnd = .hWnd
strHelpFile = .HelpFile
lngContext = .HelpContextId
End With
lngRetVal = WinHelp(lnghWnd, strHelpFile, conHelpContext, lngContext)
ShowHelpAPI = True
End Function
