VB Feed
Sunday, June 11, 2017
Menampilkan Jam dengan Visual Basic .Net
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load DTTanggal.Format = DateTimePickerFormat.Custom DTTanggal.CustomFormat = "dddd, dd/MM/yyyy" DTTanggal.Value = Format(Now) End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Lbl12Jam.Text = Format(Now, "h:mm:ss tt") Lbl24Jam.Text = Format(Now, "hh:mm:ss") End Sub End Class
No comments:
Post a Comment
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment