Question

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Label1.Text = Val(Label1.Text) + 1
End Sub

按下按钮时，标签上的值增加1。如何让它在值之后放置文本？示例：值为“0”，按下按钮时，标签变为“1 post”，再按“2个帖子”，再次“3个帖子”......

Answer 1

您的代码在标签控件中增加和显示值非常正确。 Val（）函数始终返回字母数字字符串的第一个出现的数字部分。如果 Label1 包含“1 Post”，则 Val（Label1.Text）始终返回 1 。代码应该是

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    

    If (Val(Label1.Text) + 1)=1 then
        Label1.Text = (Val(Label1.Text) + 1) & " Post"
    ElseIf
        Label1.Text = (Val(Label1.Text) + 1) & " Posts"
    Endif
End Sub

希望它可以帮到你。

Answer 2

我猜你的设置标签的文字= 0，表格加载

创建如下的函数

Private Sub label_posts(ByVal lbl As Label)
        With lbl 
            If Val(.Text) = 0 Then
                .Text = Val(.Text) + 1 & " Post"
            Else
                .Text = Val(.Text) + 1 & " Posts"
            End If
        End With
 End Sub

并通过传递标签的名称，在按钮的点击事件中调用此label_posts。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    label_posts(Label1)
End Sub

Answer 3

我猜你的设置标签的text = 0表格加载

无需指定label的text = 0.如果标签的Text Property的值为Blank或者没有Numerical part，则Val（）函数始终返回0.因此无需赋值0.

Answer 4

Dim x as Integer

x += 1;

Label1.Text = x.ToString();

使用按钮增加数字并添加文本vb2010

4 个答案: