[Problem] ProgresBar

[demon3737]

Umieściłem dwa progres bary i do nich Timer oraz dwa buttony Connect i Start klikam w jeden i się nie ładuje w czym problem

[Vipper]

Button włącza timer? W timerze ustawiasz na

 

ProgressBar1.Increment(Wartość)

jak dla dwóch to:

 

ProgressBar1.Increment(Wartość)
ProgressBar2.Increment(Wartość)

jak mają być osobno to umieść oddzielny timer

[demon3737]

Wszystko OK tylko co zrobić żeby ładowało się automatycznie a nie żebym musiał klikać cały czas

[Gość]

Wszystko OK tylko co zrobić żeby ładowało się automatycznie a nie żebym musiał klikać cały czas

Zrób wątek z pętlą i w niej powiększaj.

[demon3737]

Teraz kolejny problem mam kod

 

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

ProgressBar1.Increment(1)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Start()

End Sub

End Class

I chce dodać ten :

Dim key As Integer

key = Int(Rnd() * 11)

Select Case key

Case 0

TextBox1.Text = "GYR6-SD46-FSJ4-HF6R-FH45"

Case 1

TextBox1.Text = "SYR6-SD46-FGJ4-TF6R-FH49"

Case 2

TextBox1.Text = "ASFG-38F8-FGYU-DFY6-435Y"

Case 3

TextBox1.Text = "ER78-4GFH-45H7-34Y7-3GG6"

Case 4

TextBox1.Text = "YEF8-4GEH-4Y47-64Y7-75Y6"

Case 5

TextBox1.Text = "JFLS-S38F-FJDT-EKRI-DJ49"

Case 6

TextBox1.Text = "G47M2-XHX69-7P974-9B3CM-DK78"

Case 7

TextBox1.Text = "Q9GJG-YXRKF-J8R6P-XD368-HBQXD"

Case 8

TextBox1.Text = "JQ4T4-8VM63-6WFBK-KTT29-V8966"

Case 9

TextBox1.Text = "MYRHG-9VWRK-CP7CK-WPPQX-QMRCM"

Case 10

TextBox1.Text = "JQ4T4-8VM63-6WFBK-KTT29-V8966"

End Select

End Sub

End Class

 

Tak żeby automatycznie po załadowaniu progressbaru kod był w textbox tylko nie wiem jak próbowałem na różne sposoby ale progress bar sie ładuje a kod sie nie wyświetla

[Vipper]

Łap gotowca:

 

Public Class Form1


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Dim key As Integer
            Timer1.Stop()
            key = Int(Rnd() * 11)
            Select Case key
                Case 0
                    TextBox1.Text = "GYR6-SD46-FSJ4-HF6R-FH45"
                Case 1
                    TextBox1.Text = "SYR6-SD46-FGJ4-TF6R-FH49"
                Case 2
                    TextBox1.Text = "ASFG-38F8-FGYU-DFY6-435Y"
                Case 3
                    TextBox1.Text = "ER78-4GFH-45H7-34Y7-3GG6"
                Case 4
                    TextBox1.Text = "YEF8-4GEH-4Y47-64Y7-75Y6"
                Case 5
                    TextBox1.Text = "JFLS-S38F-FJDT-EKRI-DJ49"
                Case 6
                    TextBox1.Text = "G47M2-XHX69-7P974-9B3CM-DK78"
                Case 7
                    TextBox1.Text = "Q9GJG-YXRKF-J8R6P-XD368-HBQXD"
                Case 8
                    TextBox1.Text = "JQ4T4-8VM63-6WFBK-KTT29-V8966"
                Case 9
                    TextBox1.Text = "MYRHG-9VWRK-CP7CK-WPPQX-QMRCM"
                Case 10
                    TextBox1.Text = "JQ4T4-8VM63-6WFBK-KTT29-V8966"
            End Select
        End If
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
End Class
 

Wystarczyło zatrzymać timer'a po spełnionym warunku