0

これは、私のプロジェクト用に作成した VB.Net 2012 のプログラムです。あなたが私を助けてくれることを願っています。

このコードをインベントリ ボタンのコードで試しましたが、機能しません。

Dim rad1 As String = 0
Dim rad2 As String = 0
Dim rad3 As String = 0
Dim rad4 As String = 0
Dim rad5 As String = 0
Dim rad6 As String = 0
Dim rad7 As String = 0
Dim rad8 As String = 0

Dim siomairice As String
Dim friedsiomai As String
Dim siomai As String
Dim threesiomai As String
Dim coke As String
Dim sprite As String
Dim rc As String
Dim sevenup As String

If rad1 = radS2.Checked Then
    siomairice = rad1
    siomairice = siomairice + 1
    siomairice = Form5.Label1.Text
End If
If rad2 = radS2.Checked Then
    friedsiomai = rad2
    friedsiomai = friedsiomai + 1
    friedsiomai = Form5.Label2.Text
End If
If rad3 = radS3.Checked Then
    siomai = rad3
    siomai = siomai + 1
    siomai = Form5.Label3.Text
End If
If rad4 = radS4.Checked Then
    threesiomai = rad3
    threesiomai = threesiomai + 1
    threesiomai = Form5.Label4.Text
End If
If rad5 = radD1.Checked Then
    coke = rad5
    coke = coke + 1
    coke = Form5.Label5.Text
End If
If rad6 = radD2.Checked Then
    sprite = rad6
    sprite = sprite + 1
    sprite = Form5.Label6.Text
End If
If rad7 = radD3.Checked Then
    rc = rad7
    rc = rc + 1
    rc = Form5.Label7.Text
End If
If rad8 = radD4.Checked Then
    sevenup = rad8
    sevenup = sevenup + 1
    sevenup = Form5.Label8.Text
End If

プログラム自体にエラーや警告はありませんが、クリックしても反応がありません。

4

1 に答える 1

0

このコードは機能しません。たとえば、If rad1 = radS2.Checked Then--rad1は値が「0」の文字列です。radS2.Checked私はラジオボタンのプロパティであると仮定しますboolean。文字列値「0」とブール値を比較します。これはTrue、またはFalseその文字列に相当します。したがって、内部のコードIfは決して実行されません

たとえば、2 番目の問題

siomai = Form5.Label3.Text

ラベルにテキストを表示する場合は、

Form5.Label3.Text = siomai

3 番目の問題 - 全体のロジックがクレイジーです。次のようになります。

private _rad1Clicks as Integer

private sub rad1_Click (sender as object, e as eventArgs) Handles rad1.Click
    _rad1Clicks += 1
    myForm.myLabel.Text = _rad1Clicks.ToString()
End sub
于 2013-10-07T15:14:08.827 に答える