Перетаскивание мышью...

[Стёпка]

Например лайнами на форме нарисован прямоугольник...Как сделать так, чтобы при нажатии и удерживании кнопки мыши в пределах прямоугольника его можно было преретаскивать?...

[ZlydenGL]

Ловишь событие OnMouseDown. Затем отрабатываешь события OnMouseMove чтобы переместить прямоугольник и OnMouseUP чтобы завершить перемещение.

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

Dim msDown as Boolean, prevX as Integer, prevY as Integer

Private Sub Rect1_mouseDown(smth)
msDown = True
prevX= X ' записываешь координату Х мыши
prevY= Y ' записываешь координату У мыши
End Sub

Private Sub Rect1_mouseUp(smth)
msDown = False
End Sub

Private Sub Rect1_mouseMove(smth)
Rect1.Left = Rect1.Left + (X - prevX) ' Х - новая абсцисса курсора мыши
Rect1.Top = =Rect1.Top + (Y - prevY) ' У - новая ордината курсора мыши
prevX = X
prevY = Y
End Sub

Надо только растянуть события на несколько объектов Line, вместо процедуры Rect1_MouseDown использовать Form1_MouseDown и проверять координаты мыши по отношению к объектам Line. Или еще проще - написать свой контрол и в нем определить все необходимые события - и практика будет, и интересно, и довольно просто (по себе знаю)

[Стёпка]

Да чтобы свой контрол писать времени у меня нет...А так что-то не работает твой пример...Т.е. вроде всё правильно, а никакой реакции на нажитае мыши...

[ZlydenGL]

Я тоже раньше так думал А после написания (занявшего от силы минут 10) понял насколько сильно заблуждался В любом случае - ты ловишь клик чем, прямоугольником или формой? Клик обрабатывается? Переменные меняют свое значение?

[Стёпка]

Я ловлю клик прямоугольником...Точнее пытаюсь...)))))))....Рекции на это никакой....Т.е. дальше события создания прямоугольника дело не идёт...

[ZlydenGL]

Ладно, чем прямоугольник рисуешь? Все также 4 объекта Line? Или Shape?

[Стёпка]

Да я уже и лайнами пробовал и шейпом...Реакция одинакова..)))...Пытался даже анналогично перетаскиванию пикчербокса сделать...Но с ним то проще...А так не выходит нифига...

[ZlydenGL]

А координаты чем конвертишь? Посмотри в дебаг моде, какие у тебя получаются координаты мыши допустим и координаты лайнов. Очень удивишься В общем, изучай GetCursorPos (фукция API), и получай координаты лайнов как сумма лайн.топ+форм1.топ

[tyomitch]

Посмотри мой пример "таскание линии", может поможет
http://groups.google.com/groups?selm=20 ... put=gplain

[tyomitch]

получай координаты лайнов как сумма лайн.топ+форм1.топ

Это если считать, что окно без рамки и без заголовка.

[Стёпка]

Пасиба товарисчи!!!...Вы мне оч помогли!!!...

[alibek]

Есть один кустарный, но довольно надежный способ для определения координат клиентской области.

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

'ScaleMode = vbTwips
'Ширина рамки окна
BS = (Form.Width - Form.ScaleWidth)/2
'Высота заголовка (+строка меню)
TS = (Form.Height - Form.ScaleHeight) - 2*BS
'Координаты контрола относительно координат экрана
Y = Screen.TwipsPerPixelY*50 - Form.Top + BS + TS + Y0
X = Screen.TwipsPerPixelX*50 - Form.Left + BS + X0


А вообще, конечно есть API, преобразующее координаты диалогового окна в координаты экрана.

[kazah_]

есть много чего хоршего ну лучше использовать
shape1
.width
.top
.left
.height

[tyomitch]

kazah_, у Shape нет событий => это ничуть не лучше.