Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Const GWL_STYLE = (-16) Public Const WS_MINIMIZEBOX = &H20000 Public Const WS_SYSMENU = &H80000 Public Sub ChangeWindowStyle(ByVal hwnd As Long) Dim oldStyle As Long oldStyle = GetWindowLong(hwnd, GWL_STYLE) oldStyle = oldStyle Or WS_SYSMENU oldStyle = oldStyle Or WS_MINIMIZEBOX SetWindowLong hwnd, GWL_STYLE, oldStyle End Sub 把SHOWINTASKBAR设置为TRUE.记得给分。
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_STYLE = (-16)
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_SYSMENU = &H80000
Public Sub ChangeWindowStyle(ByVal hwnd As Long)
Dim oldStyle As Long oldStyle = GetWindowLong(hwnd, GWL_STYLE)
oldStyle = oldStyle Or WS_SYSMENU
oldStyle = oldStyle Or WS_MINIMIZEBOX
SetWindowLong hwnd, GWL_STYLE, oldStyle
End Sub
把SHOWINTASKBAR设置为TRUE.记得给分。