无标题栏的窗口如何实现点击任务栏上的窗口后最小化呢？
无标题栏的窗口如何实现点击任务栏上的窗口后最小化呢？
[解决办法]
搜索到一段代码，你试试是不是你要的
Option Explicit
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_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)
Private Const WS_EX_ACCEPTFILES = &H10&
Private Const WS_EX_APPWINDOW = &H40000
Private Const WS_SYSMENU = &H80000
Private Const WS_MINIMIZEBOX = &H20000
Public Sub ChangeWindowStyle(ByVal hwnd As Long)
Dim oldStyle As Long
oldStyle = GetWindowLong(hwnd, GWL_EXSTYLE)
oldStyle = oldStyle Or WS_EX_APPWINDOW
SetWindowLong hwnd, GWL_EXSTYLE, oldStyle
oldStyle = GetWindowLong(hwnd, GWL_STYLE)
oldStyle = oldStyle Or WS_SYSMENU
oldStyle = oldStyle Or WS_MINIMIZEBOX
SetWindowLong hwnd, GWL_STYLE, oldStyle
End Sub
Private Sub Form_Load()
ChangeWindowStyle Me.hwnd
End Sub
