Ledsen SvenPon men “Sortering igen” hjälpte mig inte eftersom han använder en helt annan kod så du (eller någon annan) får svara på det här också: Hej Knäpp lösning... Kanske Hej igenSortera stigande
min kod:
Dim tmpArray(35) As Long, i As Long, x As Integer
i = 1
Do Until i > 7 'sju olika nummer som slumpas fram
x = Rnd * 34 + 1
If tmpArray(x) = 0 Then
tmpArray(x) = x
Label1(i) = x
Label1(i).Top = "850" 'de sju lablarna placeras rätt
Label1(i).Left = i * "820"
i = i + 1
End If
Loop
Dessa 7 nummer placeras alltså i 7 olika labels men nu vill jag att den label som har den lägsta siffran som caption ska sorteras först… STIGANDE ALLTSÅ!Sv: Sortera stigande
Då kan du kanske göra så här,finns säkert elegantare sätt
men detta föll mig på läppen.
Obs du kan inte skriva 34 i Rnd satsen då får du inte med 35.
Fö tycker jag att det är en ganska knäpp lösning.
Option Explicit
Private Sub Command1_Click()
Dim tmpArray(35) As Long, i As Long, x As Long
i = 1
Do Until i > 7 'sju olika nummer som slumpas fram
x = Int(Rnd * 35) + 1
If tmpArray(x) = 0 Then
tmpArray(x) = x
i = i + 1
End If
Loop
i = 1
For x = 1 To 35
If tmpArray(x) <> 0 Then
Label1(i) = x
Label1(i).Top = 850 'de sju lablarna placeras rätt
Label1(i).Left = i * 820
i = i + 1
End If
Next 'x
End Sub
SvenSv: Sortera stigande
men det e ju du som skrivit halva koden :-)
men men knäpp eller inte DET FUNKAR TACK FÖR HJÄLPEN!Sv: Sortera stigande
Du får inte glömma att lägga in ett Randomize i Form Load
Om inte så blir det samma Rnd sekvenser varje gång du startar
DS