cw 9a Notatnik.pdf

Notatnik

NaleŜy utworzyć nowy projekt, rozmieścić obiekty na formatce według wzoru

przedstawionego poniŜej.

Właściwość MutiLine obiektu Text1 ustawić na True.

Dodać kolejną formatkę do projektu.

Otworzyć Projekt Explorer , odnaleźć nazwę projektu, wywołać menu kontekstowe, wybrać

polecenie Add->Form.

Do nowej formatki dodać obiekty DriveListBox, DirListBox, FileListBox, TextBox,

CommandButton według zamieszczonego wzoru.

Zaprogramować funkcję Change kontrolki Drive1

On Error GoTo problem

Dir1.Path = Drive1.Drive

Exit Sub

problem:

MsgBox "UrzĄdzenie nie odpowiada!!!"

Zaprogramować funkcję Change kontrolki Dir1

File1.Path = Dir1.Path

Text1.Text = Dir1.Path

Zaprogramować funkcję Click kontrolki File1

Text1.Text = File1.Path + "\" + File1.FileName

Zadeklarować zmienną publiczną typu całkowitego w sekcji general pierwszej formatki.

Public Plik As String

Zaprogramować działanie przycisku OK.

Form1.Plik = Text1.Text

Unload Me

Wprowadzić kod odsługujący polecenie Otwórz.

Form2.Show vbModal

Text1.Text = ""

Open Plik For Input As #1

Line Input #1, a$

Text1.Text = a$

Line Input #1, a$

Text1.Text = Text1.Text & vbCrLf & a$

Loop Until EOF(1)

Close #1

Wprowadzić kod odsługujący polecenie Zapisz.

Form2.Show vbModal

Open Plik For Output As #1

Print #1, Text1.Text

Close #1

Wykorzystując właściwości obiektu TextBox zaprogramować działanie menu Czcionka.

Zadania

1) Uzupełnić brakujące funkcje programu

2) Wprowadzić zabezpieczenia przed niewłaściwym uŜyciem programu.