Практическая работа по VISUAL BASIC.Проект «Склейка текста"

Проект «Склейка текста»

Выполнив задания этой практической работы, вы научитесь:

- создавать форму и размещать  на ней элементы  управления (CommandButton, TextBox, ListBox);

- устанавливать свойства  элементов управления (Caption,ListCount,                        Selected, RemoveItem, AddItem, Enabled);

- вводить текст  программы и её отладка (вспомните условный оператор, цикл со, счетчиком);

- сохранять проект.

Для выполнения задания вам надо знать:

-          элементы  управления и их свойства;

Более подробные сведения об объектах и их свойствах можно найти в конце брошюры.

- свойство Selected (признак выделения),Enabled (разрешает или запрещает изменить свойства компонента)

- метод RemoveItem (убирает из списка элемент с заданным индексом < имя списка>.RemoveItem индекс)

Задание:

1) Создать форму, расположив на ней соответствующие управляющие элементы, настроив их свойства.

2) Составить событийную процедуру, которая бы при нажатии на кнопку ДОБАВИТЬ вписывала указанный текст элементом в общий список, а при выделении любого элемента из общего списка и нажатии кнопки  УДАЛИТЬ – стирала его, при нажатии кнопки ОЧИСТИТЬ удаляла всю информацию (кнопки УДАЛИТЬ и ОЧИСТИТЬ – «гасятся») .

3)  Сохранить проект в папке «Проекты».

Примерный образец решения:

Private Sub Command1_Click()

For i = List1.ListCount - 1 To 0 Step -1

If List1.Selected(i) = True Then

List1.RemoveItem (i)

End If

Next i

If p = 1 Then

List1.AddItem (Combo1.Text)

End If

If List1.ListCount = 0 Then

Command1.Enabled = False

Command2.Enabled = False

End If

End Sub

Private Sub Command2_Click()

List1.Clear

Command1.Enabled = False

Command2.Enabled = False

End Sub

Private Sub Command3_Click()

If List1.Text = "" Then

Command1.Enabled = False

Command2.Enabled = False

End If

If Text1.Text <> "" Then

List1.AddItem (Text1.Text)

Command1.Enabled = True

Command2.Enabled = True

End If

End Sub