当前位置: 代码迷 >> VB Dotnet >> 对非共享成员的引述要求对象引用
  详细解决方案

对非共享成员的引述要求对象引用

热度:82   发布时间:2016-04-25 02:11:40.0
对非共享成员的引用要求对象引用。


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))
  相关解决方案