• Wykonaj formularz o rozmiarach wys.=190, szer.=245, składający się z elementów zaprezentowanych na rysunku obok (4 etykiety, 4 pola tekstowe, 4 przyciski polecenia). Wszystkie napisy są wykonane czcionką Tahoma (10 pogrubione – przyciski „Do arkusza” i „Do pliku”, 10 zwykła – reszta).

• Napisz procedurę startową, która załaduje formularz do pamięci, ustawi kursor w pierwszym polu tekstowym i wyświetli formularz.

• Napisz procedurę obsługującą kliknięcie przycisku „Czyść” (czyści pola tekstowe, ustawia kursor w pierwszym polu tekstowym).

• Napisz procedurę obsługi zdarzenia związanego z kliknięciem przycisku „Zakończ”. Procedura powinna ukrywać formularz przed użytkownikiem i wyładować go z pamięci.

• Napisz procedurę związaną z kliknięciem przycisku „Do arkusza”. Po kliknięciu tego przycisku do arkusza wpisywane są dane z pól tekstowych. Uzupełnianie przygotowanej w arkuszu tabeli powinno następować od pierwszej pustej komórki w kolumnie „Nazwa związku”.

• Napisz procedurę związaną z kliknięciem przycisku „Do pliku”. Po kliknięciu tego przycisku dane z pól tekstowych mają być dodawane do pliku baza.txt jako kolejny wiersz. W wierszu mają się znaleźć: nazwa związku, jego stan skupienia, toksyczność i numer półki, na której się znajduje, rozdzielone przecinkami.

Sub start()

Load UserForm1

UserForm1.TextBox1.SetFocus

UserForm1.Show

End Sub

Private Sub CommandButton1_Click()

Dim i As Byte

Range("C4").Select

While Cells(4 + i, 3) <> ""

i = i + 1

Wend

Cells(4 + i, 3) = TextBox1

Cells(4 + i, 4) = TextBox2

Cells(4 + i, 5) = TextBox3

Cells(4 + i, 6) = TextBox4

End Sub

Private Sub CommandButton2_Click()

Dim nazwa As String, wiersz As String

Dim lw As Byte, licznik As Byte, i As Byte

nazwa = Application.GetOpenFilename

Open nazwa For Append As #1

While Cells(4 + i, 3) <> ""

wiersz = Cells(4 + i, 3).Text & ", " & Cells(4 + i, 4).Text & ", " & Cells(4 + i, 5).Text & ", " & Cells(4 + i, 6).Text

i = i + 1

Print #1, wiersz

Wend

Close #1

MsgBox ("Zapisano do pliku")

End Sub

Private Sub CommandButton3_Click()

TextBox1 = ""

TextBox2 = ""

TextBox3 = ""

TextBox4 = ""

TextBox1.SetFocus

End Sub

Private Sub CommandButton4_Click()

UserForm1.Hide

Unload UserForm1

End Sub