RAFRAICHIR LA BARRE DES TACHES

Question

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.

cs_casy · Answer

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 #

Ulala2 · Answer

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.

cs_casy · Answer

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 #

Ulala2 · Answer

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.

jmfmarques · Answer

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

Ulala2 · Answer

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.

le cancre · Answer

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

le cancre · Answer

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

Ulala2 · Answer

bonjour,

oui je m'en étais apercu :) pas de pb

mais désolé, cela ne fonctionne pas non plus.

le cancre · Answer

bon ...voila une autre ...une méthode plus hard
direction gestionnaire de tache 
dans les processus , tu kille ton explorer.exe 
et tu le réactive

Ulala2 · Answer

non plus, j'ai essayé.

je trouve pleins de codes pour rafraichir l'horloge, les petites icones du systray, le nom du bouton démarrer ...
(essayé sans succès au cas ou)

mais encore rien pour les barre d'outils.

le cancre · Answer

Re 
on tente autre chose ? 

tu peux toujours essayer d'envoyer un message WM_PAINT à la fenêtre du systray pour la rafraichir.

jmfmarques · Answer

Parce qu'il ne s'agit pas simplement d'un rafraichissement mais de bien autre chose.

Je ne sais pas ce qu'affiche ta barre des tâches, mais j'ai l'impression de ce que ce n'est pas elle qui est concernée mais le résultat de son utilisation...
A traiter en activation et gestions d'erreurs, peut-être ?...

Ulala2 · Answer

si tu veux reproduire ce que j'essaye de faire, ajoute un lecteur réseau.

puis ajoute une nouvelle barre d'outils en faisant clique droit -> nouvelle barre d'outils et choisis un répertoire situé sur le lecteur réseau.

puis perd la connexion au réseau, en choisissant une IP hors de la plage habituelle. puis remet la bonne IP de suite.

tu verras que les dossier qui était dans la nouvelle barre d'outils n'y sont plus. mais le titre de la barre reste.

ce que je veux éviter, c'est désactiver la barre, et la remettre ce qui est fastidieux.

jmfmarques · Answer

J'ai bien compris !
Mais : au moment ou tu "installes" ta barre des tâches, des messages Windows sont traités par Windows...
Il n'y a alors pas 36 solutions :
Soit (solution la moins complexe) gérer avec un timer et la gestion d'erreurs et décider du maintien ou non de cette barre
Soit (solution complexe) gérer les messages Windows

le cancre · Answer

En attendant de trouver une meilleure solution, bloque la mise à jour de ta boite à outils avec LockWindowUpdate <-je sais c'est pas super....sinon tu peux tres bien te faire toi meme par le code cette boite à outils...pour ton histoire c'est plus un bug de windows que autre chose

Ulala2 · Answer

que veux-tu dire par "gérer avec un timer et la gestion d'erreurs et décider du maintien ou non de cette barre
" ?

PCPT · Answer

salut, je te laisse voir pour la récupération du handle. en attendant tu peux essayer avec WM_PAINT (comme Le cancre te l'a suggéré)... sur une Form, pose un timer. F5, place la souris sur la barre des tâches, et attend 3 secondes.... Option Explicit Private Const WM_PAINT = &HF Private Type POINTAPI X As Long Y As Long End Type ' Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long ' Private Sub Form_Load() Timer1.Interval = 3000 End Sub ' Private Sub Timer1_Timer() Timer1.Enabled = False Dim tPos As POINTAPI, lH& Call GetCursorPos(tPos) lH = WindowFromPoint(tPos.X, tPos.Y) Me.Caption = "En Cours, hWnd = " & lH Call SendMessage(lH, WM_PAINT, 0&, 0&) End Sub Coloration syntaxique automatique [AFCK] qu'est-ce que çà donne? ++ PCPT [AFCK]

Prenez un instant pour répondre à ce sondage svp

Ulala2 · Answer

bonjour,

merci pour ta réponse, mais ca n'a pas l'air de marcher.

par contre, j'ai réussi une fois, mais ca doit être le hasard, en supprimant la connexion manuellement (deconnecter un lecteur réseau) puis en le reconnectant, puis WM_PAINT.

j'ai essayé via la programmation, avec la commande NET USE /delete puis NET USE [file://\lepartage\lepath \lepartage\lepath] ... blabla mais rien à faire.

ca doit bien être possible, ca à marché une fois :)

Philippe734 · Answer

Hello,
Ulala2 as tu réussis à rafraichir la barre des taches depuis le temps ? Car la solution m'intéresse. Merci

RAFRAICHIR LA BARRE DES TACHES

20 réponses

Votre réponse

Discussions similaires