Mettre le titre du du formulaire au milieu de la bar de titre

Soyez le premier à donner votre avis sur cette source.

Vue 8 074 fois - Téléchargée 628 fois

Description

Comment puis-je centrer le titre de mon Formulaire au Milieu de mon Formulaire ?

Créez un Formulaire et mettez-y ce code :

Source / Exemple :


Dim AncienneTaille As Long
Private Sub Form_Load()
    CentrerTitre Me
    AncienneTaille = Me.Width
End Sub
Private Sub Form_Resize()
    If Me.Width = AncienneTaille Then
        Exit Sub
    Else
        CentrerTitre Me
        AncienneTaille = Me.Width
    End If
End Sub

' Puis ajoutez un Module et mettez-y ce code :

Public Sub CentrerTitre(MonForm As Form)
    Dim EspaceCompte As Integer
    Dim TailleTitre As Integer
    Dim AncienTitre As String
    Dim i As Integer
    AncienTitre = MonForm.Caption
    
    Do While Left(AncienTitre, 1) = Space(1)
        DoEvents
            AncienTitre = Right(AncienTitre, Len(AncienTitre) - 1)
        Loop
        
    Do While Right(AncienTitre, 1) = Space(1)
        DoEvents
        AncienTitre = Left(AncienTitre, Len(AncienTitre) - 1)
    Loop
    
    TailleTitre = Len(AncienTitre)
    If InStr(AncienTitre, "!") <> 0 Then
        If InStr(AncienTitre, " ") <> 0 Then
            TailleTitre = TailleTitre * 1.5
        Else
            TailleTitre = TailleTitre * 1.4
        End If
    Else
        If InStr(AncienTitre, " ") <> 0 Then
            TailleTitre = TailleTitre * 1.4
        Else
            TailleTitre = TailleTitre * 1.3
        End If
    End If

    EspaceCompte = MonForm.Width / 75
    EspaceCompte = EspaceCompte - TailleTitre
    If EspaceCompte > 1 Then
        DoEvents
        MonForm.Caption = Space(Int(EspaceCompte / 2)) + AncienTitre
    Else
        MonForm.Caption = AncienTitre
    End If
End Sub

Codes Sources

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.