Как получить координаты места клика мышью относительно объекта, а не формы

@Dim1One · Регистрация: 30.04.2011

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

Как получить координаты места клика мышью относительно определенного объекта, а не формы?
Исследование показали, что координаты всегда определяются относительно формы, а не PictureBox1'a:

VB.NET
1
2
3
4
5
6
7
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        MsgBox(Cursor.Position.ToString)
    End Sub
 
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        MsgBox(Cursor.Position.ToString)
    End Sub

@Darth Coder · 28.06.2011, 22:33

Отними от высоты клика вертикальный отступ объекта от верхней границы формы
с длиной аналогично

@Dim1One · 29.06.2011, 06:51 **[ТС]**

Pipyak, совсем не то получается:

VB.NET
1
2
3
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        MsgBox(Cursor.Position.X - PictureBox1.Left & "  " & Cursor.Position.Y - PictureBox1.Top)
    End Sub

Если переместить PictureBox1 на форме, то координаты всегда разные получаются.

@Darth Coder · 29.06.2011, 10:58

VB.NET
1
2
3
4
5
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        Dim a as string
a=Cursor.Position.X - PictureBox1.Left & "  " & Cursor.Position.Y - PictureBox1.Top
MsgBox a
    End Sub

а так?

@Dim1One · 29.06.2011, 14:20 **[ТС]**

Pipyak, ты написал тоже самое, только с помощью переменной. Это тоже положительного резултата не дает.

@Юпатов Дмитрий · 29.06.2011, 17:08

а использовать параметр e процедуры

VB.NET
1
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown

???

VB.NET
1
2
3
Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        MsgBox(e.Location.ToString)
    End Sub

для чего вообще процедуры имеют параметры? Попробуйте

@Dim1One · 29.06.2011, 20:48 **[ТС]**

Юпатов Дмитрий, спасибо, теска

. Работает.

@eJ_Studio · 13.07.2011, 17:06

а на сколько мне известно cursor.position возвращает позицию курсора относительно экрана, а не формы и не всему тому о чем Вы пишите

@Юпатов Дмитрий · 13.07.2011, 19:18

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

cursor.position возвращает позицию курсора относительно экрана

совершенно верно, но не в моем варианте

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@Darth Coder 290 / 271 / 107 Регистрация: 10.06.2011 Сообщений: 696
	28.06.2011, 22:33
	Отними от высоты клика вертикальный отступ объекта от верхней границы формы с длиной аналогично 0

@Dim1One 44 / 44 / 4 Регистрация: 30.04.2011 Сообщений: 283
	29.06.2011, 14:20 [ТС]
	Pipyak, ты написал тоже самое, только с помощью переменной. Это тоже положительного резултата не дает. 0

@Dim1One 44 / 44 / 4 Регистрация: 30.04.2011 Сообщений: 283
	29.06.2011, 20:48 [ТС]
	Юпатов Дмитрий, спасибо, теска. Работает. 0

@eJ_Studio 169 / 149 / 14 Регистрация: 13.07.2011 Сообщений: 477
	13.07.2011, 17:06
	а на сколько мне известно cursor.position возвращает позицию курсора относительно экрана, а не формы и не всему тому о чем Вы пишите 0