CODE
Partial Class _Default
Inherits System.Web.UI.Page
Dim hours As Single = 47
Dim minuts As Single = 59
Dim seconds As Single = 59
Protected Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
seconds -= 1
Me.lblsec.Text = seconds
Timer1.Focus()
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.lblhour.Text = hours.ToString
Me.lblminut.Text = minuts.ToString
Me.lblsec.Text = seconds.ToString
Timer1.Enabled = True
End Sub
End Class
13 Oct, 2008 - 06:50 PM
| 
