Про Form'у

[nik936ta]

Как сделать так чтобы форма двигалась плавно по экрану? Подскажите! Gj;fkeqcnf

[A.A.Z.]

Вообще, у формы же есть свойства Left и Top, их ведь можно циклически менять!

Поставь таймер с интервалом 1

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

Dim I&

Sub Form_Load()
Me.Left = 0
Me.Top = 0
End Sub

Sub Timer1_Timer()
'Вправо
GoRight
'Немного вниз
GoDown
'Проверка, не ушла ли форма за пределы экрана
If Me.Top + Me.Height >= Screen.Height Then Timer1.Enabled = False
'Влево
GoLeft
'Немного вниз
GoDown
'Проверка, не ушла ли форма за пределы экрана
If Me.Top + Me.Height >= Screen.Height Then Me.Left = 0: Me.Top = 0: DoEvents: MsgBox "Всё!": Timer1.Enabled = False
End Sub

Sub GoRight()
For I = Me.Left To Screen.Width - Me.Width
Me.Left = I
DoEvents
Next
End Sub

Sub GoLeft()
For I = Me.Left To 0 Step -1
Me.Left = I
DoEvents
Next
End Sub

Sub GoDown()
For I = Me.Top To Me.Top + Me.Height
Me.Top = I
DoEvents
Next
End Sub