在窗本控制菜单添加项目.bas

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

Attribute VB_Name = "Module1"
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const GWL_WNDPROC = (-4)
Public Const WM_SYSCOMMAND = &H112
Public Const MENU_ABOUT = 1
Public Const MENU_HELP = 2
Public Const MF_SEPARATOR = &H800&
Public PrevWndFunc As Long
Public Function MenuFunc(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If wMsg = WM_SYSCOMMAND Then
        Select Case wParam
            Case MENU_ABOUT
                MsgBox "Success for you !", vbInformation, "关于"
            Case MENU_HELP
                MsgBox "Hello ,How are you ?", vbInformation, "帮助"
            Case Else
                MenuFunc = CallWindowProc(PrevWndFunc, hwnd, wMsg, wParam, lParam)
        End Select
    Else
        MenuFunc = CallWindowProc(PrevWndFunc, hwnd, wMsg, wParam, lParam)
    End If
End Function