Progressbar restart

[cmartins]

Hi ,


I created a little app to explain what I would like to do. I have 2 forms (main form and other module with secundary form). in the first one I start the second form with progressbar running timer to show the progress... works fine, but when I close the secondary form and open it again, the progressbar not work.


How can I solve it?

thank you

 

[corwin42]

You shouldn't reinitialize your progress bar every time you show the form.

Sub Globals
 'Declare the global variables here.
 cont = 0
 pBarInit = False
End Sub

Public Sub Show
 frmPbar.Show
 If pBarInit = False Then
  pbar.New1("frmPbar",10,20,150,25)
  pbar.Value = 0
  pbarInit = True
 End If

 Timer1.Interval = 1000
 Timer1.Enabled = True
End Sub

 

[cmartins]

is working now.



thank you for your help!