3

私のインターフェースはこれです。(数字は価格です)

ここに画像の説明を入力

フレーム「T シャツ」内のすべてのラジオ ボタンには、次のコードがあります。

Dim num1 As Integer 

    num1 = [Price]

フレームに パンツ 私はコードを入れました:

Dim num2 As Integer

    num2 = [Price]

だから、これはプロセスです..

元。Tシャツフレームの小さいものとパンツフレームの大きいものをクリックすると、それらが追加され、数量(テキストボックス)で乗算されます。

だから私はこのコードを合計金額(コマンドボタン)に入れました:

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

しかし、プログラムを実行するたびに、合計金額ラベル (Label3) に常にゼロ (0) が表示されます。

コードの何が問題なのかわかりません。

4

2 に答える 2

1

私は実際には RadioButton の Checked イベントのファンではありません。
代わりに 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
于 2013-07-11T17:54:59.993 に答える