Discussion :

[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.

[Ehjoe]

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 :

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

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

[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

[gilles_906]

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

Code :

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

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.

[Ehjoe]

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 :

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

1
2
3
 
dim r as string
r = Trim(taVarChaine)

[Ehjoe]

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.