barre des tachesRésolu

Question

bonjour, g fai une connerie : g plus la barre des taches!! voila comment je l'ai enlever mais je peu plu la remettre svp aidez moi!!! mon module : Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hwnd As Long, ByVal hWndChild As Long, ByVal lpszClassName As String, ByVal lpszWindow As String) As Long Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Const SW_HIDE = 0 Public Const SW_NORMAL = 1 Public Const SW_SHOWMINIMIZED = 2 Public Const SW_SHOWMAXIMIZED = 3 Public Const SW_SHOWNOACTIVATE = 4 Public Const SW_SHOW = 5 Public Const SW_MINIMIZE = 6 Public Const SW_SHOWMINNOACTIVE = 7 Public Const SW_SHOWNA = 8 Public Const SW_RESTORE = 9 Public Const SW_SHOWDEFAULT = 10 ma form : Dim bDisabled As Boolean hwnd = FindWindowEx(0&, 0&, "Shell_traywnd", vbNullString) If hwnd <> 0 Then Call ShowWindow(hwnd, WS_HIDE) 'la elle est cachée End If Dim bDisabled As Boolean hwnd = FindWindowEx(0&, 0&, "Shell_traywnd", vbNullString) EIf hwnd <> 1 Then Call ShowWindow(hwnd, WS_SHOW)'la elle se remet plus alors qu'elle le devrait !!! End If merci de votre aide!!

Gobillot · Accepted Answer

j'utilise FindWindow mais &#231;a devrait marcher avec l'autre aussi:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

si t'avais mis Option Explicit tu aurais vu ton erreur:

SW_HIDE et SW_SHOW

Daniel

Gobillot · Answer

elle devrait se remettre :
hwnd = FindWindow( "Shell_TrayWnd", vbNullString)
ShowWindow hwnd,5

Daniel

cs_Anne Onyme · Answer

C'est amusant !! 

Anne....

Gobillot · Answer

&#231;a m'est arriv&#233; alors, j'ai perdu la barre des t&#226;ches et les icones en plus.

Daniel

Barre des taches

4 réponses

Discussions similaires