Skip to main content

AccessTr.neT


Basit bir saat daha tarihli

Basit bir saat daha tarihli

#1
gerekli olanlar formumuza bir adet label ve bir adet timer.

Kod:
Private Sub Form_Load()
Timer1.Interval = 1000
Label1.ForeColor = &H8000000D
Label1.Font = Arial
Label1.FontSize = 14
Label1.AutoSize = True
Form1.Height = 930
Form1.ScaleHeight = 525
Form1.ScaleWidth = 3500
Form1.Width = 3500
Form1.BackColor = &H8000000E
Label1.BackStyle = 0
Form1.BorderStyle = 4
Form1.Caption = Saat
End Sub
Private Sub Label1_Click()
MsgBox ("ACCESSTR.net - ERKAN")
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Now()
End Sub

™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task