[vb2008] Clock with own image?

Status
Niet open voor verdere reacties.

Dummy1912

Gebruiker
Lid geworden
26 mrt 2010
Berichten
362
Hallo,

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
 
Hoi,

wel ik krijg de afb te zien
maar ik krijg het juist uur niet en de seconde loopt wel enkel de 1ste afb de rest niet.

ik heb 6 pictureboxen waarvan 2 voor het hour 2 voor min 2 seconde.

dus de voorlaatste komt de seconde in maar zou bijde moeten zijn en hij loopt veel te traag ook

is moeilijk uit te leggen op deze manier.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan