Visual Studio 2019中手机套餐subtotal计算子过程调用无响应问题

这个无反馈问题是VB.NET跨模块访问窗体的经典实例错配问题，和你本身的计算逻辑写得对不对没有关系：

• 把计算代码直接写在btnCalculate_Click事件处理程序里时，代码默认访问的是用户当前正在交互、实际操作的窗体实例控件，能准确读取单选框选中状态，逻辑自然可以正常运行。
• 把同一段代码挪到独立模块的公共子过程PhoneSubTotal后，代码中通过frmIndividualPlan.控件名的方式跨模块访问窗体控件时，拿到的根本不是用户正在操作的那个窗体实例：
  如果你的程序不是把frmIndividualPlan直接设为启动窗体，而是通过手动New frmIndividualPlan()的方式创建实例并显示，那么模块代码里直接用类名引用的frmIndividualPlan，是VB.NET自动生成的、从未被用户交互过的空白默认实例。这个实例上的所有单选框默认都是未选中状态，三个If/ElseIf分支全部不触发，代码走完不会产生任何赋值操作，自然没有任何预期反馈；而且因为这个默认实例是框架自动生成的，代码可以正常编译运行，不会抛出任何错误提示，完全匹配你描述的现象。

• 调整独立模块中PhoneSubTotal的定义，不要硬编码写死要访问的窗体类型，增加窗体参数接收外部传入的实际操作实例：

  Public Sub PhoneSubTotal(targetForm As frmIndividualPlan)
      ' 把原代码中所有固定引用frmIndividualPlan的位置，替换成传入的targetForm
      If targetForm.radModel100.Checked = True Then
          decPhoneSubtotal = decMODEL_100
          targetForm.lblPhoneSubtotal.Text = decPhoneSubtotal.ToString("c")
      ElseIf targetForm.radModel110.Checked = True Then
          decPhoneSubtotal = decMODEL_110
          targetForm.lblPhoneSubtotal.Text = decPhoneSubtotal.ToString("c")
      ElseIf targetForm.radModel200.Checked = True Then
          decPhoneSubtotal = decMODEL_200
          targetForm.lblPhoneSubtotal.Text = decPhoneSubtotal.ToString("c")
      End If
  End Sub
  

• 调整窗体按钮的调用逻辑，把当前正在交互的窗体实例通过Me关键字传入子过程：

  Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
      PhoneSubTotal(Me)
  End Sub
  

• 同步核对两个容易踩的细节问题：
  • 确认计算用到的全局变量decPhoneSubtotal和常量decMODEL_100、decMODEL_110、decMODEL_200，是在独立模块中用Public修饰声明的全局作用域变量，不要和窗体类内部的私有变量重名，避免出现子过程操作了模块中的同名隔离变量、和窗体实际使用的变量完全不互通的问题。
  • 尽量不要依赖VB.NET的默认实例特性跨模块访问窗体控件，这种隐式实例的写法很容易出现错配，显式传参是最稳妥、最不容易出问题的实现方式。

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