Discussion :

[DzBadBoy]

Bonjour tous le monde
je cherche une propriétée dans les composants: Textbox ou Label pour centrer Verticalement un text au mileu

Je trouve seulement center horizotalement

[IMG]file:///c:\Align.bmp[/IMG]

[ProgElecT]

Bonjours
Regardes dans Les contributions VB6/VBScript de Delbeke Composant label vertical

Motif de l'edit:
Dans le fond c'est peutêtre la propriété .Alignment que tu cherches pour ces deux contrôles.
Et en passant, ton lien image n'est pas valide.

[DzBadBoy]

Merci Bien ProgElecT de votre Réponse
Mais ce que je cherche ce n'ai mettre le texte Verticalement mais laisser le horizotale et l'aligner au cntre du TextBox verticalement

je m'explique Horizotalement on le met soit à gauche, à droite ou au mileu

ce que je veux c'est le mettre en centre Verticalement c'est à dire non plus en Haut où en Bas mais en plein centre du TextBox

[Delbeke]

Une solution tout bête
Prévois pour ton label, une hauteur suffisante pour trois lignes de textes

Code :

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

Label1.caption = VbCrLf & "Nom texte à centrer"

[DzBadBoy]

pour Label on peut jouer sur la Hauteur
mais je cherche une solution pratique pour un TextBox

[ucfoutu]

Bonjour, DzBadBoy,

On peut se lancer dans des calculs orthodoxes et jouer avec TextHeight + une fonction de l'Api de Windows...

Mais on peut également se montrer astucieux...

Ainsi :

Place sur ta Form une textbox multiline et nomme-la Text1
Donne à ta textbox la propriété Alignment = 2 (Center)
Place maintenant un label et nomme-le Fantome
Ajoute un bouton de commande nommé Command1 (pour tester)

mets ce code :

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
19
20
Private Sub Form_Activate()
 With Fantome
  .AutoSize = True
  .WordWrap = True
  .Visible = False
 End With
End Sub
 
Private Sub Command1_Click()
  Fantome.Width = Text1.Width
  Set Fantome.Font = Text1.Font
  montexte = "pour Label" & vbCrLf & "on peut jouer sur " & vbCrLf & "la Hauteur, mais je cherche" & _
  vbCrLf & "une solution pratique pour un TextBox"
  Fantome.Caption = montexte
  While Fantome.Height < Text1.Height
    Fantome.Caption = vbCrLf & Fantome.Caption & vbCrLf
  Wend
  If Fantome.Height > Text1.Height Then Fantome.Caption = Mid(Fantome.Caption, 3)
  Text1.Text = Fantome.Caption
End Sub

Lance, clique sur Command1 et vois..
Deux choses, maintenant :
1) ta textbox devra avoir une hauteur au moins égale à celle nécessaire pour afficher tout le texte, bien évidemment
2) il est clair que le centrage vertical ne sera pas toujours (en fonction du nombre de lignes) rigoureusement exact (car il est par analogie possible de définir un nombre "central" d'une suite impaire, mais jamais rigoureusement central d'une suite paire...)
Amuse-toi bien ...

[DzBadBoy]

Merci ucfoutu pour ton effort
Peut-on créer un code qui ajoute une nouvelle propriété au composant
TextBox pour Centrer, Mettre en Haut ou en bas d'un texte quelconque

[ucfoutu]

Merci ucfoutu pour ton effort
Peut-on créer un code qui ajoute une nouvelle propriété au composant
TextBox pour Centrer, Mettre en Haut ou en bas d'un texte qlq

La réponse est oui, mais à condition de créer un nouvel UserControl (ocx) basé sur une textbox.
Il sera mille fois plus simple et plus économique de créer plutôt une fonction ...
Je t'ai montré la voie à suivre.
A toi, maintenant, de faire ton effort...