ListBox Question

[Smie]

How would I make a textbox = list1's 3rd selection? For example, when a button is pressed, the 3rd value, or 3rd item from the top(not sure what to call it), pops into the textbox, i have a good idea on what to do, but nothing will work, please help, thanx

[QWERTY]

Try this:
Add a ListBox, CommandButton and TextBox to your form, then paste this code:

Option Explicit
Public Index As Integer

Private Sub Command1_Click()
Text1.Text = List1.List(Index)
End Sub

Private Sub Form_Load()
Dim I As Integer
With List1
For I = 1 To 10
.AddItem I
Next I
End With
End Sub

Private Sub List1_Click()
Index = List1.ListIndex
End Sub

I hope this will help

------------------
Visual Basic Programmer
------------------
PolComSoft
You will hear a lot about it.

[Aaron Young]

Do you mean how do you access the 3rd Item Down from the Visible Top of the Listbox?

Private Sub Command1_Click()
If List1.TopIndex + 2 < List1.ListCount Then
Text1 = List1.List(List1.TopIndex + 2)
Else
Text1 = List1.List(List1.ListCount - 1)
End If
End Sub

Otherwise, if you mean how do you access the 3rd Item Period..
Text1 = List1.List(2)


------------------
Aaron Young
Analyst Programmer
aarony@redwingsoftware.com
adyoung@win.bright.net

[Smie]

Im a little confused, what you gave me, even though i appreciate your help, was not what i was looking for, maybe if im more specific:

Say i have 10 items in the listbox. I also have 10 textboxes. What would i do, so at a push of a button, the each listbox item, is now in a seprate textbox.

[Smie]

Thanks aaron, thats what ive been looking for

[QWERTY]

If that's your problem then use this:
Create an array of 10 textboxes, add 10 items to a listbox and paste this code:

Private Sub Command1_Click()
Dim I As Integer
For I = 0 to List1.ListCount - 1
Text1(I).Text = List1.List(I)
Next I
End Sub

Hope This will help

------------------
Visual Basic Programmer
------------------
PolComSoft
You will hear a lot about it.