Vb.net 单击按钮时增加标签值

我尝试过使用CInt、TryParse、Convert.Int32等进行转换，但没有任何效果。我只需要在单击按钮btnNote时显示候选人的总票数，并在单击btnResult时显示结果。我也尝试过在网上搜索，但仍然没有运气，所以我来到了这个网站，希望我能用VB.net中的程序解决我的问题

下面是我的代码：

Public Class Presidential_Election

    Private Sub btnVote_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVote.Click
        If cboCandidates.Text = "NOLI" Then
            lblNoli.Text = Integer.Parse(lblNoli.Text) + 1
        ElseIf cboCandidates.Text = "VAL" Then
            lblVal.Text = (CInt(lblVal.Text) + 1).ToString
        ElseIf cboCandidates.Text = "LESTER" Then
            lblLester.Text = CInt(lblLester.Text) + 1
        ElseIf cboCandidates.Text = "GWAPO" Then
            lblGwapo.Text = CInt(lblGwapo.Text) + 1
        End If
    End Sub

    Private Sub btnResult_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnResult.Click
        lblNoli.Visible = True
        lblVal.Visible = True
        lblLester.Visible = True
        lblGwapo.Visible = True
    End Sub
End Class

---

如果在开始时没有将标签文本设置为

0

，那么使用

CInt

肯定会抛出错误。您有两个选择：

• 将所有标签文本设置为0，并继续使用

  CInt

  ，或
• 使用Val（）

例如：

lblGwapo.Text = Val(lblGwapo.Text) + 1

---

我会为每个候选人设置一个整数计数器。将这些设置为0，然后在收到投票时递增。显示结果时，只需将标签文本绑定到其各自的计数器并使其可见。这样，您就不必一直引用label.text。

忽略在所有情况下都应该调用ToString方法这一事实，这会迫使您这样做，因为您应该严格地将

选项设置为
。那它不起作用呢？它会引发异常吗？当您尝试第二个异常时会发生什么：（CInt（lblVal.Text）+1）.ToString？顺便说一句，你把（）放在ToString之后了吗？标签文本属性的起始值是多少？我上面使用的所有函数都说“InvalidCastException Unhandled”@melanie，它仍然不起作用。但是我还没有尝试过put（），因为这是我第一次听到这个方法。我是vb的新手。net@Steven，我想开头应该是“”。我没有初始化它们，我只是直接使用它们。