Visual Basic

Re: How to add clock timer to listview column in vb6?

10-May-07 7:36

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.

nlarson1110-May-07 8:11

Re: How to add clock timer to listview column in vb6?

10-May-07 8:11

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

method00710-May-07 9:31

Re: How to add clock timer to listview column in vb6?

10-May-07 9:31

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 .

nlarson1110-May-07 9:36

Re: How to add clock timer to listview column in vb6?

10-May-07 9:36

vb6 - format(now,"hh:nn:ss")
vb.net - now.tostring("hh:mm:ss")

method00710-May-07 9:55

Re: How to add clock timer to listview column in vb6?

10-May-07 9:55

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")

nlarson1110-May-07 10:26

Re: How to add clock timer to listview column in vb6?

10-May-07 10:26

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("."))

method00710-May-07 11:04

Re: How to add clock timer to listview column in vb6?

10-May-07 11:04

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:

<br />
Private Sub Form_Load()<br />
<br />
    <br />
     Timer2.Interval = 1000 ' <-- 10 seconds<br />
    Timer2.Enabled = True<br />
End Sub<br />
<br />
Private Sub Timer2_Timer()<br />
Static lngMin As Long<br />
<br />
    lngMin = lngMin + 1<br />
    <br />
    'every 2nd timer tick reload the listview<br />
    If lngMin Mod 2 Then<br />
      <br />
        Dim s As String = TimeSpan.FromTicks(Now.Ticks - mStartDate).ToString<br />
ListView1.ListItems(1).ListSubItems(4).Text = s.Substring(0, s.IndexOf("."))<br />
<br />
    End If<br />
<br />
End Sub<br />
<br />

then i get compile error :

Expected: end of statement

pointing at:

private mStartDate As Double = Now.Ticks

nlarson1110-May-07 11:10

Re: How to add clock timer to listview column in vb6?

10-May-07 11:10

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...

method00710-May-07 11:18

Re: How to add clock timer to listview column in vb6? [modified]

10-May-07 11:18

Many thanks for trying to help me Smile | :)

. 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!!

nlarson1111-May-07 11:18

Re: How to add clock timer to listview column in vb6?

11-May-07 11:18

***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

method00711-May-07 19:48

Re: How to add clock timer to listview column in vb6?

11-May-07 19:48

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")

nlarson1112-May-07 1:32

Re: How to add clock timer to listview column in vb6?

12-May-07 1:32

sorry...add a paren after the cint

Format(TimeSerial(0, 0, cint(Timer - mStart)), "hh:nn:ss")

method00712-May-07 1:40

Re: How to add clock timer to listview column in vb6?

12-May-07 1:40

Now i get this error in the same line:

Run-time error 6:<br />
<br />
overflow

nlarson1112-May-07 1:45

Re: How to add clock timer to listview column in vb6?

12-May-07 1:45

ok, use clng instead of cint

method00712-May-07 1:49

12-May-07 1:49

same overflow error Frown | :-(

(

Private Sub Form_Load()<br />
mStart = Timer<br />
<br />
'Set up the listview<br />
    ListView1.View = lvwReport<br />
    ListView1.ColumnHeaders.Add , , "Artist"<br />
    ListView1.ColumnHeaders.Add , , "Name"<br />
    ListView1.ColumnHeaders.Add , , "Image"<br />
    ListView1.ColumnHeaders.Add , , "Rating"<br />
    'ListView1.ColumnHeaders.Add , , "Song ID"<br />
    ListView1.ColumnHeaders.Add , , "Total Votes"<br />
    ListView1.ColumnHeaders.Add , , "Page"<br />
    ListView1.ColumnHeaders.Add , , "Referrer"<br />
    ListView1.ColumnHeaders.Add , , "pageWindowName"<br />
    <br />
    <br />
    Timer1.Interval = 1000 ' <-- 10 seconds<br />
    Timer1.Enabled = True<br />
    <br />
<br />
End Sub<br />
<br />
Private Sub Timer1_Timer()<br />
<br />
ListView1.ListItems(1).ListSubItems(4).Text = Format(TimeSerial(0, 0, CLng(Timer - mStart)), "hh:nn:ss")<br />
<br />
End Sub

Milliseconds to Minutes

Stigmurder10-May-07 6:19

Stigmurder

10-May-07 6:19

anyone have a function that converts milliseonds to minutes and seconds?
im working in vb.net. thanks a bunch.

Dave Kreskowiak10-May-07 6:33

Dave Kreskowiak

10-May-07 6:33

You can either write this function yourself, the math is very easy, or you can use the TimeSpan class to do it for you.

Dim x As New TimeSpan(0, 0, 0, 0, milliseconds)
Console.WriteLine("Minutes: " & x.Minutes)
Console.WriteLine("Seconds: " & x.Seconds)

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Stigmurder10-May-07 7:19

Stigmurder

10-May-07 7:19

thank you!

CPallini10-May-07 9:03

CPallini

10-May-07 9:03

Of course we don't care about rounding...
Big Grin | :-D

If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler.
-- Alfonso the Wise, 13th Century King of Castile.