Help Search on the Menu Bar

Ever wanted to add a “Search for Help on…” item in themenu bar? Here’s the secret:

 'Declares and Constant for Help Menu Declare Function WinHelp% Lib "User" _ (ByVal hWnd%, ByVal HelpFile$, ByVal helpcode%, _ ByVal helpdata&) Declare Function WinHelpByString% Lib "User" _ Alias "WinHelp" (ByVal hWnd%, ByVal HelpFile$, _ ByVal helpcode%, ByVal helpdata$) Const HELP_PARTIALKEY = &H105 'call the search engine in winhelp Sub mnuSEARCH_Click ( ) Dim R% R% = WinHelpByString(Me.hWnd, App.HelpFile, _ HELP_PARTIALKEY, " ") End Sub 
		
Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: