Stap 11: De Code: suberteens en sluit af
Voeg het volgende toe aan het einde net voor "einde klasse":
Private Sub sort()
g = True
Doen tot en met g = False
g = False
Voor y = 0 tot i - 2
Als UCase (gf (0, y)) > UCase (gf (0, y + 1)) dan
g = True
Voor x = 0 tot en met 7
KL = gf (x, y)
GF (x, y) = gf (x, y + 1)
GF (x, y + 1) = kl
Volgende
End If
Volgende
Loop
ListBox1.Items.Clear()
For nm = 0 tot i - 1
ListBox1.Items.Add (gf (0, nm) & "~ ~" & gf (1, nm) & "~ ~" & gf (2, nm) & "~ ~" & gf (3, nm) & "~ ~" & gf (4, nm) & "~ ~" & gf (5 nm) & "~ ~" & gf (6, nm) & "~ ~" & gf (7 nm))
Volgende
End Sub
Private Sub ad()
Voor r = 0 tot i - 1
ListBox1.Items.Add (gf (0, r) & "~ ~" & gf (1, r) & "~ ~" & gf (2, r) & "~ ~" & gf (3, r) & "~ ~" & gf (4, r) & "~ ~" & gf (5, r) & "~ ~" & gf (6, r) & "~ ~" & gf (7, r)) ' array items toevoegen in listbox1
Volgende
End Sub
Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) verwerkt ExitToolStripMenuItem1.Click
Als k = False Then a = (MsgBox ("Weet u zeker dat u wilt afsluiten", vbYesNo) - 6) anders einde
Als een = onwaar dan beëindigen
End Sub