[RESOLVED] help

[VBlee]

im trying to make a swipe effect and i am having a few problems making this work...

im wanting it so that when i load it will load up from a 1x1 form and become 600 x 400 pixel form.

i have tried using a timer for this and i just can seem to get it fully right, any help would be great, maybe different ways of doing it/code/tutorials etc...

thanks
lee

[smUX]

I don't see why a timer wouldn't work...what have you tried exactly?

[VBlee]

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 20
End Sub
 
Private Sub Timer1_Timer()
 
Do Until Me.Width < 600 And Me.Height < 400
Me.Width = Me.Width + 30
Me.Height = Me.Height + 20
Loop
 
End Sub

i cant remmember exactly what i used before this.

[smUX]

Your problem is you are using the do/loop in the code...if you want the timer to control how fast the form resizes you don't want the loop in that section...this should work better :-)

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 20
End Sub
 
Private Sub Timer1_Timer()
 
Me.Width = Me.Width + 30
Me.Height = Me.Height + 20
if Me.Width => 600 or Me.Height => 400 then
Timer1.Enabled = False
Me.Width = 600
Me.Height = 400
End If
End Sub

[VBlee]

this doesnt work right, like the last code it makes the form 30 x 20 and it just stops?

[smUX]

This code works for me...using the TWIPs rather than pixels setting (15x the value for each pixel, usually)

Private Sub Form_Load()
Me.Width = 1
Me.Height = 1
Timer1.Enabled = True
Timer1.Interval = 10
End Sub
 
Private Sub Timer1_Timer()
 
Me.Width = Me.Width + 30
Me.Height = Me.Height + 20
If Me.Width >= 9000 Or Me.Height >= 6000 Then
Timer1.Enabled = False
Me.Width = 9000
Me.Height = 6000
End If
End Sub

[smUX]

If you want it to be a bit smoother and smarter, try this code:

Private Sub Form_Load()
Me.Width = 1
Me.Height = 1
wid = (9000 - Me.Width) / 100
hei = (6000 - Me.Height) / 100
Timer1.Enabled = True
Timer1.Interval = 10
End Sub
 
Private Sub Timer1_Timer()
 
Me.Width = Me.Width + wid
Me.Height = Me.Height + hei
If Me.Width >= 9000 Or Me.Height >= 6000 Then
Timer1.Enabled = False
Me.Width = 9000
Me.Height = 6000
End If
End Sub

The "/100" in the form load is the number of "frames" it will take to fully expand out...so with the settings I have in there, it'll take 1 second to display 100 frames of resize :-)

You need to also have a module with "Public wid, hei" in it

[VBlee]

thanks that works great


EDITED