привязка формы к краям экрана

[HotKitten]

а как сделать привязку формы к краям экрана, как у winamp'a

[GM]

Лови WM_Move, и если me.left < 0 или me.top < 0me.left + me.width > screen.width или me.top + me.height > screen.height возращай false, или что-то в этом роде. Ты это имееш ввиду ?

[Andrey Fedorov]

Лови WM_Move, и если me.left < 0 или me.top < 0me.left + me.width > screen.width или me.top + me.height > screen.height возращай false, или что-то в этом роде. Ты это имееш ввиду ?

Похоже примерно это.
Обычно еще небольшой скачок делают - такой эффектик прилипания к краю экрана. Вообще нечто подобное делал давно, когда игрался, - обошелся тогда безо всякого API. Вот, нашел свой древний примерчик в интернете:

http://www.vbnet.ru/samples/zip/afclock.zip

[Alexander N. Samarin]

Где-то я это уже постал ........

[HotKitten]

me.left < 0 или me.top < 0 - понятно
а вот me.left + me.width > screen.width или me.top + me.height > screen.height писать так же как и в первом случае? а то с screen.width я еще не сталкивался
Andrey Fedorov в твоём примерчике конечно красивые часики, но привязка мне там не понравилась - нельзя двигать форму по краю экрана

[GM]

Да так же, в вб есть глобальный объект Screen. И у него есть свои свойства и методы, одно из свойств Width. Так что пиши просто Screen.Width.

[HotKitten]

НЕТ ВСЁ ТАКИ НЕ ПОНЯЛ, МОЖНО ЧУТЬ - ЧУТЬ ПОПОДРОБНЕЕ

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

Dim cx As Single, cy As Single, dx As Single, dy As Single
Dim bDrag As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    bDrag = True
    dx = X: dy = Y: cx = Me.Left: cy = Me.Top
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If bDrag Then
        cx = cx + X - dx: cy = cy + Y - dy
        Me.Move cx, cy
    End If
    If Me.Left < 0 Then bDrag = False '''''''''''''''Чё то я не то сделал
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
bDrag = False
End Sub