從線程添加圖片框到窗體

Question

我試圖在for循環中創建圖片框，然後將它們添加到我的主窗體中。我在另一個線程中創建圖片框來減少加載時間，但是我的應用程序不斷崩潰。

我將代碼更改了10次，實際版本看起來像這樣。

Private letters() As PictureBox 

Private Sub loadLetters() 
    Dim j As Integer = 0 
    letters = New PictureBox() {} 
    For value As Integer = 0 To 7 
     letters(value).Image = ImageList1.Images(value + 8) 
     letters(value).Name = "picLetter_" & value + 8 
     letters(value).Location = New Point(0, j) 
     letters(value).Size = New Size(100, 100) 
     letters(value).Visible = True 
     j = j + 100 

     Me.BeginInvoke(New MethodInvoker(AddressOf loadLetters)) 
    Next 
End Sub 

我的另一個嘗試把我帶到這個：

If Me.InvokeRequired Then 
    Dim d As New updateMain(AddressOf loadLetters) 
    Me.Invoke(d, New Object() {letters(value)}) 
Else 
    Me.Controls.Add(letters(value)) 
End If 

Private Delegate Sub updateMain(ByVal picture As PictureBox) 

如何從另一個線程添加圖片框的主要形式？

Answer 1

您一直在調用相同的方法，這意味着每次調用時都嘗試創建八個附加圖片框。持續不斷的調用最終會導致StackOverflow異常，因爲您試圖創建無限量的圖片框。

你必須創建一個單獨的方法來添加圖片框只有，讓你的主要方法創建它們，並單獨的方法將它們添加到窗體。現在

Private Delegate Sub AddPictureBoxDelegate(ByRef PBox As PictureBox) 
'ByRef is better to use when not creating a copy of the PictureBox (and when you're not going to modify it as a separate one). 

Private Sub AddPictureBox(ByRef PBox As PictureBox) 
    If Me.InvokeRequired = True Then 'Invocation is required. 
     'Call the method again, using invocation. 
     Me.Invoke(New AddPictureBoxDelegate(AddressOf AddPictureBox), PBox) 
    Else 'No (further) invocation required. 
     Me.Controls.Add(PBox) 
    End If 
End Sub 

，在你的線程您只要致電：

AddPictureBox(letters(value)) 

和預期的一樣正常工作了。