💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

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