[VB.NET] Random Image is altijd dezelfde

[SiXke]

Hallo

Ik heb volgende code:

code:

 Dim backgrounds As New IO.DirectoryInfo("E:\Docs\Visual Studio 2010\MovieBgs")
        If backgrounds.Exists Then
            Dim backgroundarray As Array = backgrounds.GetFiles("*.jpg")
            Dim randommax As Integer = backgroundarray.Length
            Dim r As New Random(System.DateTime.Now.Millisecond)
            Dim random As Integer = r.Next(1, randommax)
            Dim randomteller As Integer = 1
            Dim bgjpg As FileInfo
            For Each bgjpg In backgroundarray
                If randomteller = random Then
                    picBackground.Image = Image.FromFile(bgjpg.FullName.ToString)
                Else
                    randomteller = randomteller + 1
                End If
            Next



        End If

De bedoeling is dat hij een random image laad uit die directory.

Hij laad altijd dezelfde, maar nogtans als ik watches zet op de filename die hij moet laden, is dit toch niet altijd dezelfde, dus het lijkt of hij 1 laad, en dan de keren erna de nieuwe image negeerd.

Moet ik eerst de picturebox clearen ofzo?

Thx

[RobIII]

Wat is in vredesnaam de bedoeling van die for each loop met die randomteller

/edit: ik denk dat ik 't al begrijp maar in dat geval moet je echt even naar wat basiscursusjes programmeren gaan kijken. Wat je nu ziet is de laatste image nadat 'ie met de for loop klaar is. En met wat geluk zijn er daarvoor een aantal images "voorbijgeflitst" in een split second (wat er op neer komt dat ze niet eens ge-draw-ed zullen worden, hooguit de laatste).

[ Voor 73% gewijzigd door RobIII op 06-01-2011 18:23 ]

[SiXke]

Idd dom van mij

Soms kan je lang op iets simpel aant het kl*ten zijn

Thx!

[RobIII]

Ga nou voortaan eerst eens fatsoenlijk debuggen voor je een topic opent (Debuggen: Hoe doe ik dat?).