Adressbok: alla hjärtans dag special (11 / 11 steg)
Steg 11: Koden: suberteens och avsluta
Lägg till följande i slutet strax före "end class":
Private Sub sort()
g = sant
Inte förrän g = False
g = False
För y = 0 till i - 2
Om UCase (gf (0, y)) > UCase (gf (0, y + 1)) sedan
g = sant
För x = 0-7
kl = gf (x, y)
GF (x, y) = gf (x, y + 1)
GF (x, y + 1) = kl
Nästa
Slut om
Nästa
Loop
ListBox1.Items.Clear()
För nm = 0 till 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))
Nästa
End Sub
Private Sub ad()
För r = 0 till 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)) ' lägga till array objekt i listruta1
Nästa
End Sub
Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar ExitToolStripMenuItem1.Click
Om k = falskt då a = (MsgBox ("Är du säker på att du vill avsluta", vbYesNo) - 6) annat slut
Om en = False sedan avsluta
End Sub