METTRE LE TITRE DU DU FORMULAIRE AU MILIEU DE LA BAR DE TITRE

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

Télécharger le zip