Событие MouseUp для массива контролов

[Amed]

Помещаем на форму пару PictureBox Picture1. С индексами 0 и 1.
В событии MouseUp прописываем Msgbox Index.

Запускаем программу, клацаем на первой картинке, а отпускаем кнопку на второй. Оказывается, что показывается индекс первой картинки.

В принципе, это вполне согласовывается с MSDN:

The WM_LBUTTONUP message is posted when the user releases the left mouse button while the cursor is in the client area of a window. If the mouse is not captured, the message is posted to the window beneath the cursor. Otherwise, the message is posted to the window that has captured the mouse.

Можно как-то простейшими методами определить индекс картинки, на которой отпустили кнопку?

[Twister]

Можно после MouseUp обрабатывать MouseMove.

[BV]

Сверяй WindowFromPoint и hWnd каждого PictureBox, либо ставь ReleaseCapture на выходе из Rect PictureBox, где произошло MouseDown.

[alibek]

Можно после MouseUp обрабатывать MouseMove.

И что это даст?

[alibek]

Сверяй WindowFromPoint и hWnd каждого PictureBox, либо ставь ReleaseCapture на выходе из Rect PictureBox, где произошло MouseDown.

И это простейший способ?
Тогда уж лучше по другому. Как только X/Y стали меньше 0 или больше ScaleWidth/ScaleHeight, сбросить запомненный индекс PictureBox, на котором нажималась кнопка.

[Amed]

alibek, если кнопка была зажата на одном контроле, MouseMove на другом контроле не происходит, пока не отпустить.

BV, не простейший способ. Принципиально все просто, но кода не так мало, как хочется.

[Amed]

Кстати, alibek, не понял, что это даст?
Я только лишь узнаю, что мышь вышла за пределы нынешнего пикчера, а как поймаю-то нужный индекс затем?

[alibek]

Я только лишь узнаю, что мышь вышла за пределы нынешнего пикчера, а как поймаю-то нужный индекс затем?

Перерасчитать его положение, например.
DX = X - Picture1(0).ScaleWidth -- это расстояние, на которое указатель вышел за пределы PictureBox.
DX0 = Picture1(1).Left - Picture1(0).Left -- расстояние между двумя PictureBox "снаружи".
Если DX находится между DX0 и DX0+Picture1(1).ScaleWidth, значит указатель расположен на втором PictureBox. Либо можно использовать WindowFromPoint.

[BV]

2 Amed

Не простейший, да, но проблему решающий.

[Amed]

Я только лишь узнаю, что мышь вышла за пределы нынешнего пикчера, а как поймаю-то нужный индекс затем?

Перерасчитать его положение, например.
DX = X - Picture1(0).ScaleWidth -- это расстояние, на которое указатель вышел за пределы PictureBox.
DX0 = Picture1(1).Left - Picture1(0).Left -- расстояние между двумя PictureBox "снаружи".
Если DX находится между DX0 и DX0+Picture1(1).ScaleWidth, значит указатель расположен на втором PictureBox. Либо можно использовать WindowFromPoint.

Все, понял, зря долго объяснял.
Получается на 5 баллов, судя по всему. Всем спасибо.

[Twister]

Тема закрыта, но все же:

И что это даст?

Как что? Смотри: по MouseUp мы узнаем, что мышь отпущена. Затем нам нужно поймать событие MouseMove, а оно произойдет как раз над тем Picture-ом, над которым отпустили мышь...

[GSerg]

Дык громоздко получится. Флаги, отличение нужных маусмувов от ненужных...

Код: Выделить всё

Option Explicit

Private Declare Function ReleaseCapture Lib "user32.dll" () As Long

Private Sub Picture1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  ReleaseCapture
End Sub

Private Sub Picture1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  Debug.Print "Up: "; Index
End Sub

[Twister]

отличение нужных маусмувов от ненужных

Решаемо вводом дополнительной булевской переменной...

[Amed]

GSerg. Нет слов, оно

[GSerg]

отличение нужных маусмувов от ненужных

Решаемо вводом дополнительной булевской переменной...

Первое слово зря не включил в цитату

[Twister]

Какие флаги ты имеешь ввиду?

[GSerg]

Собственно, "дополнительная булевская переменная" всегда флагом и была

Amed
Угу. Наши с тобой подписи обычно работают

[alibek]

Затем нам нужно поймать событие MouseMove, а оно произойдет как раз над тем Picture-ом, над которым отпустили мышь...

Нет. При отпускании кнопки MouseMove не будет, оно появится, когда мышку сдвинут.

[Twister]

GSerg. Нет слов, оно

Ну вот, сначала мою идею обхаял alibek, а теперь еще и GSerg-a хвалят...

[Twister]

Нет. При отпускании кнопки MouseMove не будет, оно появится, когда мышку сдвинут

Конечно, но ее же сдвинут...

[alibek]

Конечно, но ее же сдвинут...

И сколько времени ты предлагаешь ждать, пока сдвинут?

[Twister]

Достаточно малейшего движения. Или, по твоему, юзверям мышь для красоты?

[alibek]

Ну-ну...
В мануале к программе будешь писать "Если программа зависла, пошевелите мышкой"?
Наверное поэтому детишки в интернет-клубах мышкой возят по экрану, чтобы Counter-Strike быстрее загружался.

[Twister]

Ну раз мой способ устроил Amed-а, значит в этом что-то есть...
Сам посуди, разве шанс, что мышь продолжат двигать после отпускания кнопки, мал? По-моему, вероятность равна 99,99%...

[alibek]

По-моему, вероятность равна 99,99%...

У человека с болезнью Паркинсона возможно.
Я не вижу причины, зачем двигать мышку после того, как отпустил кнопку. Единственная причина -- когда выполняется несколько операций подряд.

[Twister]

Я не вижу причины, зачем двигать мышку после того, как отпустил кнопку

Чисто по инерции.
alibek, хватит спорить, пошли постигать Дао...

[Amed]

Хаха, Алибек, надо сделать такой прикол

Кстати, BV отдельное мерсибо.

[Amed]

Twister, способ c ReleaseCapture элегантнее.

[Twister]

Twister, способ c ReleaseCapture элегантнее.

Согласен... Меньше гемороя.