lockclose.bas

一个客车售票系统

Attribute VB_Name = "Module1"
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, _
   ByVal wFlags As Long) As Long
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal nPostition As Long, _
   ByVal wFlags As Long) As Long
Private Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Long) As Long
Private Const MF_BYPOSTION = &H400
Private Const MF_REMOVE = &H1000
Private Const SC_CLOSE = &HF060
Public Sub Disabled(a, B)
    Dim hMenu, hwndMenu As Long
    Dim c As Long
    hMenu = GetSystemMenu(a, 0)
    RemoveMenu hMenu, SC_CLOSE, MF_REMOVE
    hwndMenu = GetSystemMenu(a, 0)
    hwndMenu = GetSystemMenu(hwnd, 0)
    c = GetMenuItemCount(hwndMenu)
    DeleteMenu hwndMenu, c - 1, MF_BYPOSITION
End Sub