这是我为我的项目制作的 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
它在程序本身中没有任何错误或警告,但是当我单击它时它没有任何响应。