Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Const SC_MAXIMIZE = &HF030 Private Const MF_BYCOMMAND = &H0& Private Const SC_RESTORE = &HF120
Private Sub Form_Load() Dim hMenu As Long, Success As Long
hMenu = GetSystemMenu(hwnd, 0) Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND) End Sub
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Const SC_MAXIMIZE = &HF030 Private Const MF_BYCOMMAND = &H0& Private Const SC_RESTORE = &HF120
Private Sub Form_Load() Dim hMenu As Long, Success As Long
hMenu = GetSystemMenu(hwnd, 0) Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND) End Sub
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Const SC_MAXIMIZE = &HF030
Private Const MF_BYCOMMAND = &H0&
Private Const SC_RESTORE = &HF120
Private Sub Form_Load()
Dim hMenu As Long, Success As Long
hMenu = GetSystemMenu(hwnd, 0)
Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
End Sub
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Const SC_MAXIMIZE = &HF030
Private Const MF_BYCOMMAND = &H0&
Private Const SC_RESTORE = &HF120
Private Sub Form_Load()
Dim hMenu As Long, Success As Long
hMenu = GetSystemMenu(hwnd, 0)
Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
End Sub
如果我要恢复呢?该怎样写??
me.maxbutton=true '恢复
不必那么麻烦