toto = FindWindow("Shell_TrayWnd", vbNullString)
ret = ShowWindow(toto, 2) ' il faut la montrer d'abord, pour le cas où elle serait déjà cachée. ret = ShowWindow(toto, 0) ' pour la cacher
ret = ShowWindow(toto, 1)
GetWindowRect bwnd, R
Private Type RECT ' TYPE RECT (rectangle) Left As Long ' gauche (de tout le coté gauche) Top As Long ' haut (de tout le coté haut) Right As Long 'droite (de tout le côté droit) Bottom As Long 'bas (de tout le côté bas) End Type
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question