Question

VB6.0 无标题窗口 任务栏 问题

showintaskbar可以在任务栏显示，但是点击它不能最小化。请问怎么设置才能实现点击最小化呢？

Answer 1

没有标题的窗口是没有最小化按钮的,所以,你只能自己做个最小化按钮用来实现最小化功能,用个picturebox就可以

追问

自己已经做了最小化按钮

Me.WindowState = vbMinimized
就是问问能不能通过直接点击任务栏那个图标来最小化。

Answer 2

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_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000



Private Sub Form_Load()
Dim lStyle As Long
lStyle = GetWindowLong(hwnd, GWL_STYLE) Or WS_SYSMENU Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX
SetWindowLong hwnd, GWL_STYLE, lStyle
End Sub