Private Sub Panel1_Click(sender As Object, e As EventArgs) Handles Panel1.Click MessageBox.Show("Short Strings will be created, click to continue, this process. its 1 sql event which takes about 4 minutes, so wait for the next message as progress bar wont update with this procedure call. after clicking ok") Me.Timer1.Enabled = True Me.Timer1.Interval = 1 * 1000 Timer1.Start() Call CreateAllStrs() Timer1.Stop() MessageBox.Show("Short Strings Created") Me.Timer1.Enabled = False End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick If ProgressBar2.Value <= 10000 Then ProgressBar2.Value = ProgressBar2.Value + 1 ProgressBar2.PerformStep() Else ProgressBar2.Value = 1 End If End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.