16,549
社区成员
发帖
与我相关
我的任务
分享
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim arrays(50) As Integer
Dim r As New Random
Dim i As Integer
For i = 1 To 10
arrays(i) = r.Next(50, 100)
Next
Dim thread As New Threading.Thread(AddressOf Me.DisplayItem)
thread.Start(arrays)
End Sub
Public Sub DisplayItem(ByVal obj As Object)
Dim arr As Integer() = CType(obj, Integer())
For Each i As Integer In arr
If Me.IsDisposed Then
Return
End If
Me.Invoke(Sub(txt As String) Me.Label1.Text = txt, i.ToString())
Threading.Thread.Sleep(1000)
Next
End Sub