禁止最小化

Question

我想禁止我的程序被最小化，包括win+d快捷键，任务栏的最小化按钮！

Answer 1

设计时Form1的MinButton 设为 False并屏蔽win键,方法见:
http://www.baidu.com/s?wd=%C6%C1%B1%CEwin%BC%FC

Answer 2

MinButton 设为 False后，任务栏菜单的最小化项自然被禁止。

Answer 3

将那几个讨厌的按钮干掉：Option ExplicitPrivate Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const WS_SYSMENU = &H80000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const GWL_STYLE = (-16)Private Sub Form_Load()
        Dim TempLng As Long
        TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)
        TempLng = TempLng And Not WS_MINIMIZEBOX
        TempLng = TempLng And Not WS_MAXIMIZEBOX
        TempLng = TempLng And Not WS_SYSMENU
        SetWindowLong Me.hwnd, GWL_STYLE, TempLng
End Sub

Answer 4

'form属性中minButton=false,ShowInTaskBar = false