Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






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






    z = 0

    End If

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


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

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

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

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

     

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

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

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

     

    Комбинированный список Name cboList
    Графическое окно Name picMyPic
    Текстовое окно Name TxtEdit

     

    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. Сохраните проект.







    © 2023 :: MyLektsii.ru :: Мои Лекции
    Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
    Копирование текстов разрешено только с указанием индексируемой ссылки на источник.