RAFRAICHIR LA BARRE DES TACHES

Bonjour,

je cherche le moyen de rafraichir la barre des taches (systray) de windows.

j'essaye par findwindow et sendmessage mais je ne trouve pas de message correspondant.

Une idée ?

merci d'avance.

Rafraichir la barre des taches ??? Pourquoi faire ?

Normalement c'est Windows qui s'en charge tout seul comme un grand


---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

Bonjour,

oui tout à fait.

le problème, c'est que j'ai une barre d'outils dont le dossier est situé sur un lecteur réseau, et si à un moment donné le serveur est redémarré ou perte du réseau alors j'ai toujours le nom de la barre d'outils, mais plus les doubles chevrons qui permettent de voir le contenu du dossier.

ce que je souhaite donc, c'est rafraichir en quelques sorte la barre d'outils afin d'avoir accès à nouveau au contenu du répertoire.

Excuse moi, j'ai pas les idées très claiers ce matin, mais la barre d'outils est dans ton appli. Au pire tu la rafraichie qu'elle est activée.

C'est quoi le rapport avec la barre des taches de Windows ?

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

bonjour,

bon ok.

Tu sais la barre grise ou y'a le bouton démarrer ? et bien c'est cette barre la que j'ai envie de rafraichir, plus exactement une barre d'outils que j'ai ajouté (clique droit -> barre d'outils ->nouvelle barre d'outils).

j'espère que cette fois je suis plus clair.

Une solution (à essayer... je ne l'ai pas zsswayée moi-même...)  :
Cacher la barre des tâches et la réafficher aussitôt après.

Inspire toi de ceci  (utilise un bouton de commande pour déclencher, par exemple) et essaye, pour voir si ta barre se rafraichit :

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Activate()
  Dim X As Long, fenhwnd As Long, fen As String, ret As Long
  fen = Space(256): fen = "Shell_TrayWnd"
  fenhwnd = FindWindow(fen, vbNullString) ' pour définir le handle de systray
  ret = ShowWindow(fenhwnd, 2) ' il faut d'abord la "montrer", pour le cas où elle serait "masquée"
                                 'par l'utilisateurs (choix windows, en dur)
  DoEvents
  ret = ShowWindow(fenhwnd, 0) ' on cache la barre des tâches
  depart = Timer
  While Timer < depart + 5 ' on attend ici 5 secondes, par exemple
    DoEvents
  Wend
   ret = ShowWindow(fenhwnd, 1) ' on affiche la barre des tâches
End Sub

 

Bonjour,

j'ai essayé ce genre de code, mais cela ne force pas le rafraichissement des barre d'outils mais juste de la cacher et de la réafficher.

Lu..... tente avec ca
LockWindowUpdate =  fonction permet de désactiver (ou réactiver) le rafraîchissement d'une fenêtre

Private Declare Function LockWindowUpdate Lib "user32" Alias "LockWindowUpdate" ( ByVal hwndLock As Long)As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Activate()
LocWindowUpdate FindWindow("Shell_TrayWnd", vbNullString)Doevents
' Débloque les mises à jour
LockWindowUpdate 0
End sub

dans la form activate il manque le "k" de LockWindowUpdate à remettre
et fait un saut de ligne pour mettre Doevents en dessous

bonjour,

oui je m'en étais apercu :) pas de pb

mais désolé, cela ne fonctionne pas non plus.