-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
計算割引フォーム上のプリントアウトが、メインフォーム内のラベルは変更されません。私はこれをどのようにして行うのですか?
"メインフォーム"にメソッドを作成して情報を受け入れ、データを渡します。 – Plutonix
'btnClose_Click'のコードはメインフォームのラベルを更新していません。これは、メインフォーム(表示されない)の新しいコピーを作成し、そのコピー内のラベルを更新し、それを閉じられるようにします。 – Blackwood
btnClose_Clickサブ要素に更新コードを追加しましたが、それでも何も表示されません.. main.lblDisRate.Text = GlobalVariables.disRate.ToString main.lblDisRate.Update() –