VB.NET窗体间变量传递异常求助：OkButton_Click中targetStack值为0

1. 子窗体实例不匹配 #

• 核心问题：主窗体调用SetWhichStack的子窗体实例，和实际显示的不是同一个对象。
  错误代码示例：

  Private Sub Stack1_Click(sender As Object, e As EventArgs) Handles Stack1.Click
      ' 创建临时实例并赋值，但显示的是另一个实例
      Dim tempForm As New StackOffsetAdjust1()
      tempForm.SetWhichStack(1)
      StackOffsetAdjust1.Show() ' 此处调用的是默认实例或已存在的其他实例
  End Sub
  

  修正方案：确保赋值与显示的是同一个实例：

  Private Sub Stack1_Click(sender As Object, e As EventArgs) Handles Stack1.Click
      Dim adjustForm As New StackOffsetAdjust1()
      adjustForm.SetWhichStack(1)
      adjustForm.ShowDialog() ' 或Show()，根据交互需求选择
  End Sub
  

2. 变量作用域定义错误 #

• 核心问题：targetStack被定义为方法内的局部变量，而非子窗体的类级成员，导致其他方法无法访问已设置的值。
  错误代码示例：

  Public Class StackOffsetAdjust1
      Public Sub SetWhichStack(stackNum As Integer)
          ' 局部变量，方法执行后即被销毁
          Dim targetStack As Integer = stackNum
          MsgBox(targetStack)
      End Sub
  
      Private Sub OkButton_Click(...) Handles OkButton.Click
          MsgBox(targetStack) ' 此处访问的不是之前设置的变量
      End Sub
  End Class
  

  修正方案：将targetStack定义为类级成员变量：

  Public Class StackOffsetAdjust1
      ' 类级成员变量，整个窗体生命周期内有效
      Private targetStack As Integer
  
      Public Sub SetWhichStack(stackNum As Integer)
          targetStack = stackNum
          MsgBox(targetStack)
      End Sub
  
      Private Sub OkButton_Click(...) Handles OkButton.Click
          MsgBox(targetStack) ' 正确获取之前设置的值
          ' 后续Excel操作逻辑
      End Sub
  End Class
  

3. 子窗体加载时重置变量 #

• 核心问题：子窗体的Load或其他初始化事件中，存在重置targetStack为0的代码，覆盖了之前设置的值。
  错误代码示例：

  Private Sub StackOffsetAdjust1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      targetStack = 0 ' 此处重置会覆盖SetWhichStack设置的值
  End Sub
  

  修正方案：移除Load事件中不必要的变量重置，或者调整赋值时机（确保SetWhichStack在Load事件之后执行，但通常创建实例后先赋值再显示，Load会在显示前触发，所以优先检查是否有重置代码）

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