Sliding Form with timer

[HydraNL]

Hi,

I am trying to slide, make the form bigger, with a button. but each time it freezes. can someone help me out?

This is one of the codes I tried.

Option Explicit
   
   Private Sub Form_Load()
      Timer1.Enabled = False
   End Sub

   Private Sub Command1_Click()
      Timer1.Enabled = True
      Timer1.Interval = 50
   End Sub

   Private Sub Timer1_Timer()
   Dim i As Long

   i = 100

      Do Until Me.Height = 6000
         Me.Height = i + i
      Loop
   End Sub

Greetings J. Radjesh Klauke (Netherlands)

 

[johnwm]

Starting from i=100 and using Me.Height = i + i will never get to Me.Height = 6000 (i + i = 200)

Try:

   Private Sub Timer1_Timer()
         Me.Height = Me.Height + 100
      If Me.Height > 6000 Then
         Timer1.Enabled = False
      End If
   End Sub

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller

 

[HydraNL]

ah. stupid. stupid. stupid.
Me.Height = Me.Height + ..... etc.

Thanks for the info.
Little questionn left. It there a way to slow down the sliding less then 1? I mean:

Private Sub Timer1_Timer()
Timer1.Interval = 1 '<-- Is there a way to make the scrolling more slow?
Me.height = me.height +1

if Me.height > then 6000 then
timer1.enabeld = false
end if
end sub

 

[johnwm]

Increase the timer interval to slow down the movement

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller

 

[dglienna]

Timers don't fire at intervals quicker than 10 milliseconds, no matter what you set them to. Try 500 for half a second.

David