Étape 11 : Le Code : suberteens et quitter
à la fin juste avant « end class » ajouter ce qui suit :
Private void sort()
g = True
Faire jusqu'à g = False
g = False
Pour y = 0 et i - 2
Si UCase (gf (0, y)) > UCase (gf (0, y + 1)) puis
g = True
Pour x = 0 à 7
KL = gf (x, y)
GF (x, y) = gf (x, y + 1)
GF (x, y + 1) = kl
Prochaine
End If
Prochaine
Boucle
ListBox1.Items.Clear()
Nm = 0 pour 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))
Prochaine
End Sub
Private Sub ad()
Pour r = 0 et 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)) ' ajouter des éléments du tableau dans listbox1
Prochaine
End Sub
Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click
Si k = False Then a = (MsgBox (« Etes-vous sûr de vouloir quitter », vbYesNo) - 6) End Else
Si un = False, puis finit
End Sub