KolVB1 Wykonać aplikację

(1)

KolVB1

Wykonać aplikację Windows Forms Application posiadającą formularz z napisem

F1 Klasyfikacja 2008, Etykietę o zablokowanym rozmiarze z cienką czarną obwódką i trzy przyciski z napisami:

 pierwszy przycisk F1 - 1,

 drugi przycisk F1 - 2,

 trzeci przycisk F1 - Robert Kubica.

Po naciśnięciu przycisku z 1) napisem F1 - 1:

- w Etykiecie ma się pojawić nazwisko kierowcy, który wygrał klasyfikację 2008 (1. Lewis Hamilton, Mclaren) i kolorem tła etykiety ma być kolor żółty (Yellow).

2) napisem F1 - 2:

- w Etykiecie ma się pojawić nazwisko kierowcy, który zajął drugie miejsce

w klasyfikację 2008 (2. Felipe Massa, Ferrari) i kolorem tła etykiety ma być kolor jasno szary (LightGray).

3) napisem F1 - Robert Kubica:

- w Etykiecie ma się pojawić miejsce, który zajął Robert Kubica w klasyfikacji 2008 (4. Robert Kubica, BMW Sauber) i kolorem tła etykiety ma być kolor jasno niebieski (LightBlue).

Napisy w etykiecie mają być wyśrodkowane.

Na wyższą ocenę dodać dwa przyciski:

4) z napisem Kasuj - kasujący napis w Etykiecie i ustawiający jej kolor tła na biały (White),

5) z napisem Zamknij - zamykający aplikację.

Rozwiązanie

Rys. 1. Propozycja formularza

(2)

Private Sub btnF11_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) _

Handles btnF11.Click

lblInfo.Text = "1. Lewis Hamilton, Mclaren"

lblInfo.BackColor = Color.Yellow End Sub

Private Sub btnF12_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) _

Handles btnF12.Click

lblInfo.Text = "2. Felipe Massa, Ferrari"

lblInfo.BackColor = Color.LightGray End Sub

Private Sub btnF1Kubica_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) _

Handles btnF1Kubica.Click

lblInfo.Text = "4. Robert Kubica, BMW Sauber"

lblInfo.BackColor = Color.LightBlue End Sub

Private Sub btnKasuj_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) _

Handles btnKasuj.Click lblInfo.Text = ""

lblInfo.BackColor = Color.White End Sub

Private Sub btnZamknij_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) _

Handles btnZamknij.Click Application.Exit()

End Sub