1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| Fonction FindWindow
Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Description :
Cette fonction permet de rechercher une fenêtre. Elle ne fonctionne que sur les fenêtres principales (pas les filles des MDI).
lpClassName est le nom de la classe qui identifie la fenêtre (rarement connu et donc souvent égal à une chaîne vide).
lpWindowName est le titre (complet) de la fenêtre.
La fonctionne retourne alors le handle de la fenêtre, en cas d'échec, elle renvoie 0.
Exemple d'utilisation :
' Exemple proposé par Ket Ans (ket_ans@hotmail.com)
Public Function GetTaskbarHWND() As Long
GetTaskbarHWND = FindWindow("shell_traywnd", "")
End Function
' On peut ensuite utiliser ce handle pour cacher ou
' afficher la barre des tâches
Public Sub HideTaskbar()
' Cacher la barre des tâches
Dim hWin As Long
hWin = GetTaskbarHWND()
SetWindowPos hWin, 0, 0, 0, 0, 0, &H80
End Sub
Public Sub ShowTaskbar()
' Afficher la barre des tâches
Dim hWin As Long
hWin = GetTaskbarHWND()
SetWindowPos hWin, 0, 0, 0, 0, 0, &H40
End Sub |
Partager