Question

这是我为我的项目制作的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

程序本身没有任何错误或警告，但点击它时没有任何响应。

Answer 1

此代码永远不会有效。例如If rad1 = radS2.Checked Then - rad1是一个值为“0”的字符串。我假设radS2.Checked是单选按钮属性，即boolean。您将字符串值“0”与布尔值进行比较，其值为True或False。因此，If中的代码将永远不会执行

第二个问题，例如

siomai = Form5.Label3.Text

如果要在标签上显示文字，则需要

Form5.Label3.Text = siomai

第三个问题 - 整个逻辑很疯狂。应该是这样的：

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

单击单选按钮时，将其连接到表单以具有递增标签

1 个答案: