Разрешение на выполнение события в определённом месте формы

@Art- · Регистрация: 30.08.2017

Студворк — интернет-сервис помощи студентам

Отцы, выручайте!

Допустим есть пустая форма, а в ней такое:

Visual Basic
1
2
3
4
Private Sub Form_Paint()
    Circle (X1, Y1), R
    Circle (X2, Y2), R
End Sub

Как сделать, чтобы событие, например маус_клик, было разрешено только в пределах этих окружностей?

@Kogb · 30.08.2017, 20:32

Нет такого события. Есть Form_MouseDown/UP в которые передаются координаты курсора. Отсюда и танцуй.

@Art- · 30.08.2017, 20:46 **[ТС]**

ну да, точно. просто form_click.
никаких идей насчёт танцев. как мне описать координаты всех точек входящих в окружности, чтобы сравнивать с позицией курсора и разрешать выполнение MouseDown/Up?

@Kogb · 30.08.2017, 21:21

Visual Basic
1
2
3
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (X > (x1 + R) Or X < (x1 - R) Or Y > (y1 + R) Or Y < (y1 - R)) And (X > (x2 + R) Or X < (x2 - R) Or Y > (y2 + R) Or Y < (y2 - R)) Then MsgBox "Out of rings" Else MsgBox = "In the rings"
End Sub

Добавлено через 9 минут

Сообщение от Kogb

MsgBox = "In the rings"

знак равенства здесь лишний.

@_shark · 31.08.2017, 00:26

если у нас есть окружность с центром x1, y1 и радиусом R, и есть координаты "тыкнутой" мышки x2, y2, то проверить входят ли координаты мышки в окружность можно примерно так:

InsideRing = (((x2 - x1) * (x1 - x1) + (y2 - y1) * (y2 - y1)) <= R * R)

@Art- · 31.08.2017, 08:22 **[ТС]**

спасибо, это работает.

Добавлено через 2 минуты
_shark,

а с Вашим примером не получилось. добавил label, и она выдаёт "правильно" в любой точке формы.

Добавлено через 6 минут
разобрался и с этим.

Visual Basic
1
2
3
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = (((X - x1) * (X - x1) + (Y - y1) * (Y - y1)) <= r * r)
End Sub

Добавлено через 1 минуту
и в Вашей формуле надо поправить
InsideRing = (((x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1)) <= R * R)

@_shark · 31.08.2017, 10:02

Сообщение от Art-

и в Вашей формуле надо поправить

а, точно. Не заметил (:

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Kogb 367 / 128 / 28 Регистрация: 17.07.2011 Сообщений: 253 Записей в блоге: 1
	30.08.2017, 20:32
	Нет такого события. Есть Form_MouseDown/UP в которые передаются координаты курсора. Отсюда и танцуй. 0

@Art- 12 / 3 / 2 Регистрация: 30.08.2017 Сообщений: 75
	30.08.2017, 20:46 [ТС]
	ну да, точно. просто form_click. никаких идей насчёт танцев. как мне описать координаты всех точек входящих в окружности, чтобы сравнивать с позицией курсора и разрешать выполнение MouseDown/Up? 0

@_shark 193 / 191 / 31 Регистрация: 11.10.2016 Сообщений: 610
	31.08.2017, 00:26
	если у нас есть окружность с центром x1, y1 и радиусом R, и есть координаты "тыкнутой" мышки x2, y2, то проверить входят ли координаты мышки в окружность можно примерно так: InsideRing = (((x2 - x1) * (x1 - x1) + (y2 - y1) * (y2 - y1)) <= R * R) 1