16,555
社区成员
发帖
与我相关
我的任务
分享
Public Class Class1
Delegate Sub AddListboxItem(ByVal mystring As String)
Public Sub AddListboxItemMethod(ByVal mystring As String)
Form2.ListBox1.Items.Add(mystring)
End Sub
Public Sub Method()
Dim mystring As String = "1"
Dim myDeletate As New AddListboxItem(AddressOf AddListboxItemMethod)
myDeletate.Invoke(mystring)
End Sub
End Class
Imports System.Threading
Public Class Form1
Dim cl As New Class1
Dim th As New Thread(AddressOf cl.Method)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
th.Start()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form2.Show()
End Sub
End Class