Date: Fri, 26 Jul 2002 4:07 p.m.
From: Mark Jacobson <jacobson@cns.uni.edu>
  To: 810-030-01@uni.edu

Here are the two procedures added to the ListBox and Selection Sort
and File Reading program today during class.

Notice how the
    cmdShowByHeightDescending2_Click() is much easier to understand
                                               than the version one
    cmdShowByHeightDescending_Click()
                                      om the way it creates the
                                      2nd ListBox and fills it
                                      UNI VB players, arranged by
                                      heights in descending order.

' Added on Friday, July 26th, 2002 during class
' Show by height printing to the FORM instead of displaying in a ListBox

Private Sub cmdPrintByHeightDescending_Click()
    Cls

    If lstByHeight2.ListCount = 0 Then cmdShowByHeightDescending_Click

    lstByHeight.Visible = False
    lstByHeight2.Visible = False

    Print

    For i = 0 To lstByHeight2.ListCount - 1
        Print lstByHeight2.List(i)
    Next i

End Sub

' Added on Friday, July 26th during lecture

Private Sub cmdShowByHeightDescending2_Click()
    Cls

    If lstByHeight.ListCount = 0 Then cmdShowByHeight_Click

    lstByHeight.Visible = False
    lstByHeight2.Visible = True

    If lstByHeight2.ListCount > 0 Then Exit Sub

    For i = lstByHeight.ListCount - 1 To 0 Step -1
        lstByHeight2.AddItem lstByHeight.List(i)
    Next i
End Sub