VB 窗体最小化与还原

VB 窗体最小化与还原

VB程序运行时，把窗口最大化后，窗口是不能被调整大小的（最小化除外），在程序中也不行。
设计时，可以正常窗口呈现，并屏蔽窗体的最大化按钮，自己做个替代的“最大化”按钮，实现窗体放大。当点击“最大化”时，触发Form的ReSize事件，在Form的ReSize事件中，写入：
Private Sub Form_Resize()
Form1.Left = 0
Form1.Top = 0
Form1.Width = Screen.Width
Form1.Height = Screen.Height - GetTaskbarHeight
End Sub
（当程序启动时，也会同时触发Form_ReSize的）

其中，GetTaskbarHeight的获取要写进模块文件中：
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_GETWORKAREA = 48

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Function GetTaskbarHeight() As Integer
Dim lRes As Long
Dim rectVal As RECT

lRes = SystemParametersInfo(SPI_GETWORKAREA, 0, rectVal, 0)
GetTaskbarHeight = ((Screen.Height / Screen.TwipsPerPixelX) -rectVal.Bottom) * Screen.TwipsPerPixelX
End Function

但是，这样做还要考虑到有些人把任务栏移到其他地方的，比如左侧，右侧，甚至隐藏，所以，也是很麻烦的哦

第一个问题代码： Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex 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_SYSMENU = &H80000 Private Const WS_MINIMIZEBOX = &H20000 Private Const WS_MAXIMIZEBOX = &H10000 Private Sub Form_Load() Dim lStyle As Long lStyle = GetWindowLong(Me.hwnd, GWL_STYLE) lStyle = lStyle Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU SetWindowLong Me.hwnd, GWL_STYLE, lStyle End Sub 第二问题没看懂

在模块中写入一下内容：Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Public 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 Sub Command1_Click() Dim RRGN As Long RRGN = CreateRectRgn(0, 0, Form1.Width / 15, Form1.Height / 15) SetWindowRgn Me.hwnd, RRGN, True DeleteObject RRGN End SubPrivate Sub Command2_Click() Me.Height = Screen.Height + 1500 Me.Width = Screen.Width Me.Move 0, -350 Timer1.Enabled = True End SubPrivate Sub Command3_Click() Unload Me End SubPrivate Sub Command4_Click() Dim RRGN As Long RRGN = CreateRectRgn(0, 22, Form1.Width / 15, Form1.Height / 15) SetWindowRgn Me.hwnd, RRGN, True DeleteObject RRGN End SubPrivate Sub Timer1_Timer() SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3 End Sub 这段程序有1个BUG之处就是不能完全遮盖任务栏，运行时先将timer的enabled属性设置为false。Interval属性设置为10