总金额始终为零

Question

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

框架内＆＃34; T恤＆＃34;所有的单选按钮都有这段代码：

Dim num1 As Integer 

    num1 = [Price]

在Pants框架中我输入了代码：

Dim num2 As Integer

    num2 = [Price]

所以这就是过程..

实施例。当你单击T恤框架中的小号和裤子框架中的大号时，它们将添加并将在数量（文本框）上相乘。

所以我把这个代码放在Total Amount（Commandbutton）中：

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