How to add clock timer to listview column in vb6?
-
could any one show me how i can add clock timer that shows hour:min:seconds to a perticuler listview column ? I want to add running time as a listview -item. I have seen applications that they added timer to listview item and ability to freez it or reset it when diffrent events happens. There are a few other columns in my listview too. So i want add running timer to 3th column.I hope there be a solution that doesn't disturb the focous . I want to add this running timer in the 3th column of a row that i specify. Not all rows at once.So by default other rows i want it to have - and when i decide for example add running time to row 3 then it be added.I want to have the abiliy to freez the time when i want or remote it.
-
could any one show me how i can add clock timer that shows hour:min:seconds to a perticuler listview column ? I want to add running time as a listview -item. I have seen applications that they added timer to listview item and ability to freez it or reset it when diffrent events happens. There are a few other columns in my listview too. So i want add running timer to 3th column.I hope there be a solution that doesn't disturb the focous . I want to add this running timer in the 3th column of a row that i specify. Not all rows at once.So by default other rows i want it to have - and when i decide for example add running time to row 3 then it be added.I want to have the abiliy to freez the time when i want or remote it.
-
add the timer control your form set the interval to 1000 in the event routine, use the keyword 'now' and format it to be hh:nn:ss and keep replacing the value of the cell with the result
Thanks for you reply. could show me how to add 'now' and format it to be hh:nn:ss ... I am adding item to listview like this : ListView1.ListItems(1).ListSubItems(3).Text = "changed2" so how to add running time instead of change2? Do you think using this method will make the listview reload every seconds? i hope that is not the case since it will disturb form focus. I have seen applications that they add running time to listview column without any listview reload every seconds .
-
Thanks for you reply. could show me how to add 'now' and format it to be hh:nn:ss ... I am adding item to listview like this : ListView1.ListItems(1).ListSubItems(3).Text = "changed2" so how to add running time instead of change2? Do you think using this method will make the listview reload every seconds? i hope that is not the case since it will disturb form focus. I have seen applications that they add running time to listview column without any listview reload every seconds .
-
Thanks for you reply. I tried the following and it only display the current time!! I wanted to start from 00:00:00 and start running ListView1.ListItems(1).ListSubItems(4).Text = Format(Now, "hh:nn:ss")
make a module level variable that will hold to the current ticks private mStartDate As Double = Now.Ticks in the timer event routine Dim s As String = TimeSpan.FromTicks(Now.Ticks - mStartDate).ToString ListView1.ListItems(1).ListSubItems(4).Text = s.Substring(0, s.IndexOf("."))
-
make a module level variable that will hold to the current ticks private mStartDate As Double = Now.Ticks in the timer event routine Dim s As String = TimeSpan.FromTicks(Now.Ticks - mStartDate).ToString ListView1.ListItems(1).ListSubItems(4).Text = s.Substring(0, s.IndexOf("."))
I placed "private mStartDate As Double = Now.Ticks: inside a module. Then i added timer to the form an set its interval to 1000.Then i added following code:
Private Sub Form_Load() Timer2.Interval = 1000 ' <-- 10 seconds Timer2.Enabled = True End Sub Private Sub Timer2_Timer() Static lngMin As Long lngMin = lngMin + 1 'every 2nd timer tick reload the listview If lngMin Mod 2 Then Dim s As String = TimeSpan.FromTicks(Now.Ticks - mStartDate).ToString ListView1.ListItems(1).ListSubItems(4).Text = s.Substring(0, s.IndexOf(".")) End If End Subthen i get compile error : Expected: end of statement pointing at: private mStartDate As Double = Now.Ticks -
I placed "private mStartDate As Double = Now.Ticks: inside a module. Then i added timer to the form an set its interval to 1000.Then i added following code:
Private Sub Form_Load() Timer2.Interval = 1000 ' <-- 10 seconds Timer2.Enabled = True End Sub Private Sub Timer2_Timer() Static lngMin As Long lngMin = lngMin + 1 'every 2nd timer tick reload the listview If lngMin Mod 2 Then Dim s As String = TimeSpan.FromTicks(Now.Ticks - mStartDate).ToString ListView1.ListItems(1).ListSubItems(4).Text = s.Substring(0, s.IndexOf(".")) End If End Subthen i get compile error : Expected: end of statement pointing at: private mStartDate As Double = Now.Ticks -
this is vb6? i didn't think vb6 had listviews you can always create the time manually but I'll try to come up with vb6 equvilent...
Many thanks for trying to help me:-). I am working on vb6 for this project. VB6 has listviews by selecting Microsoft windows common controls 6.0(sp6) component. I have seen a few applications not sure what programing language they are written it .They add timer to listview without noticing any flicker or reload!!
-
Many thanks for trying to help me:-). I am working on vb6 for this project. VB6 has listviews by selecting Microsoft windows common controls 6.0(sp6) component. I have seen a few applications not sure what programing language they are written it .They add timer to listview without noticing any flicker or reload!!
***make a module level variable*** private mStart as single ***in the load event of the form*** mStart = Timer ***in the timer event routine*** ListView1.ListItems(1).ListSubItems(4).Text = Format(TimeSerial(0, 0, cint(Timer - mStart), "hh:nn:ss") -- modified at 17:26 Friday 11th May, 2007
-
***make a module level variable*** private mStart as single ***in the load event of the form*** mStart = Timer ***in the timer event routine*** ListView1.ListItems(1).ListSubItems(4).Text = Format(TimeSerial(0, 0, cint(Timer - mStart), "hh:nn:ss") -- modified at 17:26 Friday 11th May, 2007
-
I tried it i get the following error: compile error: syntax error pointing at : ListView1.ListItems(1).ListSubItems(4).Text = Format(TimeSerial(0, 0, cint(Timer - mStart), "hh:nn:ss")
-
sorry...add a paren after the cint Format(TimeSerial(0, 0, cint(Timer - mStart)), "hh:nn:ss")
-
same overflow error:-((
Private Sub Form_Load() mStart = Timer 'Set up the listview ListView1.View = lvwReport ListView1.ColumnHeaders.Add , , "Artist" ListView1.ColumnHeaders.Add , , "Name" ListView1.ColumnHeaders.Add , , "Image" ListView1.ColumnHeaders.Add , , "Rating" 'ListView1.ColumnHeaders.Add , , "Song ID" ListView1.ColumnHeaders.Add , , "Total Votes" ListView1.ColumnHeaders.Add , , "Page" ListView1.ColumnHeaders.Add , , "Referrer" ListView1.ColumnHeaders.Add , , "pageWindowName" Timer1.Interval = 1000 ' <-- 10 seconds Timer1.Enabled = True End Sub Private Sub Timer1_Timer() ListView1.ListItems(1).ListSubItems(4).Text = Format(TimeSerial(0, 0, CLng(Timer - mStart)), "hh:nn:ss") End Sub