
Form1.vb
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim obj As Class1 = New Class1
End Sub
End Class
Class1.vb
Public Class Class1
Public Sub New()
writeMsg("class1 start")
End Sub
End Class
Module1.vb
Module Module1
Public Sub writeMsg(ByVal msg As String)
Form1.TextBox1.Text = Form1.TextBox1.Text & msg & vbCrLf
End Sub
End Module
问题:
如何修改 以下语句?
Form1.TextBox1.Text = Form1.TextBox1.Text & msg & vbCrLf
------解决思路----------------------
Application.OpenForms("Form1").Invoke(New Action(Sub()
CType(Application.OpenForms("Form1"), Form1).TextBox1.Text += msg & vbCrLf
End Sub))