listbox kolommen rechts uitlijnen

[ReilingJ]

Hallo,

ik heb in een userform een listbox waarbij met een opdrachtknop een aantal tekstvakken van dit userform aan een regel met kolommen aan een listbox worden toegevoegd.
Voorbeeld:

Frm1.ListBox1.AddItem Txt1
                    Frm1.ListBox1.List(teller, 1) = Txt2
                    Frm1.ListBox1.List(teller, 2) = Txt3

weet iemand of het mogelijk is de kolom van bijvoorbeeld

Frm1.ListBox1.List(teller, 2)

rechts uit te lijnen?

 

[HSV]

Eén enkele kolom niet volgens mij, maar wel de gehele listbox.
Listbox1.TextAlign = fmTextAlignRight
.......................... = fmTextAlignLeft
.......................... = fmTextAlignCenter

 

[paulva]

Je zou het kunnen proberen met:

right("          " & Txt3,10)

Je neemt de meest rechtse tien (in dit geval) karakters. Om ervoor te zorgen dat er minstens tien zijn, voeg je links aan de tekst op zijn minst tien spaties toe.
Misschien moet je ook nog een niet-proportioneel lettertype nemen (alle karakters even breed, Courier New bijvoorbeeld).

 

[ReilingJ]

Paul, Harry,

helemaal super. TextAlign werkt inderdaad alleen voor de hele tekstbox. De oplossing van Paul heb ik toegepast en werkt helemaal zoals bedoeld.

Beiden zeer bedankt voor reactie,

Jan.