Hallo Comunity.
habe Probleme einen ProgressBar der zur Laufzeit erstellt worden ist anzusprechen.
Hier mein Szenario:
Spoiler anzeigen
[vb] Dim pgb As New ProgressBar
pgb.Tag = FLP.Controls.Count
pgb.Dock = DockStyle.Bottom
pgb.Name = pgb.Tag.ToString
pgb.Size = New Size(70, 20)
pgb.BackColor = Color.DarkBlue
pgb.ForeColor = Color.Red
pgb.Style = ProgressBarStyle.Continuous
pnl.Controls.Add(pgb)
FLP.Controls.Add(pnl)
pgb.Minimum = 0
pgb.Maximun = 100
pgb.Value = 25
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim pgb As New ProgressBar
If Timer1.Enabled Then
pgb.Value = 0
End If
pgb.Value = pgb.Value + 25
If pgb.Value = pgb.Maximum Then
Timer2.Interval = 1000
Timer2.Start()
Timer1.Stop()
End If
Call PlaySequence()
'Call Play1()
End Sub
[vb]
Es ist einfach nichts zu sehen.
Und jetzt auf die Frage: warum zur Laufzeit.
In ein FLP sind Panele, jeder Panel hat ein pgb, es wird eine Sequenz abgespielt und der pgb soll mitlaufen.
Bin für jede Hilfe dankbar.
LG
toto
habe Probleme einen ProgressBar der zur Laufzeit erstellt worden ist anzusprechen.
Hier mein Szenario:
[vb] Dim pgb As New ProgressBar
pgb.Tag = FLP.Controls.Count
pgb.Dock = DockStyle.Bottom
pgb.Name = pgb.Tag.ToString
pgb.Size = New Size(70, 20)
pgb.BackColor = Color.DarkBlue
pgb.ForeColor = Color.Red
pgb.Style = ProgressBarStyle.Continuous
pnl.Controls.Add(pgb)
FLP.Controls.Add(pnl)
pgb.Minimum = 0
pgb.Maximun = 100
pgb.Value = 25
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim pgb As New ProgressBar
If Timer1.Enabled Then
pgb.Value = 0
End If
pgb.Value = pgb.Value + 25
If pgb.Value = pgb.Maximum Then
Timer2.Interval = 1000
Timer2.Start()
Timer1.Stop()
End If
Call PlaySequence()
'Call Play1()
End Sub
[vb]
Es ist einfach nichts zu sehen.
Und jetzt auf die Frage: warum zur Laufzeit.
In ein FLP sind Panele, jeder Panel hat ein pgb, es wird eine Sequenz abgespielt und der pgb soll mitlaufen.
Bin für jede Hilfe dankbar.
LG
toto
lg toto