Jump to content
Xtreme .Net Talk

Recommended Posts

Posted (edited)

I have done all the basics on my countdown timer program.

  Private Sub Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Leave.Click
       Me.Close()

   End Sub

   Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
       Dim frm As New About()
       frm.Show()
   End Sub


   Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
       Me.ShowInTaskbar = False
       Me.NotifyIcon1.Visible = True
       Me.Hide()
       e.Cancel = False
   End Sub

   Private Sub Tray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tray.Click
       Me.NotifyIcon1.Visible = True
       Me.Hide()
   End Sub

   Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
       Me.Close()


   End Sub

   Private Sub NotifyIcon1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDown
       If Not Me.Visible Then
           Me.CenterToScreen()
           Me.Show()
           Me.Activate()
           Me.NotifyIcon1.Visible = False
           Me.ShowInTaskbar = False
       End If
   End Sub

   Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
       If NumericUpDown2.Value = 59 Then
           NumericUpDown3.Value += 1
           NumericUpDown2.Value = 0
       End If
   End Sub

   Private Sub NumericUpDown3_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown3.ValueChanged
       If NumericUpDown3.Value = 59 Then
           NumericUpDown1.Value += 1
           NumericUpDown3.Value = 0

       End If
   End Sub

   Private Sub Reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Reset.Click
       If NumericUpDown3.Value > 0 Then
           NumericUpDown3.Value = 0
       End If
       If NumericUpDown1.Value > 0 Then
           NumericUpDown1.Value = 0
       End If
       If NumericUpDown2.Value > 0 Then
           NumericUpDown2.Value = 0
       End If

   End Sub
End Class

 

I have one label for the time and hrs:mins:secs and 3 numericupdown boxs again hrs:mins:secs.

 

I also have 3 timers hrs:mins:secs

 

I dont no how to link the numericboxs up to the timer and make the label count down.

 

Any ideas welcome

 

Regards,

Ross

Edited by Robby
"Drink wet cement and get really stoned"

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...