|
|
|
|
| |
Forma 8 tane picturebox ekleyin. 1 de textbox
-------------------------------------------------
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Form1.Caption = "DİJİTAL SAAT PROGRAMI"
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
currenttime = Format(Time, "hh:mm")
Text1.Text = Time
so = Mid(Time, 1, 1)
Picture1.Picture = LoadPicture(so + ".jpg")
sd = Mid(Time, 2, 1)
Picture2.Picture = LoadPicture(sd + ".jpg")
doo = Mid(Time, 4, 1)
Picture3.Picture = LoadPicture(doo + ".jpg")
dd = Mid(Time, 5, 1)
Picture4.Picture = LoadPicture(dd + ".jpg")
ss = Mid(Time, 7, 1)
Picture5.Picture = LoadPicture(ss + ".jpg")
sss = Mid(Time, 8, 1)
Picture6.Picture = LoadPicture(sss + ".jpg")
End Sub
-------------------------------------------------
Bunun için "" ":","0'dan 9'a" "" kadar olan resimleriniz olması gerekiyor.
|
|
|
|
|
|
| |
29 Ekim 2007'den beri 24625 ziyaretçi (38771 klik)
Copyrigh(c)2007, Ali AKMAZ All right reserved
|
|
|
|
|
|
|
|
