У меня глюк с Form

[Anest]

В своей программе я использую следующий код:

Option Explicit
Dim n As Integer
Private Sub Command1_Click()
For n = 1 To 1500
Form1.Width = Width + 1
Form1.Height = Height + 1
Next n
For n = 1 To 1500
Form1.Width = Width - 1
Form1.Height = Height - 1
Next n
End Sub

Незадача заключается в том, что в процессе выполнения кода на месте растяжения-сжатия формы видна не форма, а просто синий цвет . Если кто знает, как убрать этот глюк, прошу откликнуться. Спасибо.

[Vladimir!]

Поставь на форму 2 таймера, задай значение интервала каждому = 1
и enabled = false

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

Dim n As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
n = Form1.Width
End Sub

Private Sub Timer1_Timer()
Form1.Width = Width + 100   'если надо быстрее, увеличивай это число, главное, чтоб
Form1.Height = Height + 100 'оно было кратно 1500
If Form1.Width = n + 1500 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
Form1.Width = Width - 100
Form1.Height = Height - 100
If Form1.Width = n Then
Timer2.Enabled = False
End If
End Sub

[Twister]

Если так и хочется делать это циклами, то чтоб избежать появления "синего цвета" достаточно включить DoEvents в каждый цикл:

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

For n = 1 To 1500
    Width = Width + 1
    Height = Height + 1
    DoEvents
Next
For n = 1 To 1500
    Width = Width - 1
    Height = Height - 1
    DoEvents
Next

[CORBA]

DoEvents останавливает выполнение программы на время отсылки системных сообщений, которые как раз генерятся при попытке поменять размер окна, а так как ты своим циклом забираешь процессорное время, то они скапливаются в очередь и отрабатывают с опазданием, что и вызывает тормоза. Вообщем используй DoEvents во всех длительных циклах.