Hallo,
ik wil graag een eigen clock maken met eigen pictures
dit is wat ik al heb.
maar het werkt niet.
aub iemand die mij kan helpen met dit probleem
ik krijg het echt niet goed
Dummy1912
ik wil graag een eigen clock maken met eigen pictures
dit is wat ik al heb.
maar het werkt niet.
Code:
Private _Images As Dictionary(Of Integer, Image)
Private Sub FillImages()
If _Images Is Nothing Then
_Images = New Dictionary(Of Integer, Image)
_Images.Add(0, Image.FromFile("c:\temp\lefty_f00.png"))
_Images.Add(1, Image.FromFile("c:\temp\lefty_f01.png"))
_Images.Add(2, Image.FromFile("c:\temp\lefty_f02.png"))
_Images.Add(3, Image.FromFile("c:\temp\lefty_f03.png"))
_Images.Add(4, Image.FromFile("c:\temp\lefty_f04.png"))
_Images.Add(5, Image.FromFile("c:\temp\lefty_f05.png"))
_Images.Add(6, Image.FromFile("c:\temp\lefty_f06.png"))
_Images.Add(7, Image.FromFile("c:\temp\lefty_f07.png"))
_Images.Add(8, Image.FromFile("c:\temp\lefty_f08.png"))
_Images.Add(9, Image.FromFile("c:\temp\lefty_f09.png"))
End If
End Sub
Private Sub SetImage(ByRef pic1 As PictureBox, ByRef pic2 As PictureBox, ByVal Time As Integer)
pic1.Image = _Images(Time / 10)
pic2.Image = _Images(Time - ((Time / 10) * 10))
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
FillImages()
If picHour1.Tag <> DateTime.Now.Hour Then
SetImage(picHour1, picHour2, DateTime.Now.Hour)
picHour1.Tag = DateTime.Now.Hour
End If
If picMinute1.Tag <> DateTime.Now.Minute Then
SetImage(picMinute1, picMinute2, DateTime.Now.Minute)
picMinute1.Tag = DateTime.Now.Minute
End If
If picSecond1.Tag <> DateTime.Now.Second Then
SetImage(picSecond1, picSecond2, DateTime.Now.Second)
picSecond1.Tag = DateTime.Now.Second
End If
End Sub
aub iemand die mij kan helpen met dit probleem
ik krijg het echt niet goed

Dummy1912