Question

VB 窗体最小化与还原

在无边框情况下,窗体显示在系统任务栏里(ShowInTaskbar = True)就是点击在如下位置的程序名,可以最小化 和 还原窗体 还有 在无边框情况下,窗体显示在系统任务栏里(ShowInTaskbar = True)时候最大化窗体就会把任务栏遮住,有什么办法可以像其它程序一样,最大化时漏出任务栏?

Answer 1

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

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

Answer 2

在模块中写入一下内容：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

Answer 3

第一个问题代码：
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
第二问题没看懂