Emprise à l'écran d'un formulaire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 012 fois - Téléchargée 9 fois

Contenu du snippet

    ''' <summary>
    ''' L'emprise désigne l'ensemble des pixels qui affichent à l'écran le formulaire Frm.
    ''' </summary>
    Public Function Emprise(ByVal Frm As Form) As Rectangle
        Dim Brd As Integer
        With Frm
            If .FormBorderStyle.ToString.Contains("Fixed") Then
                Brd = SystemInformation.SizingBorderWidth
            Else
                Brd = 0
            End If
            Return New Rectangle(.Left - Brd, .Top - Brd, .Width + 2 * Brd, .Height + 2 * Brd)
        End With
    End Function


Compatibilité : VB 2008

A voir également

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.