home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
QBAS
/
5PAK20.ZIP
/
CLAK20.ZIP
/
SAMPLE.ZIP
/
MENUSEL.GBL
< prev
Wrap
Text File
|
1993-08-03
|
754b
|
20 lines
' Menu flags
Global Const MF_BYCOMMAND = &H0
Global Const MF_BYPOSITION = &H400
Global Const MF_SEPARATOR = &H800
Declare Function GetMenu Lib "User" (ByVal hWnd As Integer) As Integer
Declare Function GetSystemMenu Lib "User" (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer
Declare Function GetSubMenu Lib "User" (ByVal hMenu As Integer, ByVal nPos As Integer) As Integer
Declare Function GetMenuItemID Lib "User" (ByVal hMenu As Integer, ByVal nPos As Integer) As Integer
Declare Function GetMenuItemCount Lib "User" (ByVal hMenu As Integer) As Integer
' type structure for the help message string and related menu item ID
Type HelpTextTYPE
lMenuID As Long
lhMenu As Long
strHelpMsg As String
End Type