Pytanie Problem z VB

Przy "Private sub" podkreśla na czerwono "b" i pisze "Statement cannot appear within a method body. End of method assumed"

Przy "Private sub" podkreśla na czerwono "b" i pisze "Statement cannot appear within a method body. End of method assumed"

No to kliknij 2x swój timer i wpisz ten kod:

ProgressBar1.Increment(1)        If ProgressBar1.Value = 100 Then            Timer1.Stop()            If RadioButton1.Checked Then                TextBox1.Text = "Radio1 checked"            Else                TextBox1.Text = "Radio2 checked"            End If        End If

No kicha juz jak wklejam ten pierwszy Twoj kod do przycisku "Generate" to podkresla na czerwono literkę "b" w "Private Sub" i sa "build errors" przez to

No kicha juz jak wklejam ten pierwszy Twoj kod do przycisku "Generate" to podkresla na czerwono literkę "b" w "Private Sub" i sa "build errors" przez to

Aa bo tam jakiś błąd z bbcode się wtargnął... już poprawiłem, powinno działać:

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

Ale gdzie ten kod dziabnac?

Ale gdzie ten kod dziabnac?

Przy buttonie generate

Niestety kicha, dalej podkresla...

Niestety kicha, dalej podkresla...

Wklej swój cały kod jaki dodałeś

"Timer":

ProgressBar1.Increment(1)

If ProgressBar1.Value = 100 Then

Timer1.Stop()

If RadioButton1.Checked Then

TextBox1.Text = "Radio1 checked"

Else

TextBox1.Text = "Radio2 checked"

End If

End If

"Generate":

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

Timer1.Start()

End Sub

"Reset":

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        ProgressBar1.Value = 0

    End Sub

"Exit":

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Close()

    End Sub

"Timer":

 

ProgressBar1.Increment(1)

If ProgressBar1.Value = 100 Then

Timer1.Stop()

If RadioButton1.Checked Then

TextBox1.Text = "Radio1 checked"

Else

TextBox1.Text = "Radio2 checked"

End If

 

End If

 

"Generate":

 

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

Timer1.Start()

End Sub

 

"Reset":

 

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        ProgressBar1.Value = 0

    End Sub

 

"Exit":

 

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Close()

    End Sub

 

W tym kodzie nie ma błędów, a sprawdź jeszcze czy jest to samo jak zmienisz:

ProgressBar1.Increment(1) 

na

ProgressBar1.Value += 1