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
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.