Vb.net 如何将整数值传递给其他形式？

可以使用标签吗？我计划展示一个评分系统，就像每个正确答案一样，分数将增加10分。

例如 向项目中添加两个表单 在Form2中定义Label1控件 以表格1

Public Class Form1
    Private intScore As Integer = 0
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Form2.Show()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form2.Label1.Text = intScore.ToString
    End Sub
End Class

---

在Form2中添加一个公共共享整数

 Public Shared score As Integer = 0

 Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

 End Sub

然后在形式1中，通过添加来增加它

 Form2.score += 50

---

在窗体中使用类的实例。表单可以调用类的方法。该类可以向窗体引发事件。不要直接从课堂到课堂。或者从一种形式到另一种形式

带有文本框1的表格1：

Public Class Form1

    Private myClass1 As Class1
    Private myForm2 As Form2

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        myClass1 = New Class1()
        myForm2 = New Form2(myClass1)
        myForm2.Show()

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        myClass1.SetText(TextBox1.Text)
    End Sub

End Class

带有标签1的表格2：

Public Class Form2

    Private WithEvents myClass1 As Class1

    Public Sub New(instance As Class1)
        InitializeComponent()
        myClass1 = instance
    End Sub

    Private Sub myClass1TextSet(value As String) Handles myClass1.TextSet
        Me.Label1.Text = value
    End Sub

End Class

类别1：

Public Class Class1

    Private text As String = ""

    Public Event TextSet(value As String)

    Public Sub SetText(value As String)
        Me.text = value
        RaiseEvent TextSet(value)
    End Sub

End Class

Form2.Label1将在您键入Form1.TextBox1时更新。您可以根据需要对其进行更改以适应您的应用程序，但请尽量保持这种结构

表单>>实例>>类

类>>事件>>表单

---

实例化另一个表单的表单是为了简化本例。较大规模的项目可能会有一个表单加载器工厂负责制作表单。

看看表单的构造器……请阅读并接受，因为这是一个很糟糕的问题……然后呢？OP说他想做一个评分系统，现在他有一个分数，两个表格都可以访问，这样他就可以在第二个表格中显示它，或者做任何事情。@Zaggler在我发布这个答案时，没有任何链接。相关问题（包括指定为重复的问题）不适用，因为

每个正确答案的分数将增加10分

可能无法很好地与一次性构造函数解决方案配合使用。你到底想要哪一个？