Timer Replacement

[kokopeli]

I was working on something for Chopper1's post, but it was pretty much junk. My question is, how can I do this without a timer control. I couldn't figure how to code the GetTickCount and make it work. Seemed to be going into an infinite loop, and not even showing the form.

Private Sub Timer1_Timer()  ' interval set to 10

Dim i As Integer
For i = 0 To Shape1.Count - 1      ' I have four squares,
If Shape1(i).Left > 50 Then        ' each a little bigger
Shape1(i).Top = Shape1(i).Top - 20 ' than the one inside
Shape1(i).Height = Shape1(i).Height + 40
Shape1(i).Width = Shape1(i).Width + 40
Shape1(i).Left = Shape1(i).Left - 20
Else
Shape1(i).Left = 1800   'innermost square is of these dimensions
Shape1(i).Top = 1680
Shape1(i).Height = 1935
Shape1(i).Width = 2175
End If
Next i

End Sub

If you can answer this, could you show me with this code.

[kedaman]

If you put the code in form_load event (did you?) then it won't load up the form until it exits the event. Try putting it into Form_Activate

[kokopeli]

Would it be something like this
[CODE]
Private Sub Form1_Activate()
Dim i As Integer
Dim Start As Long


Do While Start < GetTickCount + 10 ' whatever
Start = GetTickCount
For i = 0 To Shape1.Count - 1 ' I have four squares,
If Shape1(i).Left > 50 Then ' each a little bigger
Shape1(i).Top = Shape1(i).Top - 20 ' than the one inside
Shape1(i).Height = Shape1(i).Height + 40
Shape1(i).Width = Shape1(i).Width + 40
Shape1(i).Left = Shape1(i).Left - 20
Else
Shape1(i).Left = 1800 'innermost square is of these dimensions
Shape1(i).Top = 1680
Shape1(i).Height = 1935
Shape1(i).Width = 2175
End If
Next i
Loop
End Sub

[Balder]

To make your code more compact use "With, end With" like this (also runs faster):

Private Sub Form1_Activate()
Dim i As Integer
Dim Start As Long

Do While Start < GetTickCount + 10 
Start = GetTickCount
For i = 0 To Shape1.Count - 1      
   With Shape1(i) '<--
   If .Left > 50 Then        
      .Top = .Top - 20 
      .Height = .Height + 40
      .Width = .Width + 40
      .Left = .Left - 20
   Else
      .Left = 1800   
      .Top = 1680
      .Height = 1935
      .Width = 2175
   End If
   End With '<--
Next i
Loop
End Sub

I hope it work to nest it like this, sorry I can´t help you out with API GetTickCount

[kedaman]

Start = GetTickCount'place this outside your loop or it won't end until something slows down the system :eek:
Do While Start < GetTickCount + 10 
For i = 0 To Shape1.Count - 1      
   With Shape1(i)
   If .Left > 50 Then        
      .Top = .Top - 20 
      .Height = .Height + 40
      .Width = .Width + 40
      .Left = .Left - 20
   Else
      .Left = 1800   
      .Top = 1680
      .Height = 1935
      .Width = 2175
   End If
   End With
Next i
doevents 'threading
Loop while forms.count 'exits when your app closes