Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Анимация формы.

Автор: Mac_Laren 29.11.2004, 19:49

Я-15 летний кодер с небольшим стажем. Пишу полугодовую работу- Dos Test.
Подскажите, если не трудно, как сделать, чтобы форма выезжала с права(или откуда
угодно) экрана в центр? smile

Автор: korob2001 30.11.2004, 07:17

Код


Option Explicit
Private LastPosX As Single

Private Sub Form_Load()
        LastPosX = (ScaleWidth / 2) + (Form1.Width / 2)
        Form1.Left = -(Form1.Width)
        Form1.Top = (ScaleWidth / 2) + (Form1.Height / 2)
        tmrGo.Enabled = True
End Sub

Private Sub tmrGo_Timer()
        If Form1.Left < LastPosX Then
           Form1.Left = Form1.Left + 100
        Else
           tmrGo.Enabled = False
        End If
End Sub

Только в следующий раз не задавай таких вопросов. Потому как ответа можешь не получить.
Удачи.

Автор: cardinal 30.11.2004, 15:35

korob2001, почему? smile

Автор: korob2001 30.11.2004, 17:22

Цитата

Пишу полугодовую работу

Как правило, никто не хочет решать, чужие, полугодовые работы.

Автор: cardinal 30.11.2004, 20:35

Понятно

Автор: cardinal 30.11.2004, 21:00

Только вот подправить немного надо:

Код


Option Explicit

Private LastPosX As Single

Private Sub Form_Load()
       LastPosX = Screen.Width / 2 - Form1.Width / 2
       Form1.Left = -(Form1.Width)
       Form1.Top = Screen.Height / 2 - Form1.Height / 2
       tmrGo.Interval = 100
       tmrGo.Enabled = True
End Sub

Private Sub tmrGo_Timer()
       If Form1.Left < LastPosX Then
          Form1.Left = Form1.Left + 100
       Else
          tmrGo.Enabled = False
       End If
End Sub

Автор: korob2001 1.12.2004, 00:44

Я интервал установил в окне Properties, кстати тоже 100. ;))))))

Автор: cardinal 1.12.2004, 00:49

Цитата(korob2001 @ 30.11.2004, 23:44)

Я интервал установил в окне Properties, кстати тоже 100. ;))))))

А никому об это ничего не сказал smile

Но вообще-то это не единственное, что я изменил в коде...

Автор: korob2001 1.12.2004, 01:12

Цитата

Но вообще-то это не единственное, что я изменил в коде...

Не сомневаюсь.

Автор: cardinal 1.12.2004, 02:41