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