1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Récupérer la hauteur de la barre des tâches

Récupérer la hauteur de la barre des tâches

Soyez le premier à donner votre avis sur cette source.

Snippet vu 19 902 fois - Téléchargée 8 fois

Commenter

Contenu du snippet 

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, ByRef pData As APPBARDATA) As Long
Private Const ABM_GETSTATE = &H4
Private Const ABM_GETTASKBARPOS = &H5
Private Type APPBARDATA
    cbSize As Long
    hWnd As Long
    uCallbackMessage As Long
    uEdge As Long
    rc As RECT
    lParam As Long
End Type

Public Function Height_TaskBar() As Long
    Dim ABD As APPBARDATA, ret As Long
    
    SHAppBarMessage ABM_GETTASKBARPOS, ABD
    
    Select Case ABD.uEdge 'position in screen
    Case 0 'left
        Height_TaskBar = (ABD.rc.Right * Screen.TwipsPerPixelX)
    Case 1, 3 'Top or bottom
        Height_TaskBar = ((ABD.rc.Bottom - ABD.rc.Top) * Screen.TwipsPerPixelY)
    Case 2 'right
        Height_TaskBar = ((ABD.rc.Right - ABD.rc.Left) * Screen.TwipsPerPixelX)

    End Select
End Function

Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

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.

Du même auteur (WhiteHippo)