Parallel For – Visual Basic – Fórum – 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.

#1 Pavel
VB neni muj obor ale troufám si hádat že přístup k Formu z více programových vláken (což ten ciklus zřejmně vytvoří) je nutno ošetřit jukni sem - https://msdn.microsoft.com/en-us/library/ms171728%28v=vs.110%29.aspx?cs-save-lang=1&cs-lang=csharp#code-snippet-2

Obzvlášť "vytváření", ale také "přidávání" nových prvků do formu není dobrý nápad, to by se mnělo dělat vždy z vlákna kde byl daný form vytvořen.

To že fungují MessageBoxy bude tím že jsou jsou vytvořeny a použity v tom sammém vlákně, Správně by se vlákno asi mnělo pro GUI připravit viz. ApartmentState.STA, ale zrovna v Paralel.For to asi není dobrý nápad. Každopádně doporučuju se tomu také vyhnout.