cadrer a droite dans une ListBox

Bonjour,

Je n'arrive pas a trouver comment mettre mes items sur la droite dans ma listbox.

J'ai des montants monétaires dans la listbox sous forme
3 214,24 €
j'ai bien essayé de mettre righttoleft a true mais cela me donne
€ 3 214,24

Niveau présentation de l'alignement des centimes c'est mieux car a droite, mais niveau design le € sur la gauche ne me convient pas.

Merci d'avance si quelqu'un avait la solution.

Citation:

---

Envoyé par gilles_906

Bonjour,
Je n'arrive pas a trouver comment mettre mes items sur la droite dans ma listbox.
J'ai des montants monétaires dans la listbox sous forme
3 214,24 €
j'ai bien essayé de mettre righttoleft a true mais cela me donne
€ 3 214,24
Niveau présentation de l'alignement des centimes c'est mieux car a droite, mais niveau design le € sur la gauche ne me convient pas.
Merci d'avance si quelqu'un avait la solution.

---

Bonjour Gilles,

Alors ma réponse fonctionne, toutefois il y a sans doute plein d'autres façons de le faire comme d'habitude en vbNet, voire de meilleures façons, je ne sais, donc voici une méthode qui tourne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub metEnListe() ' Prendre une police fixe pour lalignement, genr "Courier New" (un seul "R") Dim i As Integer Dim maxi as byte = 0 ' calcul de la plus longue de tes valeurs For i de 1 To nombreMaxiTesValeurs ' chacune = taValeur(i) If len(taValeur(i)) > maxi Then maxi = len(taValeur(i)) Next i ' seconde boucle identique pour mettre en liste For i de 1 To nombreMaxiTesValeurs ListBox1.Items.Add( space( maxi - len(taValeur(i) ) & taValeur(i) ) Next i ' En fait on génère des blancs Space devant ta variable End Sub

---

Bonjour Joe

Merci de ta réponse, effectivement l'idée est bonne, mais j'espérai plutôt qu'il y ai un paramètre a envoyer. La ca fait un peu bidouille et il me faudra enlever les espaces quand je vais récupérer les valeurs sur click.

Mais merci bien cela me donne une première solution.
Sinon je pensai me tourner vers le datagridview a une colonne.
Gilles

J'ai trouvé comment faire, (enfin une façon de faire qui me convient).

Code:

---

1 2 3 4 5 6 7 8

Do While MaListe.Read() Dim StrValListe As String StrValListe = "€ " & CDec(FormatCurrency(MaListe("remise"), 2, TriState.True, TriState.False, TriState.True))   ListRemise.Items.Add(StrValListe)   Loop

---

Dans les propriétés de la zone de liste je mets vrai a righttoleft.
Le formatcurrency me sert a mettre des zeros complementaire aux nombres, comme 235,3 devient 235,30.
Je converti en decimale pour enlever le signe € du formatcurrency.
Vu que cela écrit de droite a gauche, je met le signe € avant ma valeur, pour le retrouver après dans la zone de liste.

Citation:

---

Envoyé par gilles_906

Bonjour Joe

Merci de ta réponse, effectivement l'idée est bonne, mais j'espérai plutôt qu'il y ai un paramètre a envoyer. La ca fait un peu bidouille et il me faudra enlever les espaces quand je vais récupérer les valeurs sur click.

Mais merci bien cela me donne une première solution.
Sinon je pensai me tourner vers le datagridview a une colonne.
Gilles

---

Bonjour bis Gilles,

Oui, excellentr ! Sinon, pour retasser le mot c'est

Code:

---

1 2 3

dim r as string r = Trim(taVarChaine)

---

Citation:

---

Envoyé par gilles_906

J'ai trouvé

---

Bravo, oui, y a plein de façons d'y arriver, chacun son truc, moi je n'utilise pas rightToLeft, alors je n'aurais pas eu le reflexe d'y pense.