1,486
社区成员
发帖
与我相关
我的任务
分享
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" ( _
ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long, _
ByVal wIDNewItem As Long, _
ByVal lpString As Any) As Long
Private Const SC_MAXIMIZE = &HF030&
Private Const MF_BYCOMMAND = &H0
Private Const MF_STRING = &H0
Private Const MF_ENABLED = &H0&
Private Const MF_GRAYED = &H1
Private Const MF_DISABLED = &H2&
Private Declare Function SetWindowPos Lib "user32" ( _
ByVal hWnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal wFlags As Long) As Long
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4
Private Const SWP_FRAMECHANGED = &H20 'The frame changed: send WM_NCCALCSIZE
Public Sub Maximize()
Call ModifyMenu(GetSystemMenu(m_lngWinhWnd, False), SC_MAXIMIZE, MF_BYCOMMAND + MF_STRING + MF_GRAYED + MF_DISABLED, 0&, "最大化(&X)")
Call SetWindowPos(m_lngWinhWnd, 0&, 0&, 0&, 0&, 0&, SWP_NOMOVE + SWP_NOSIZE + SWP_NOZORDER + SWP_FRAMECHANGED)
End Sub