Общая сумма всегда равна нулю

Question

Мой интерфейс таков. (Цифры его цены)

Внутри рамы все кнопки радио «Футболка» имеет следующий код:

Dim num1 As Integer 

    num1 = [Price] 

В каркасных штаны я положил код:

Dim num2 As Integer 

    num2 = [Price] 

Так что это процесс ..

Ex. Когда вы нажимаете маленькую рамку Tshirt и большой в Pants Frame, они будут добавлять и будут умножаться на количество (текстовое поле).

Так что я положил этот код в общей сумме (CommandButton):

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

Но каждый раз, когда я запускаю программу, я всегда получаю ноль (0) на общую сумму Ярлык (Метка3) ..

Не знаю, в чем проблема с моими кодами.

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, в
использование 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