Wel hoe ik het heb gedaan is met een streamreader/writer gewoon in een txt bestand
Code voor het schrijve van de score:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As New StreamWriter("score.txt", True)
s.WriteLine(lblPunten.Text & " - " & txtNaam.Text)
s.Close()
End Sub
en als ik ze in een textbox ofzo wil zetten:
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim s As New StreamReader("score.txt")
Dim scores As New ArrayList
Dim o As String
Dim i As Integer
o = s.ReadLine
Do Until o Is Nothing
scores.Add(o)
o = s.ReadLine
Loop
scores.Sort()
For i = scores.Count - 1 To 0 Step -1
Label2.Text &= scores(i) & vbCrLf
Next
s.Close()
End Sub
Eerst in array zette, daarna sorteren en daarna op de label zette in de omgekeerde richting want hij soorteert ze van laag naar hoog
zo heb ik de mijne toch gemaakt
*edit*
Die twee zijn allebij in een aparte form btw. toch maar even melde
