listbox only 5lines

[mrnew]

Hi,

can somebody show me how to add 5 lines to a listbox..if thiers anymore..it replaces the first line so all the rest get moved down.

line = line + 1
if line = < 5 then
frmtest.list1.additem , , "hello"
else
frmtest.list1.additem , , "i wanna start from the top"

[RhinoBull]

Something like the following may work for you:

Dim i As Integer
 
For i = 1 To 5
    List1.AddItem "Item" & i
Next i

[mrnew]

thnx, but i need help with moving the lines down and starting from the top realy..somebody helped me before but posts gone now.

they used -1 i think or summit to get back to the top.

while were on the subject i plan to use this to display events that taken place in a game in a history window..

i didnt do it lasttime because the string was usually to large for the listbox, and i didnt want no horizontle scroller..perhaps thiers a better control for me to us

[vbasicgirl]

You can use the index parameter when adding to the listbox

If List1.ListCount < 5 Then
 List1.AddItem "Hello"
Else
 List1.RemoveItem 4
 List1.AddItem "i wanna start from the top", 0
End If

EDIT: probably better

List1.AddItem "the new item", 0
 
 If List1.ListCount = 6 Then
  List1.RemoveItem 4
 End If

casey.

[mrnew]

up index param will hlp, i never had to use the removeitem to do it before tho..but aslong as it works it works...

thnx alot for the help

[cssriraman]

When you have received an answer to your question, please mark it as resolved using the Thread Tools menu.