在Visual Basic 2010中如何将Form1的标签计算结果传递到Form2

以下是3种可直接落地的实现方式，你可以根据项目复杂度选择：

1. 公共属性传值（最推荐，耦合度低，支持实时同步） #

这种方式既可以实现单次传值，也可以在Form1计算结果更新时，同步修改已打开的Form2的显示内容

• 第一步：在Form2代码中定义接收值的公共属性，并在加载时绑定到显示控件

' Form2 代码片段
' 按你实际计算结果的类型调整，字符串、整数都可以
Public Property ReceiptResult As String

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 假设Form2上显示收据金额的标签名为lblReceiptAmount
    Me.lblReceiptAmount.Text = Me.ReceiptResult
End Sub

• 第二步：在Form1中触发打开Form2的逻辑中赋值

' Form1 代码片段（比如点击「生成收据」按钮的事件里）
Dim frm2 As New Form2()
' 假设Form1上存放计算结果的标签名为lblCalcResult
frm2.ReceiptResult = Me.lblCalcResult.Text
frm2.Show()

• 如需实时同步（Form1结果更新时，已打开的Form2同步刷新），在Form1的计算结果更新逻辑中添加如下代码：

' Form1 计算逻辑执行完成后添加
If Application.OpenForms.OfType(Of Form2).Count() > 0 Then
    Dim openForm2 = Application.OpenForms.OfType(Of Form2).First()
    openForm2.ReceiptResult = Me.lblCalcResult.Text
    openForm2.lblReceiptAmount.Text = openForm2.ReceiptResult
End If

2. 构造函数传值（适合仅需打开Form2时传一次值的场景） #

• 第一步：给Form2添加带参数的构造函数

' Form2 代码片段
Public Sub New(calcResult As String)
    ' 这行系统默认的初始化代码必须保留
    InitializeComponent()
    Me.lblReceiptAmount.Text = calcResult
End Sub

• 第二步：Form1打开Form2时直接传入值

' Form1 代码片段
Dim frm2 As New Form2(Me.lblCalcResult.Text)
frm2.Show()

3. 公共静态变量传值（实现最简单，适合小型工具项目） #

耦合度较高，大型项目不推荐使用

• 第一步：在Form1中定义公共静态变量，计算结果更新时同步赋值给变量

' Form1 代码片段
Public Shared GlobalCalcResult As String

' 每次计算完成更新标签时，同步给静态变量赋值
Me.lblCalcResult.Text = "你的计算结果"
GlobalCalcResult = Me.lblCalcResult.Text

• 第二步：Form2中直接调用该变量即可

' Form2 任意需要用到计算结果的位置
Me.lblReceiptAmount.Text = Form1.GlobalCalcResult

内容的提问来源于stack exchange，提问作者Angelo