Перемещение квадрата

[_Мика_]

Че-то меня заклинило, ни как во голову нелезет!!
Короче есть шап (прямоугольник), и надо сделать им ну типа выделения (как пайнте).

вот мой код но он очень странно работает!

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

Dim Edit As Boolean
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1.Visible = True
Edit = True
Shape1.Left = X
Shape1.Top = Y
Shape1.Width = X
Shape1.Height = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Edit = True Then
Shape1.Width = X
Shape1.Height = Y
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Edit = False
End Sub



[Amed]

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

Dim Edit As Boolean
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1.Visible = True
Edit = True
Shape1.Left = X
Shape1.Top = Y
Shape1.Width = 0
Shape1.Height = 0
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If Edit = True Then
    Shape1.Width = X - Shape1.Left
    Shape1.Height = Y - Shape1.Top
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Edit = False
End Sub

Пока он не тянется влево
Поэтому лучше сделать прямоугольник из 4 line'ов и ручками вычислять координаты прямоугольника, из них составленного. Пример нужен?

[_Мика_]

Блин спасибо! А я делал так

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

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If Edit = True Then
    Shape1.Width = X - Shape1.Width
    Shape1.Height = Y - Shape1.Height
End If
End Sub


[Amed]

Бывает

Но прямоугольник всё же ещё не перемещается "левее своего лева". Надо доделать код

[_Мика_]

Это понятно! Мне в принцапи этого достаточно

[xolod]

А вот мой примерчик (если вдруг станет не достаточно) + небольшая "прическа", чтоб совсем на MS Paint похоже было

[xolod]

А вот мой примерчик (если вдруг станет не достаточно) + небольшая "прическа", чтоб совсем на MS Paint похоже было

[_Мика_]

Ну мне вообще это нужно было не для пайнта, это я так к примеру, чтоб понятно было, но все равно спасибо