Pic1.Line (x0, y0)-(X, Y)

z = 0

End If

33. Предложите способ рисования ломанной линии

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 10

Тема: Использование буфера обмена и параметров выделенного текста

Цель: Получить навыки использования в программе буфера обмена.

Постановка задачи: Создать приложение для использования буфера обмена для обмена данными между текстовым окном и комбинированным списком, а также для вставки рисунка, созданного в Paint в окно рисунка.

Порядок выполнения:

1. Откройте новый проект

2. Добавить на форму следующие объекты и установить для них свойства:

3. Набрать код процедуры обработки события Load для объекта Form:

'Заполним комбинированный список

cboList.AddItem " Телефон"

cboList.AddItem " Рыба"

cboList.AddItem " Звонок"

4. Набрать код процедуры обработки события GotFocus для объекта picMyPicture:

'Изменим тип границы окна рисунка при помещении 'на него фокуса

picMyPicture.BorderStyle = 1

5. Набрать код процедуры обработки события LostFocus для объекта: picMyPicture

'Изменим тип границы окна рисунка при " потере" им фокуса.

picMyPicture.BorderStyle = 0

6. Набрать код процедуры для пункта Копировать

Clipboard.Clear 'Очистим буфер обмена

'Поиск выделенного элемента управления и

'помещение его содержимого в буфер обмена

If TypeOf Screen.ActiveControl Is TextBox Then

Clipboard.SetText Screen.ActiveControl.SelText

ElseIf TypeOf Screen.ActiveControl Is ComboBox Then

Clipboard.SetText Screen.ActiveControl.Text

ElseIf TypeOf Screen.ActiveControl Is PictureBox Then

Clipboard.SetData Screen.ActiveControl.Picture

End If

7. Набрать код процедуры для пункта Вырезать:

'Выполним процедуру mnuCopy_Click ()

MnuCopy_Click

'Поиск выделенного элемента управления

'и удаление его содержимого

If TypeOf Screen.ActiveControl Is TextBox Then

Screen.ActiveControl.SelText = " "

ElseIf TypeOf Screen.ActiveControl Is ComboBox Then

Screen.ActiveControl.Text = " "

ElseIf TypeOf Screen.ActiveControl Is PictureBox Then

Screen.ActiveControl.Picture = LoadPicture()

Else

End If

8. Набрать код процедуры для пункта Вставить:

If TypeOf Screen.ActiveControl Is TextBox Then

Screen.ActiveControl.SelText = Clipboard.GetText()

ElseIf TypeOf Screen.ActiveControl Is ComboBox Then

Screen.ActiveControl.Text = Clipboard.GetText()

ElseIf TypeOf Screen.ActiveControl Is PictureBox Then

Screen.ActiveControl.Picture = Clipboard.GetData()

End If

9. Проверить работу программы, для этого:

загрузите программу;

сверните ваше приложение;

в редакторе Paint создайте рисунок и скопируйте его в буфер обмена;

разверните ваше приложение, вставьте рисунок в окно рисунка (оно должно быть выделено).

Приложение позволяет также копировать, вырезать, вставлять текст в (из) текстовое окно, комбинированный список. Поэкспериментируйте.

10. Сохраните проект.