Hi and Happy New Year. I want to pass a Label() array from form1_load sub to Timer_tick subs
I googled and find ByVal ParamArray labels() As Object method but it doesn't seem to work.Any suggestions? what am i doing wrong?
this is an example from my code:
I googled and find ByVal ParamArray labels() As Object method but it doesn't seem to work.Any suggestions? what am i doing wrong?
this is an example from my code:
Code:
Public Class Form1
Dim i,s,b
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim labels() As Label = New Label() {Label1, Label2, Label3, Label4, Label5, Label6}
Dim tb() As Textbox = New Textbox() {Textbox1, Textbox2, Textbox3, Textbox4, Textbox5, Textbox6}
Dim timers as Timer = New Timer() {Timer1, Timer2, Timer3, Timer4, Timer5, Timer6}
do until i = UBound(labels())
lables(i).text = textboxes(i).text
timers(i).Interval = textboxes(i).text
i = i + 1
loop
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs, ByVal ParamArray labels() As Object) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = 100 Then
Timer1.Stop()
b = 0
s = 0
Do Until b = i
labels(s).Text = labels(s + 1).Text
labels(i).text=" "
s = s + 4
b = b + 1
Loop
ProgressBar1.Value = 0
Timer2.Start()
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs, ByVal ParamArray labels() As Object) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = 100 Then
Timer2.Stop()
b = 0
s = 0
Do Until b = i-1
labels(s).Text = labels(s + 1).Text
labels(i-1).text=" "
s = s + 4
b = b + 1
Loop
ProgressBar1.Value = 0
Timer3.Start()
End If
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs, ByVal ParamArray labels() As Object) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = 100 Then
Timer3.Stop()
b = 0
s = 0
Do Until b = i-2
labels(s).Text = labels(s + 1).Text
labels(i-2).text=" "
s = s + 4
b = b + 1
Loop
ProgressBar1.Value = 0
Timer4.Start()
End If
End Sub
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs, ByVal ParamArray labels() As Object) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = 100 Then
Timer4.Stop()
b = 0
s = 0
Do Until b = i-3
labels(s).Text = labels(s + 1).Text
labels(i-3).text=" "
s = s + 4
b = b + 1
Loop
ProgressBar1.Value = 0
Timer5.Start()
End If
End Sub
Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs, ByVal ParamArray labels() As Object) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = 100 Then
Timer5.Stop()
b = 0
s = 0
Do Until b = i-4
labels(s).Text = labels(s + 1).Text
labels(i-4).text=" "
s = s + 4
b = b + 1
Loop
ProgressBar1.Value = 0
Timer6.Start()
End If
End Sub
Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs, ByVal ParamArray labels() As Object) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = 100 Then
Timer6.Stop()
b = 0
s = 0
Do Until b = i-5
labels(s).Text = labels(s + 1).Text
labels(i-5).text=" "
s = s + 4
b = b + 1
Loop
ProgressBar1.Value = 0
Timer7.Start()
End If
End Sub
Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs, ByVal ParamArray labels() As Object) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = 100 Then
Timer7.Stop
End If
End Sub
End Class