vb.net - 总金额始终为零

Question

我的界面是这样的。（数字是它的价格）

在“T-shirt”框架内，所有单选按钮都有以下代码：

Dim num1 As Integer 

    num1 = [Price]

在框架裤子中，我输入了代码：

Dim num2 As Integer

    num2 = [Price]

所以这个过程..

前任。当您单击 Tshirt Frame 中的小号和 Pants Frame 中的大号时，它们将添加并在数量（文本框）上相乘。

所以我把这段代码放在总金额（命令按钮）中：

Label3.Caption = (num1 + num2) * Val(TextBox1.Text)

但是每次我运行程序时，总金额标签（Label3）上总是得到零（0）。

我不知道我的代码有什么问题。

Answer 1

按钮无法访问 num1 和 num2 变量。

Public Class Form1
Dim num1, num2 as double

Private Sub RadioButton1_Checked
num1 = 100
End Sub

Private Sub RadioButtonn2_Checked
num1 = 150
End Sub

Private Sub RadioButton3_Checked
num2 = 100
End Sub

Private Sub RadioButton4_Checked
num2 = 150
End Sub

然后按原样做按钮。

Answer 2

我不是 RadioButton 的 Checked Event 的粉丝，请
改用 CheckedChanged：

'T-Shirt
Private Sub RadioButton1_CheckedChanged
num1 = 100
End Sub

Private Sub RadioButtonn2_CheckedChanged
num1 = 150
End Sub

'Pants
Private Sub RadioButton3_CheckedChanged
num2 = 100
End Sub

Private Sub RadioButton4_CheckedChanged
num2 = 150
End Sub