[VB.NET] Masquer la barre des taches Windows

Version imprimable

23/04/2004, 10h41
seemax

[VB.NET] Masquer la barre des taches Windows

Bonjour,
je cherche a masquer la barre des taches Windows lorsque lance mon application, pour que l'utilisateur n'y ai plus acces.
Quelqu'un saurait-il faire ca?

merci

A priori c'est dans les API Windows, exemple pour VB6 à adapter en .NET ;)

Message édité par Abelman
[cf MP]

Code:

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
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

23/04/2004, 11h19
seemax

merci pour ton code, c'est ce qu'il me faut car je l'ai aussi trouvé sur un autre site avec un executable et ca marche...
Par contre je n'arrive pas a le transporter en VB.Net : il n'y a pas d'erreur de compilation mais ca ne marche pas...je ne comprends pas trop pour l'instant pourquoi...

C'est bon ca marche, j'ai trouvé une autre manière de déclarer FindWindow et SetWindowPos et ca marche. Voila donc comment (mais c'est vraiment tres proche de la solution que tu m'as donné :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
    Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
 
 Const TASKBAR_SHOW As Integer = &H40
 Const TASKBAR_HIDE As Integer = &H80
 
Public Sub CacherBarreTacheWindows()
        Dim TaskbarHandle As Long
 
        TaskbarHandle = FindWindow("Shell_traywnd", "")
        SetWindowPos(TaskbarHandle, 0&, 0&, 0&, 0&, 0&, TASKBAR_HIDE)
End Sub
 
Public Sub MontrerBarreTacheWindows()
        Dim TaskbarHandle As Long
 
        TaskbarHandle = FindWindow("Shell_traywnd", "")
        SetWindowPos(TaskbarHandle, 0&, 0&, 0&, 0&, 0&,TASKBAR_SHOW)
End Sub

Voila merci