Discussion :

[djibouli]

bonjour à tous, tout est dans le titre...

merci de vos réponse.

[EricDgn]

Non, il n'y a pas dans Access une propriété "Centrer verticalement" le contenu d'un contrôle.
On peut le faire approximativement en modifiant la valeur de la propriété "Marge supérieure" du contrôle.
Cdt

[ClaudeLELOUP]

Bonjour,



Regarde ici : http://claudeleloup.developpez.com/t...tensible/#LV-B

C'est peut-être une solution pour ce que tu veux faire.

[djibouli]

merci a vous deux je vais tricher avec les marge pour ce que j'ai ca suffira, par contre le tuto que claude propose et que j'avais lu sert si j'ai bien compris à centrer un contrôle sur l'écran mais pas le texte dans ce contrôle.

[ClaudeLELOUP]

Bonjour,

sert si j'ai bien compris à centrer un contrôle sur l'écran mais pas le texte dans ce contrôle.

Effectivement.

[EricDgn]

Repris de cette discussion, une fonction qui pourrait convenir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub VerticalAlignCenter(ctl As Control)
    Dim MinimumMargin As Integer, BorderWidth As Integer, TwipsPerPoint As Integer
    Dim LenOfText, WidOfBox, NumberOfLines, HtOfText
    TwipsPerPoint = 20
    If Not ((TypeOf ctl Is TextBox) Or (TypeOf ctl Is Label)) Then Exit Sub
    If TypeOf ctl Is TextBox Then
        LenOfText = Nz(ctl.Value)
    Else:
        LenOfText = Nz(ctl.Caption)
    End If
    WidOfBox = ctl.Width
    LenOfText = (Len(LenOfText) * TwipsPerPoint * ctl.FontSize) / 2
    NumberOfLines = Int(LenOfText / WidOfBox) + 1
    HtOfText = NumberOfLines * TwipsPerPoint * ctl.FontSize
    MinimumMargin = 1 * TwipsPerPoint
    BorderWidth = (ctl.BorderWidth * TwipsPerPoint) / 2
    ctl.TopMargin = ((ctl.Height - HtOfText) / 2) - MinimumMargin - BorderWidth
End Sub

Bonne continuation.

[tatiak]

Bonjour,

Pour centrer verticalement le texte d'un label, il y a cette méthode décrite ici, simple sans code.

Pierre