Taskpointer

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 079 fois - Téléchargée 29 fois

Contenu du snippet

Cache barre des taches et souris invisible. pour l'enlever il faut cliquer sur Terminer sur le Form.

Source / Exemple :


'Alexis mr_intel8'
'API nécessaire pour le mode "toujours visible"
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 Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
ShowCursor True
Dim hWin As Long
hWin = FindWindow("Shell_traywnd", "")
SetWindowPos hWin, 0, 0, 0, 0, 0, &H40
End Sub

Private Sub Form_Load()
ShowCursor False
Dim hWin As Long
hWin = FindWindow("Shell_traywnd", "")
SetWindowPos hWin, 0, 0, 0, 0, 0, &H80
Dim Resultat As Long
Const Flags = &H2 Or &H1 Or &H40 Or &H10

If Check1.Value = 1 Then    'On active le mode toujours visible
    Resultat = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, Flags)
Else                        'On désactive le mode toujours visible
    Resultat = SetWindowPos(Form1.hwnd, -2, 0, 0, 0, 0, Flags)
End If
End Sub

Conclusion :


Sympa pour faire des blagues a des amis.

A voir également

Ajouter un commentaire

Commentaires

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
Messages postés
171
Date d'inscription
jeudi 15 avril 2004
Statut
Membre
Dernière intervention
18 juillet 2007

Bonjour,

Comment supprimer l'espace de travail qui reste de la barre des taches ?

10/10

Cordialement,
Messages postés
1467
Date d'inscription
samedi 13 mars 2004
Statut
Membre
Dernière intervention
5 mai 2010
2
Oui, c'est vrai... Et un petit zip la prochaine fois !
Messages postés
1536
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
24 mai 2009
2
Bonjour,

Une solution, qui je pense serait plus propre, est l'utilisation de l'api ShowWindow pour faire disparaitre la task bar !

++

Alhexman

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.