Ficha nº17

1.

Código:

Private Sub Combo1_Click()

    If Combo1.ListIndex <> -1 Then

        List1.RemoveItem Combo1.ListIndex

        Combo2.RemoveItem Combo1.ListIndex

        List2.RemoveItem Combo1.ListIndex

        Combo3.RemoveItem Combo1.ListIndex

        

        Combo1.Enabled = False

        List1.Enabled = True

    End If

End Sub

Private Sub Combo2_Click()

    If Combo2.ListIndex <> -1 Then

        List2.RemoveItem Combo2.ListIndex

        Combo3.RemoveItem Combo2.ListIndex

        

        Combo2.Enabled = False

        List2.Enabled = True

    End If

End Sub

Private Sub Command1_Click()

    Picture1.Print "1º Classificado: " & Combo1.Text

    Picture1.Print "2º Classificado: " & List1.Text

    Picture1.Print "3º Classificado: " & Combo2.Text

    Picture1.Print "4º Classificado: " & List2.Text

    Picture1.Print "5º Classificado: " & Combo3.Text

    

End Sub

Private Sub Command2_Click()

    End

End Sub

Private Sub Form_Load()

    Dim clubes(8) As String, i As Integer

    

    clubes(0) = "Benfica"

    clubes(1) = "Sporting"

    clubes(2) = "Porto"

    clubes(3) = "Braga"

    clubes(4) = "Boavista"

    clubes(5) = "Chaves"

    clubes(6) = "Belenenses"

    clubes(7) = "Espinho"

    clubes(8) = "Amadora"

    

    For i = 0 To 8

        Combo1.AddItem clubes(i)

        List1.AddItem clubes(i)

        Combo2.AddItem clubes(i)

        List2.AddItem clubes(i)

        Combo3.AddItem clubes(i)

    Next i

    

    List1.Enabled = False

    Combo2.Enabled = False

    List2.Enabled = False

    Combo3.Enabled = False

End Sub

Private Sub List1_Click()

    If List1.ListIndex <> -1 Then

        Combo2.RemoveItem List1.ListIndex

        List2.RemoveItem List1.ListIndex

        Combo3.RemoveItem List1.ListIndex

        

        List1.Enabled = False

        Combo2.Enabled = True

    End If

End Sub

Private Sub List2_Click()

    If List2.ListIndex <> -1 Then

        Combo3.RemoveItem List1.ListIndex

        

        List2.Enabled = False

        Combo3.Enabled = True

    End If

End Sub