Guten Morgen allerseitz,
ich habe den Code hier von Microsoft Kopiert um mich mal mit Threads zu befassen, aber ich bekomme eine InvalidOperationException
Spoiler anzeigen
ich habe den Code hier von Microsoft Kopiert um mich mal mit Threads zu befassen, aber ich bekomme eine InvalidOperationException
VB.NET-Quellcode
- Imports System.Threading
- Public Class frmThreads
- '*** Globale Variable ***
- Private trd As Thread
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- MessageBox.Show("Main Thread")
- End Sub
- '*** Methode ***
- Private Sub ThreadTask()
- Dim stp As Integer
- Dim newval As Integer
- Dim rnd As New Random()
- Do
- stp = ProgressBar1.Step * rnd.Next(-1, 2)
- newval = ProgressBar1.Value + stp
- If newval > ProgressBar1.Maximum Then
- newval = ProgressBar1.Maximum
- ElseIf newval < ProgressBar1.Minimum Then
- newval = ProgressBar1.Minimum
- End If
- ProgressBar1.Value = newval
- Thread.Sleep(100)
- Loop
- End Sub
- Private Sub frmThreads_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- trd = New Thread(AddressOf ThreadTask)
- trd.IsBackground = True
- trd.Start()
- End Sub
- End Class