[vb6]listbox alignement right

Version imprimable

07/10/2008, 21h35
bailamos

[vb6]listbox alignement right

salut,
est ce que il ya un moyen qui permet de faire alignement right pour une listbox

merci davance
07/10/2008, 21h50
ucfoutu

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 ...;)
07/10/2008, 21h52
bailamos

ok merci je vai voir avec les espaces a ajouter
07/10/2008, 22h01
ucfoutu

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 :mrgreen:
Un listbox, un Label

Code:

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 Sub

Citation:

Envoyé par ucfoutu

Si tu fais celà, choisis alors une police à espacement fixe

:king: