Astuces de recherche...
Home
- Accueil & nouveautés
- Les newsgroups VB
- Téléchargements
- L'équipe
- Nous contacter
- Liens
Rubriques
- Toutes les questions
- Affichage & graphismes
- Algorithmique
- API
- Base de registre
- Bases de données
- Contrôles
- Date & heure
- Déploiement
- Divers
- Erreurs & problèmes
- Fichiers & dossiers
- Généralités
- Impression
- Internet & mails
- Math
- Multimédia
- Réseaux
- Structures de données
- Texte & strings
- VB .Net
- VB Script
- VBA
- Windows

Question 9

Comment masquer la barre des tâches ?

Le code suivant permet de masquer la barre des tâches, pour ensuite la réafficher :

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Const TOGGLE_HIDEWINDOW = &H80
Const TOGGLE_UNHIDEWINDOW = &H40

Private Function TaskbarHandle() As Long

    TaskbarHandle = FindWindow("Shell_traywnd", "")

End Function

Private Sub HideTaskbar()

    Call SetWindowPos(TaskbarHandle(), 0, 0, 0, 0, 0, TOGGLE_HIDEWINDOW)

End Sub

Private Sub UnhideTaskbar()

    Call SetWindowPos(TaskbarHandle(), 0, 0, 0, 0, 0, TOGGLE_UNHIDEWINDOW)

End Sub

Private Sub Form_Load()

    HideTaskbar 'Masque la barre de tâches
    Sleep 3000 'Attend 3 secondes
    UnhideTaskbar 'Réaffiche la barre des tâches

End Sub

Dans un même ordre d'idées, vous pouvez aussi consulter la fiche suivante : 143117 - HOWTO : Déterminer si la barre des tâches de Windows 95/98 est visible ou cachée.

Date de publication : 07 juillet 2002
Dernière modification : 07 juillet 2002
Rubriques : Windows
Mots-clés : barre des tâches