新手学习,共同进步。
一、先上代码
Imports System.Threading.Thread
Public Delegate Sub testDelegate(ByVal text1 As String) '声明委托类
Public Class Form1
Private Sub AppendText(ByVal text1 As String) '声明一个方法,给文本框添加内容 ,该方法和委托要匹配(签名一致)
Me.TextBox1.Text = text1 'Me可以省略
End Sub
Private Sub changeName(ByVal text1 As String) '声明一个方法,给窗体换名字,该方法也和委托要匹配(签名一致)
Me.Text = text1
End Sub
Private Sub method1(ByVal text2 As String) '声明线程调用的方法一
'Me.Invoke(New testDelegate(AddressOf AppendText), 参数) ’ 参数被实参代替
Me.Invoke(New testDelegate(AddressOf AppendText), "跨线程在控件文本框中添加内容。")
End Sub
Private Sub method2(ByVal text2 As String)