home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
distrib.akp.su/Programming/Vb-6+Rus/
/
distrib.akp.su.tar
/
distrib.akp.su
/
Programming
/
Vb-6+Rus
/
VB98
/
TEMPLATE
/
MENUS
/
HELPMENU.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1998-06-18
|
2KB
|
52 lines
VERSION 5.00
Begin VB.Form frmHelpMenu
Caption = "Form1"
ClientHeight = 2652
ClientLeft = -9996
ClientTop = 4056
ClientWidth = 4800
LinkTopic = "Form1"
ScaleHeight = 2652
ScaleWidth = 4800
Begin VB.Menu mnuHelp
Caption = "&Help"
Begin VB.Menu mnuHelpContents
Caption = "&Contents"
End
Begin VB.Menu mnuHelpSearch
Caption = "&Search For Help On..."
End
Begin VB.Menu mnuHelpBar1
Caption = "-"
End
Begin VB.Menu mnuHelpAbout
Caption = "&About MyApp..."
End
End
Attribute VB_Name = "frmHelpMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Private Sub mnuHelpAbout_Click()
MsgBox "About Box Code goes here!"
' frmAbout.Show vbModal
End Sub
Private Sub mnuHelpContents_Click()
On Error Resume Next
Dim nRet As Integer
nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0)
If Err Then
MsgBox Err.Description
End If
End Sub
Private Sub mnuHelpSearch_Click()
On Error Resume Next
Dim nRet As Integer
nRet = OSWinHelp(Me.hwnd, App.HelpFile, 261, 0)
If Err Then
MsgBox Err.Description
End If
End Sub