[Pytanie] Thread

[Sunnyline2]

Może mi ktoś powiedzieć jak do tego: http://pastebin.com/Bfg4qZ2k

Próbowałem ale jak chce w threadzie zmienić stan progressbara to się nie da błąd invoke.

Czy może button przerobić na funkcje i dopiero podczepić do wątku głównego ?

[Gość]

Bo nie możesz modyfikować kontrolek spoza głównego wątku, natomiast jeżeli musisz to zrobić użyj delegate'ów, czyli

 Delegate Function __zmienStanPB(pb As ProgressBar, wartosc As Integer, maks As Integer)

Function _zmienStanPB(pb As ProgressBar, wartosc As Integer, m As Integer)

pb.Maximum = m

pb.Value = wartosc

End Function

Function ZmienStanPB(pb As ProgressBar, wartosc As Integer, maksimum As Integer)

If pb.InvokeRequired Then

pb.Invoke(New __zmienStanPB(AddressOf _zmienStanPB), pb, wartosc, maksimum)

Else

_zmienStanPB(pb, wartosc, maksimum)

End If

End Function

 

Delegate Function __zmienTekstLbl(lbl As Label, txt As String)

Function _zmienTekstLbl(lbl As Label, txt As String)

lbl.Text = txt

End Function

Function ZmienTekstLbl(lbl As Label, txt As String)

If lbl.InvokeRequired Then

lbl.Invoke(New __zmienTekstLbl(AddressOf _zmienTekstLbl), lbl, txt)

Else

_zmienTekstLbl(lbl, txt)

End If

End Function

[Sunnyline2]

Miszczu, żeby aplikacja się nie zaciela (tzn. "Brak odpowiedzi") to muszę co zrobić ?

Nie ma błędu w kodzie, tylko program pracuje i chciałbym, żeby ten progressbar się losowo poruszał, tylko ze własnie forma jest zacięta a Ja tego nie chce ;p.

[Gość]

Dim trd As New System.Threading.Thread(Sub()

'tutaj daj kod

End Sub)

trd.IsBackground = True

trd.Start()

[Sunnyline2]

Ja pierdole, ale to pojebane.

Jednak będzie bez threadów