How to use single Timer in multiple ListSubItems. Help please.

Question

1.00/5 (1 vote)

See more:

How to correct this code? I use winsock and listview. I want all subitems added every ConnectionRequest changes as timer ticks. When I run this code the Timer only runs in the last subitem.

Option Explicit

Dim wIndex, wPort As Integer
Dim sec As Integer
Dim LM As ListItems

Private Sub Form_Load()
    sec = 0
    wIndex = 1
    wPort = 1
End Sub

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    wIndex = wIndex + 1
    wPort = wPort + 1
    Load Winsock1(wIndex)
    With Winsock1(wIndex)
            .Close
            .LocalPort = wPort
            .Accept requestID
    End With
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Set LM = ListView1.ListItems(Index)
            LM.SubItems(2) = sec + 1
End Sub

Posted 25-May-11 0:15am

derodevil

Updated 25-May-11 0:27am

ZeeroC00l

v2

Add a Solution

Comments

ZeeroC00l 25-May-11 6:28am

-- edited for pre tag

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

E.F. Nijboer · Answer 1 · 2011-05-25T00:42:00

Solution 1

Set LM = ListView1.ListItems(Index)

What is Index in the context of the timer method? Could it be you need wIndex instead? Also, place Option Explicit at the beginning of the module to avoid errors like this one.

Good luck!

You are using Index but it isn't defined anywhere (I can't see it in your example). So you would need to setup multiple timers, for example in the form load:

For i=1 to 10
  Load Timer1(i)
  Timer1(i).interval = 100
  Timer1(i).enabled = true
Next i

The event handler would need the Index as parameter. Something like this:

Private Sub Timer1(Index As Integer)
 ' Timer code
End Sub

Posted 25-May-11 0:42am

E.F. Nijboer

Updated 25-May-11 22:08pm

v2

Comments

derodevil 26-May-11 0:09am

wIdex is for Winsock. No problem with the Winsock. I have problem with the timer. I also tried to index the winsock but it doesn't work either. Help me please

E.F. Nijboer 26-May-11 4:09am

You are using Index but it isn't defined anywhere. I added some code to the original solution that should work. Maybe you could give that a try.

derodevil 26-May-11 15:09pm

It doesn't work as expected. Would you mind if I send you the source code. You can correct it anyway. I'll repost here the solution for other members. I'm sorry my English is bad, I'm Indonesian. Thanks for helping me.