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

Формулировка задачи:

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

Private Sub Form_Paint()
    Circle (X1, Y1), R
    Circle (X2, Y2), R
End Sub

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

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

textual
                            Листинг программы 
                        

                            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
                        

Оцени полезность:

6 голосов , оценка 4.167 из 5

Похожие ответы