Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/perl/10.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 简单的东西-在标签中显示数字_Vb.net - Fatal编程技术网

Vb.net 简单的东西-在标签中显示数字

Vb.net 简单的东西-在标签中显示数字,vb.net,Vb.net,单击按钮时,我希望在标签中显示数字0.85,每次单击按钮时,我希望将其添加到现有值0.85上。 就像一个简单的计数器 我已经有了一些有用的东西,但它只适用于“整数”数字,如1、2、3……而不适用于0.85等(对不起,我的英语,我不知道如何表达) 这是密码 Private Sub jedan_Click(sender As Object, e As EventArgs) Handles jedan.Click Count1.Text = Val(Count1.Text) + 1 End

单击按钮时,我希望在标签中显示数字0.85,每次单击按钮时,我希望将其添加到现有值0.85上。 就像一个简单的计数器

我已经有了一些有用的东西,但它只适用于“整数”数字,如1、2、3……而不适用于0.85等(对不起,我的英语,我不知道如何表达)

这是密码

Private Sub jedan_Click(sender As Object, e As EventArgs) Handles jedan.Click
    Count1.Text = Val(Count1.Text) + 1

End Sub

Private Sub Release1_Click(sender As Object, e As EventArgs) Handles Release1.Click
    Count1.Text = Val(Count1.Text) - 1
    r1.Text = Val(r1.Text) + 1

End Sub
尝试:


CDec应该将其转换为十进制

不客气。既然它在工作,请您将其标记为解决方案好吗?我做了,再次感谢:)使用选项Strict on(应该是)此代码将不会编译。
Count1.Text = CDec(Count1.Text) + 1