En VB :
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_EXSTYLE = (-20)
Const WS_EX_APPWINDOW = &H40000
private sub ShowInTaskbar (byval bVisible as boolean)
dim oldStyle as long
dim newStyle as long
oldStyle = GetWindowLong(me.hwnd, GWL_EXSTYLE)
if ( bVisible = true)
newStyle = oldStyle Or WS_EX_APPWINDOW
else
newStyle = oldStyle And Not WS_EX_APPWINDOW
end if
SetWindowLong me.hwnd, GWL_EXSTYLE, newStyle
end sub
[jfdsdjhfuetppo]--Message édité par KarLKoX le 22-04-2002 à 10:59:02--[/jfdsdjhfuetppo]