怎么在窗体STYE属性设为0，ShowInTaskbar属性设为TRUE后，在任务栏中的没有了图标，怎么设呢？

[Yan5453]

[uguess]

Private Sub Form_Load()
ChangeWindowStyle Me.hwnd
End Sub

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

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_HINSTANCE = (-6)
Private Const GWL_HWNDPARENT = (-8)
Private Const GWL_ID = (-12)
Private Const GWL_USERDATA = (-21)
Private Const GWL_WNDPROC = (-4)
Private Const GWL_STYLE = (-16)

Private Const WS_ACTIVECAPTION = &H1
Private Const WS_BORDER = &H800000
Private Const WS_CAPTION = &HC00000 ' WS_BORDER Or WS_DLGFRAME
Private Const WS_CHILD = &H40000000
Private Const WS_CHILDWINDOW = (WS_CHILD)
Private Const WS_CLIPCHILDREN = &H2000000
Private Const WS_CLIPSIBLINGS = &H4000000
Private Const WS_DISABLED = &H8000000
Private Const WS_DLGFRAME = &H400000
Private Const WS_GROUP = &H20000
Private Const WS_HSCROLL = &H100000
Private Const WS_MAXIMIZE = &H1000000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZE = &H20000000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_OVERLAPPED = &H0&
Private Const WS_POPUP = &H80000000
Private Const WS_SYSMENU = &H80000
Private Const WS_TABSTOP = &H10000
Private Const WS_THICKFRAME = &H40000
Private Const WS_TILED = WS_OVERLAPPED
Private Const WS_VISIBLE = &H10000000
Private Const WS_VSCROLL = &H200000
Private Const WS_GT = (WS_GROUP Or WS_TABSTOP)
Private Const WS_ICONIC = WS_MINIMIZE
Private Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)
Private Const WS_POPUPWINDOW = (WS_POPUP Or WS_BORDER Or WS_SYSMENU)
Private Const WS_SIZEBOX = WS_THICKFRAME
Private Const WS_TILEDWINDOW = WS_OVERLAPPEDWINDOW




Private Const WS_EX_ACCEPTFILES = &H10&
Private Const WS_EX_APPWINDOW = &H40000
Private Const WS_EX_CLIENTEDGE = &H200&
Private Const WS_EX_CONTEXTHELP = &H400&
Private Const WS_EX_CONTROLPARENT = &H10000
Private Const WS_EX_LAYERED = &H80000
Private Const WS_EX_DLGMODALFRAME = &H1&
Private Const WS_EX_LAYOUTRTL = &H400000
Private Const WS_EX_LEFT = &H0&
Private Const WS_EX_LEFTSCROLLBAR = &H4000&
Private Const WS_EX_LTRREADING = &H0&
Private Const WS_EX_MDICHILD = &H40&
Private Const WS_EX_NOACTIVATE = &H8000000
Private Const WS_EX_NOINHERITLAYOUT = &H100000
Private Const WS_EX_NOPARENTNOTIFY = &H4&
Private Const WS_EX_RIGHT = &H1000&
Private Const WS_EX_RIGHTSCROLLBAR = &H0&
Private Const WS_EX_RTLREADING = &H2000&
Private Const WS_EX_STATICEDGE = &H20000
Private Const WS_EX_TOOLWINDOW = &H80&
Private Const WS_EX_TOPMOST = &H8&
Private Const WS_EX_TRANSPARENT = &H20&
Private Const WS_EX_WINDOWEDGE = &H100&
Private Const WS_EX_OVERLAPPEDWINDOW = (WS_EX_WINDOWEDGE Or WS_EX_CLIENTEDGE)
Private Const WS_EX_PALETTEWINDOW = (WS_EX_WINDOWEDGE Or WS_EX_TOOLWINDOW Or WS_EX_TOPMOST)