Anonymní profil Pavel – Programujte.com

Ahoj,

věděl by někdo jak na multithreading pomocí funkce parallel.for/foreach? Stačí jednoduchý návod např. Jak pomocí této funkce dynamicky vytvořit 4 textboxy, něco do nich zapsat a vykreslit je v novém formuláři.

Zkoušel jsem všechno možné, ale vždy se mi vykreeslí pouze první. Message boxy se mi zobrazí všechny bez problémů. Nevím co dělám špatně. Tady je můj testovací kód.

Public Sub par()

        Dim n As Integer = 5
        System.Threading.Tasks.Parallel.For(1, n, Sub(i)

                                                      Dim newbox As New TextBox
                                                      newbox.Name = "box" + i.ToString()
                                                      newbox.Location = New Point(20, 20 + i * 30)
                                                      newbox.Text = i.ToString()
                                                      Form1.TabPage1.Controls.Add(newbox)
                                                      MsgBox(newbox.Name + " , cislo iterace " + i.ToString() + " , y souradnice " + CStr(20 + i * 30))

                                                  End Sub)

    End Sub

Díky všem za jakoukoliv radu.