Question

vb 点击任务栏如何实现最大化最小化

一般程序，包括VB建立的窗体，在任务栏上不断单击，就会不断的切换 最大化和最小化。
我做了一个无边窗体。设置如下
Form1.BorderStyle = 0
Form1.ShowInTaskbar = True

虽然在任务栏上有显示。但是点击却不能大小化切换。

请问如何实现这个功能？
Form1.ShowInTaskbar = True 就是给系统添加一个任务栏（标题栏）

就是不知道 怎么扑抓是否按下这个任务栏的程序。如果能拦截到就已经基本完成了。
=========
jadyapple 你完全误会我意思了。Form1.BorderStyle = 0 是无边框的。再说我也不是要找最大化和最小化。笼统的说。是要找扑抓 单击系统上任务栏的事件。

Answer 1

form有一个属性，可以设置，让该属设为最小化最大化还原无效，，自己去找吧，没分，伤心。

Answer 2

因为没有标题栏，所以就没有自带的大小化功能，用语句来实现吧。。

Answer 3

在设计模式下设置borderstyle为0，ShowInTaskbar为true，然后使用下列代码即可：
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