Taille de la barre de titre!!!

0/5 (1 avis)

Vue 3 183 fois - Téléchargée 278 fois

Description

Il faut 2 command bouton!
@++
Megatrix

Source / Exemple :


'Dans une forme
Const ABM_GETTASKBARPOS = &H5
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type APPBARDATA
cbSize As Long
hwnd As Long
uCallbackMessage As Long
uEdge As Long
rc As RECT
lParam As Long
End Type
Private Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As APPBARDATA) As Long

Private Sub Command1_Click()
Dim ABD As APPBARDATA, Ret As Long
SHAppBarMessage ABM_GETTASKBARPOS, ABD
Command1.Caption = (ABD.rc.Bottom - ABD.rc.Top) * 13.5
End Sub

Private Sub Command2_Click()
Dim ABD As APPBARDATA, Ret As Long
SHAppBarMessage ABM_GETTASKBARPOS, ABD
Form1.Top = (Screen.Height - Form1.Height) - (ABD.rc.Bottom - ABD.rc.Top) * 13.5
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

Messages postés
3
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
22 août 2005

A quoi y sert ce code ?

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.