loop list help

[Hoppus]

Dim i As Integer
For i = 0 To List2.ListCount - 1
msgbox(list2.list(i), "word")
Next i
list2.clear
timer2.enabled = false

it goes through the list timer2's interval. popups whatever the item is on. at the end of the list clears, and turns off the time. but its not working

[jcis]

What's not working? What's the problem?

[FireXtol]

If you want the selected item, the correct property is ListIndex.

Msgbox List2.list(list2.listindex)

[winnip]

Private Sub Form_Initialize()
For i = 0 To 10
 List1.AddItem i
Next i
End Sub

Private Sub Timer1_Timer()
Dim i As Integer
For i = 0 To List1.ListCount - 1
MsgBox List1.List(i), 64, "word"
Next i
List1.Clear
Timer1.Enabled = False
End Sub

[winnip]

MsgBox List1.List(i), 64, "word"
中间为64,参数不对，能运行么

[Hoppus]

hm no error on the loop list
but does this look wrong at all

Private Sub Check3_Click()
If Check3.Value = True Then
Timer1.Enabled = True
ElseIf Check3.Value = False Then
Timer1.Enabled = False
End If
End Sub

[winnip]

Private Sub Check3_Click()
If Check3.Value = 1 Then
Timer1.Enabled = True
Call Addstr
ElseIf Check3.Value = 0 Then
Timer1.Enabled = False
End If
End Sub

Private Sub Form_Initialize()
Check3.Value = 1
End Sub

Private Sub Timer1_Timer()
Dim i As Integer
If Check3.Value = 1 Then
For i = 0 To List1.ListCount - 1
MsgBox List1.List(i), 64, "word"
Next i
List1.Clear
End If
Timer1.Enabled = False
End Sub

Sub Addstr()
For i = 0 To 10
 List1.AddItem i
Next i
End Sub

[Hack]

hm no error on the loop list
but does this look wrong at all

Private Sub Check3_Click()
If Check3.Value = True Then
   Timer1.Enabled = True
ElseIf Check3.Value = False Then
   Timer1.Enabled = False
End If
End Sub

Does it work?

[vbfbryce]

You need to dim "i" outside of the timer event, then send one item each time the timer fires, then increment "i" after the "send" happens.

For example:

Option Explicit

Dim i As Integer

Private Sub Timer1_Timer()
    sock.SendIM List2.List(i), "yep", False
    i = i + 1
    'also, check at this point to see if i is > than list2.listcount-1
End Sub

[FireXtol]

Why not simply:

Timer1.Enabled = Check3.Value

[Hoppus]

well i dimmed i in form load.

and

Private Sub Timer2_Timer()
For i = 0 To List2.ListCount - 1
sock.SendIM List2.List(i), "yep", False
i = i + 1
Next i
'also, check at this point to see if i is > than list2.listcount-1
End Sub

and now it's only sock.sendim-ing to the first item on the list. :\

[vbfbryce]

Take the For loop out of your timer event (refer back to my earlier post), and that should do it for you.

[Hoppus]

well when i take out that out, it errors on next i. and when i take that out. it only does sock.sendim for the first item in the list

[baja_yu]

Why the double post?! http://www.vbforums.com/showthread.php?t=615312

[vbfbryce]

Can you post what code you now have?

What you describe shouldn't be happening if 1) you dim i outside the timer event and 2) you take the For...Next out and increment i manually inside the timer event.

[Hack]

Duplicate Threads Merged

[Hoppus]

Can you post what code you now have?

What you describe shouldn't be happening if 1) you dim i outside the timer event and 2) you take the For...Next out and increment i manually inside the timer event.

Private Sub Timer2_Timer()
sock.SendIM List2.List(i), "yep", False
i = i + 1
List2.Clear
Timer2.Enabled = False
End Sub

Private Sub Form_Load()
Dim i As Integer
End Sub

I don't know if there's any specific way i should be adding items to the list. but this is what i have.

Dim lngIndex As Long
Dim bFound As Boolean

For lngIndex = 0 To List2.ListCount - 1
    If strUserName = List2.List(lngIndex) Then
        bFound = True
        Exit For
    End If
Next

If Not bFound Then
    List2.AddItem strUserName
End If

but yeah. when looping list, it only sock.sendim's to the first item in the list.

help resolve?

[MarkT]

See if this works for you

Private Sub Timer2_Timer()
Static j As Integer

    sock.SendIM List2.List(j), "yep", False
    j = j + 1
    
    If j = List2.ListCount Then
        List2.Clear
        Timer2.Enabled = False
        j = 0
    End If
End Sub

[Hoppus]

thanks markt. worked like a charm

[5ms?]

The ''Dim i As Integer'' could not be seen in the Timer2 sub.

It needed to look like this

Option Explicit
Dim  i As Integer 'This is Public to the Form

Private Sub Check3_Click()
 Timer1.Enabled = Check3.Value
End Sub

Private Sub Form_Load()
Dim  i As Integer 'This is Private to the Form_Load
  i= 777
  Me.Caption = i
End Sub

Private Sub Timer1_Timer()
 i = i + 1
  If i > 3000 Then i = 0
  Me.Caption = i
End Sub

Note: Static j As Integer is best