Taille en hauteur de la barre DémarrerRésolu

Question

Bonjour,

En fait, j'ai une feuille qui s'ouvre lorsque j'appuis sur un bouton et elle s'ouvre en descendant du haut a gauche petit a petit jusqu'a ce qu'on la voit en entiere (c'est une petite fenetre). 
Mais en fait, a la place qu'elle descende d'en haut, j'aimerais pouvoir reperer la taille de la barre D&#233;marrer en bas et la faire partir de la, comment puis-je faire pour rep&#233;rer combien de haut fais la barre?

Merci
++

Gobillot · Accepted Answer

la hauteur tu l'as dans taille:

Dim Hauteur As Long

Hauteur = (Tr.Bottom - Tr.Top)

mais la barre des taches peut &#234;tre absente (non visible),

ou cach&#233;e (masquage automatique)




Daniel

malhivertman1 · Answer

En fait, en gros, il me faut le hauteur de la barre D&#233;marrer et tout ira bien
++

Gobillot · Answer

Private Type RECT

    Left   As Long

    Top    As Long

    Right  As Long

    Bottom As Long

    End Type



Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long





Private Sub Command1_Click()

    Dim hhh As Long

    Dim Tr  As RECT

    hhh = FindWindow("Shell_TrayWnd", vbNullString)

    GetWindowRect hhh, Tr

    MsgBox "visible= " & (IsWindowVisible(hhh) <> 0)

    MsgBox "cach&#233;e= " & (Tr.Bottom > Screen.Height / 15)

    MsgBox "taille= " & Tr.Right - Tr.Left & "x" & Tr.Bottom - Tr.Top

End Sub


Daniel

malhivertman1 · Answer

Merci pour ton code mais en fait j'aimerais juste une fonction qui me donne la hauteur de la barre des taches, c'est tout

++

malhivertman1 · Answer

Merci, reponse parfaite Gobillot
++

malhivertman1 · Answer

En fait, finalement le chiffre qui sort, c'est la hauteur en pixel, non?
Comment je fais pour qu'il soit proportionnel a, par exemple, screen.height parce que la, ca ne me donne pas la hauteur de la barre des taches sur l'ecran....
++

malhivertman1 · Answer

Aussi je vois que a la place de tout le code pour la hauteur de la barre des taches, GetTaskBarInformation.Height suffit
Mais mon probleme reste entier

++

Gobillot · Answer

c'est quoi &#231;a GetTaskBarInformation.Height

c'est du net ?

sinon pour transformer les Pixels en Twips tu multiplies par Screen.TwipsPerPixelY

qui doit &#234;tre &#233;gal &#224; 15





PS: note que la barre des t&#226;ches n'est pas forc&#233;ment en bas.


Daniel

malhivertman1 · Answer

Merci, la c'est parfait
++

Taille en hauteur de la barre Démarrer

9 réponses

Discussions similaires