Time and date
Time and date
Rate Time and date
(1(1 Vote))
'Declarations
'add a timer 2 labels and a button
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Dim time As Integer
Label1.Text = Format(time, "hh:mm:ss")
Label1.Text = TimeString
Label2.Text = DateString
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim time As Integer
Label1.Text = Format(time, "hh:mm:ss")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim time As Integer
Label1.Text = Format(time, "hh:mm:ss")
Label1.Text = TimeString
Label2.Text = DateString
End Sub
End Class
Time and date Comments
No comments yet — be the first to post one!
Post a Comment