for next loop not working

[Tim]

Hi,

could someone explain why the following simple bit of code does not work?

Private Sub Image1_Click()
For x = 10 To 1
Image1.Width = x
Next x
End Sub

Note:
- the image DOES load properly on form initialisation (just doesn't change
in width when clicked)
- the following DOES work: -

Private Sub Image1_Click()
x = 32 ' arbitrary figure
Image1.Width = x
End Sub

but obviously is a one off action

grateful fro any answers,

tim

 

[Ron Rosenfeld]

could someone explain why the following simple bit of code does not work?

Private Sub Image1_Click()
For x = 10 To 1
Image1.Width = x
Next x
End Sub

Try (2nd line)

For x = 10 to 1 Step -1


--ron

 

[Tim]

Try (2nd line)

For x = 10 to 1 Step -1

thanks Ron, it works, but i thought if i did it as a loop, it would have a
smooth transition, it just seems to go from all to nothing in one go (maybe
i need a line to update the form?)

tim

 

[Ron Rosenfeld]

thanks Ron, it works, but i thought if i did it as a loop, it would have a
smooth transition, it just seems to go from all to nothing in one go (maybe
i need a line to update the form?)

I haven't worked with this sort of stuff, but maybe you just need to slow down
your loop with a delay. Either a nested loop or use the Timer function.


--ron

 

[Tom Ogilvy]

Where is the image control? On a userform or a worksheet

How slow do you want the transition?