关于最小化问题,快强分!!

[wh2]

VB中,在一般情况下,一个borderstyle=0的窗体是不能被缩小到任务栏上的,但我想实现将它最小化到任务栏上,怎么才能办到?谢谢指教

[shines77]

设计时将窗体的 ShowInTaskbar 属性设为 True，此属性运行时不能修改，如想修改必须要用API。

[etoy]

Public Const SC_MINIMIZE = &HF020&
Public Const WM_SYSCOMMAND = &H112

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'在要最小化时运行如下命令
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MINIMIZE, 0

[shines77]

etoy: 如果 ShowInTaskbar 属性为 False，你最小化也是没用的。

[shines77]

etoy: 如果 ShowInTaskbar 属性为 False，你最小化也是没用的。（这样只会最小化，而不可能停在任务栏上。）

其实最小化时用 Me.WindowState = 1 即可。