如何通过代码控制窗体的最小化按钮的隐藏和显示

Question

不用更詳細了，除非你還不會調api函數

Answer 1

Option ExplicitPrivate Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_MINIMIZEBOX = &H20000Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Sub Command1_Click()
    
    Dim n As Long
    n = GetWindowLong(Me.hwnd, GWL_STYLE)
    
    SetWindowLong Me.hwnd, GWL_STYLE, n - WS_MINIMIZEBOX
End SubPrivate Sub Command2_Click()
    Dim n As Long
    n = GetWindowLong(Me.hwnd, GWL_STYLE)
    
    SetWindowLong Me.hwnd, GWL_STYLE, n + WS_MINIMIZEBOX
End Sub