listbox

[postbus52]

ik heb een listbox en een invoerveld.

Als ik een waarde invul, wordt het toegevoegd aan de listbox. van boven naar beneden.

Graag wil ik de waarde die het laatst is ingegeven, boven aan de listbox hebben.

want nu zakt de waarden naar beneden en afhankelijk van de lengte van de listbox of de resolutie van het scherm, dat de laatste waarde niet zichbaar meer is in de listbox. Als ik dan de lengte van de listbox aanpas klopt het wel weer maar dan werkt het niet meer op een ander scherm.

Dit gebruik ik nu:

list1.AddItem Left(TextBox1.Value, 3)
list1.ListIndex = list1.ListCount - 1

m.vr.gr. Hans

 

[snb]

Daar valt nog wel wat meer over te zeggen:

http://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

 

[postbus52]

Helaas snap ik niets van al die voorbeelden en hoe ik dat kan toepassen.
De bedoeling is dat de laatste ingevoerde waarde bovenin staat en dat de rest naar onderen zakt.

 

[Cobbe]

Uw bestand posten is te moeilijk?

 

[WHER]

Misschien helpt dit:

AddItem takes an optional parameter to specify the index position. By default it adds to the end. If you specify 0 it will add at the beginning. Try Something like:

.AddItem "Some Text", 0

 

[Cobbe]

Of dit:

' Add the new item.
lstItems.AddItem txtNewItem.Text

' Select the new item.
lstItems.Selected(lstItems.NewIndex) = True

 

[postbus52]

Sorry Cobbe, u heeft helemaal gelijk wat betreft een voorbeeld.
Bij dezen alsnog een voorbeeld.

Die toevoeging van ,0 werkt inderdaad.

alleen onderstaande werkt niet omdat .NewIndex niet bestaat.
'Select the new item.
lstItems.Selected(lstItems.NewIndex) = True

 

[postbus52]

Gevonden!!

Dit is de oplossing

List1.AddItem Left(TextBox1.Value, 3), 0
List1.ListIndex = List1.Selected(0)

Wher en Cobbe heel veel dank voor het op weg helpen.