erlleonardo
New member
- Joined
- Jan 25, 2012
- Messages
- 4
- Programming Experience
- Beginner
First of all good day to all member i need your help guys please help me about Count Down Timer using listview
i'm getting headache of this code of mine. i been working of this for 1 week and i cannot solve this problem.
my problem is if set the time to listview the first i set it will work fine but when i was set to other player time
the first running time in listview will reset and get the same time on my second player time start.. here is my code.
And here is my attach Resource
i'm getting headache of this code of mine. i been working of this for 1 week and i cannot solve this problem.
my problem is if set the time to listview the first i set it will work fine but when i was set to other player time
the first running time in listview will reset and get the same time on my second player time start.. here is my code.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() With ListView1.Items.Add("Player1") .SubItems.Add(1).Text = ("00:00:00") .SubItems.Add(2).Text = ("0") End With With ListView1.Items.Add("Player2") .SubItems.Add(1).Text = ("00:00:00") .SubItems.Add(2).Text = ("0") End With With ListView1.Items.Add("Player3") .SubItems.Add(1).Text = ("00:00:00") .SubItems.Add(2).Text = ("0") End With End Sub Private TimeLaps As Date Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim remainingTime As TimeSpan = TimeLaps.Subtract(Date.Now) For Each itm As ListViewItem In ListView1.Items If Not TimeLaps < Date.Now Then If Not itm.SubItems(2).Text = (Int(itm.SubItems(2).Text) < 0) Then itm.SubItems(1).Text = String.Format("{0:d2}:{1:d2}:{2:d2}", _ remainingTime.Hours, _ remainingTime.Minutes, _ remainingTime.Seconds) Else End If Else End If Next End Sub Private Sub AddTimeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddTimeToolStripMenuItem.Click ListView1.SelectedItems(0).SubItems(2).Text += 180 TimeLaps = Date.Now.AddMinutes(ListView1.SelectedItems(0).SubItems(2).Text) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click With ListView1.Items.Add(TextBox1.Text) .SubItems.Add(1).Text = ("00:00:00") .SubItems.Add(2).Text = ("0") End With End Sub End Class
And here is my attach Resource
Attachments
Last edited by a moderator: