salut,
est ce que il ya un moyen qui permet de faire alignement right pour une listbox
merci davance
salut,
est ce que il ya un moyen qui permet de faire alignement right pour une listbox
merci davance
Bonsoir,
-aucune propriété dans ce sens, à ma connaissance, pour une ListBox
- et pour cause ! (pour aligner à droite, il faudrait que la largeur de la listbox puisse contenir la totalité d'un article affiché, article de longueur non forcément connue à l'avance)
Maintenant : si, à la fois, :
1) tu connais la chaine la plus longue (pour l'article le plus long). J'entends par là son texte exact car la largeur physique peut différer selon la police, pour deux textes comportant le même nombre de caractères
2) la largeur définie pour ta listbox est suffisante pour l'affichage de cet article le plus "gourmand"
===>> Tu peux toujours t'amuser à calculer (à l'aide de TextWidth) la largeur physique de chacun des articles à afficher ainsi que le nombre d'espaces à rajouter devant de telle manière que la largeur également physique de ces espaces soit égale à celle de la Listbox - celle de l'article
(autrement dit : transformer ta chaine par l'ajout d'espaces de telle manière que la largeur physique résultante soit égale à celle de ta ListBox).
Je te souhaite beaucoup de plaisir (ce sera très cher payer pour une "amélioration" plutôt futile ...
ok merci je vai voir avec les espaces a ajouter
Si tu fais celà, choisis alors une police à espacement fixe, ce qui t'évitera de nombreux calculs avec TextWidth. Calcule alors sur la seule base du nombre de caractères (y compris les espaces rajoutés).
J'insiste : police à espacement fixe...!
aide-toi au besoin de Rset
Edit : et n'oublie pas (autre lourdeur que va générer ton "amélioration" qu'il te faudra ensuite (chaque fois que tu liras un (ou plusieurs) article(s) de lui/leur appliquer le Trim, hein ...
Bien que resolut
J'ai toujours été un peu faineant pour les calculs
Un listbox, un Label
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
21
22
23
24
25
26
27
28
29
30
31
32 Option Explicit Private Sub Form_Load() Dim MesMots() As String ReDim MesMots(4) MesMots(0) = "coucou" MesMots(1) = "voila" MesMots(2) = "comment" MesMots(3) = "on peut faire" MesMots(4) = "aussi" List1.FontName = "courier" Label1.Font = List1.Font Label1.AutoSize = True List1.Width = 15: List1.Height = 645 Dim T As Integer Dim NbrCaract As Integer 'recherche du nombre maxi de caractéres parmis les mots For T = 0 To 4 If NbrCaract < Len(MesMots(T)) Then NbrCaract = Len(MesMots(T)) Next T Label1.Caption = String$(NbrCaract, " ") 'ajuste le ListBox en lui ajoutant la largeur d'un VScrollBar List1.Width = Label1.Width + 345 For T = 0 To 4 List1.AddItem String$(NbrCaract - Len(MesMots(T)), " ") & MesMots(T) Next T End SubEnvoyé par ucfoutu
Soyez sympa, pensez -y
Balises[CODE]...[/CODE]
Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
Balises[C]...[/C] code intégré dans une phrase.
Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
👉 → → Ma page perso sur DVP ← ← 👈
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager