Får inte rätt nummer på rätt plats, de blir förskjutna ett steg efter rätt nummer. Låter som om det borde vara : Hej Tror jag vet vad du menar.... Hmm. Tycker koden är lite skum. Ska den fylla alla åtta kontroler med ett slump värde mellan 0 och 34? Bör i så fall se ut såhär:nummer placering fel.
tex. nummer fem kommer på plats nummer 6 varför ????
Dim num As Single
For k = 0 To 7 ' antal nummer
num = Int(Rnd * 35)
If k > 7 Then Exit Sub ' 7 nummer
Label1(num).BackColor = vbBlue
Label1(num).ForeColor = vbWhite
Label1(num).Caption = num
NextSv: nummer placering fel.
For K=1 to 7...
inte K=0 to 7...
Det blir ju 8 nummer...'
mvh
MartinSv: nummer placering fel.
För att inte få med 0 skall du skriva så här
num = Int(Rnd * 35 ) +1
som du har skrivit kommer 0 - 34 med dvs 35 tal
For k = 1 To 7 ' antal nummer
num = Int(Rnd * 35) +1
Label1(num).BackColor = vbBlue
Label1(num).ForeColor = vbWhite
Label1(num).Caption = num
Next 'k
Sen får du se till att du indexerar om dina Label :s så att dom
börjar på Index 1 - 35
mvh
SvenSv: nummer placering fel.
Dim num As Single
Randomize
For k = 0 To 7 ' antal nummer
num = Int(Rnd * 35)
If k > 7 Then Exit Sub ' 7 nummer
Label1(num - 1).BackColor = vbBlue
Label1(num - 1).ForeColor = vbWhite
Label1(num - 1).Caption = num
Next
ser ut att funka....Sv: nummer placering fel.
For k = 0 To 7 ' antal nummer
num = Int(Rnd * 35)
Label1(k).BackColor = vbBlue
Label1(k).ForeColor = vbWhite
Label1(k).Caption = num
Next
Alternativt:
Dim MyLabel as Label
For Each MyLabel In Label1
num = Int(Rnd * 35)
MyLabel.BackColor = vbBlue
MyLabel.ForeColor = vbWhite
MyLabel.Caption = num
Next