[RESOLVED] Help with a For loop

[Giraffe Frenzy]

Hi everyone,

I have data in a listbox, how do I loop through the data in the listbox and do a message box of each line of data in that listbox?


data in the listbox:
Frank
Bill
Jill


How do I code a button to loop through the listbox and give a message box of each item in the listbox?

For example, a message box should pop up for each person, Frank, Bill, and Jill.

[Mark Gambo]

Hi everyone,

I have data in a listbox, how do I loop through the data in the listbox and do a message box of each line of data in that listbox?

Try this:

Private Sub Command1_Click()
Dim a As Long
    
    With List1
        For a = 0 to .ListCount 
            MsgBox .List(a), vbInformation, "Listbox Printout"
        Next a
    
    End With
End Sub
 
Private Sub Form_Load()
Dim a As Long
 
    For a = 1 To 10 'Add some items
        List1.AddItem "Item " & a
    Next a
End Sub

[RhinoBull]

Dim i As Integer

For i = 0 To List1.Listcount - 1
    MsgBox List1.List(i)
Next i

[Ethan37]

Do you want to display messageboxes for each item? For what purpose?

[Ethan37]

or:

Private Sub Command1_Click()
Dim x As Integer, i As Integer
    For i = 0 To List1.ListCount - 1
        x = MsgBox(List1.List(i), vbOKCancel, "is this what you want?")
    Next i
End Sub

Private Sub Form_Load()
    List1.AddItem "Item A"
    List1.AddItem "Item B"
    List1.AddItem "Item C"
    List1.AddItem "Item D"
    List1.AddItem "Item E"
End Sub

[Giraffe Frenzy]

Thanks guy. That is exactly what I needed!

[DigiRev]

or:

Private Sub Command1_Click()
Dim x As Integer, i As Integer
    For i = 0 To List1.ListCount - 1
        x = MsgBox(List1.List(i), vbOKCancel, "is this what you want?")
    Next i
End Sub

Private Sub Form_Load()
    List1.AddItem "Item A"
    List1.AddItem "Item B"
    List1.AddItem "Item C"
    List1.AddItem "Item D"
    List1.AddItem "Item E"
End Sub

Extending on this a little (cause I'm bored)

Private sub command1_Click()
    Dim msgRet as vbmsgboxresult, i as integer
 
    for i = 0 to List1.Listcount - 1
        msgRet = MsgBox(list1.list(i), vbQuestion + vbYesNo, "Is this what you want?")
        If msgRet = vbYes then exit for
    next i
End sub