以另一种形式更改标签的值

-1

我需要计算另一种形式的ListBox中所有值的折扣金额，然后在折扣表单和主窗体中打印该值。以另一种形式更改标签的值

折扣形式代码：

Private Sub btnCalculateVisit_Click(sender As Object, e As EventArgs) Handles btnCalculateVisit.Click 

    Dim dblVisits As Double = 0 

    If (IsNumeric(txtVisits.Text)) Then 

     If txtVisits.Text >= 0 And txtVisits.Text <= 3 Then 
      dblVisits = (dblVisitRates(0) * GlobalVariables.price) 

     ElseIf txtVisits.Text >= 4 And txtVisits.Text <= 8 Then 
      dblVisits = (dblVisitRates(1) * GlobalVariables.price) 

     ElseIf txtVisits.Text >= 9 And txtVisits.Text <= 13 Then 
      dblVisits = (dblVisitRates(2) * GlobalVariables.price) 

     ElseIf txtVisits.Text >= 14 And txtVisits.Text <= 1000000 Then 
      dblVisits = (dblVisitRates(3) * GlobalVariables.price) 

     End If 

    End If 

    lblDiscountAmount.Text = "$" + dblVisits.ToString 

End Sub 

Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click 

    Dim main As New MainForm() 

    main.lblDisRate.Text = GlobalVariables.dblType.ToString 

    Me.Close() 

End Sub

计算打印出的优惠形式，但不会改变在主窗体的标签。我该怎么做呢？

来源

2016-11-17 Siki Damjanovic

在“主窗体”上创建一个方法来接受信息，传递数据。 – Plutonix

'btnClose_Click'中的代码不会更新主窗体中的标签。它正在创建主窗体的新副本（从未显示），更新该副本中的标签，然后允许它关闭。 – Blackwood

我将更新代码添加到btnClose_Click子文件，它仍然没有显示任何内容.. main.lblDisRate.Text = GlobalVariables.disRate.ToString main.lblDisRate.Update（） –

尝试使用caption属性并对窗体进行刷新。

lblDiscountAmount.Caption = "$" + dblVisits.ToString 
Me.refresh

来源

2016-11-18 07:38:05 Twiebie

以另一种形式更改标签的值

回答

相关问题