在文本框 VB.Net 中格式化和计算数字

Question

大家好，下午好。 我希望有人能帮助我解决我的问题。

我有 3 个文本框，它们是：

GrandTotal.Text
VatAmount.Text
TotalAmount.Text

和 1 NumericUpdown1.Value

这是场景，随着系统的运行，有一个代码将触发并将一个数字值放入GrandTotal.Text，然后，用户将按下NumericUpdown1.Value。用户每按一次，就会触发一次计算，并在TotalAmount.Text和VatAmount.Text中显示一个数值

为了更具体，它就像一个包含增值税的计算表格。例如。

Grandtotal.text = 2000

如果我按下 NumericUpDown 到 + 1

VatAmount.Text = 20 和 TotalAmount.Text = 2020

我希望你明白我的意思

这是我的代码：

Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
VatAmount.Text = Val(Grandtotal.text) * NumericUpDown1.Value * 0.01
End Sub



Private Sub VatAmount_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VatAmount.TextChanged
        TotalAmount.Text = Val(VatAmount.Text) + Val(TextBox14.Text)
    End Sub

现在我已经完成解释了，这是我的问题。

如何在文本框上加上逗号并计算它？我的教授问他想在要输入的数字上加逗号吗？无需从字面上输入逗号。当值大于 3 位时自动放入

如何将逗号放在文本框中并使用 NumericUpdown 进行计算？

TYSM

Answer 1

这大致就是你需要的：

Private Sub GrandTotal_TextChanged(sender As Object, e As EventArgs) Handles GrandTotal.TextChanged
    Dim input As Double = Double.Parse(GrandTotal.Text)
    Dim inputStringWithCommas As String = input.ToString("N0", CultureInfo.InvariantCulture)
    GrandTotal.Text = inputStringWithCommas

    Dim vat As Double = Double.Parse(GrandTotal.Text) * NumericUpDown1.Value * 0.01
    VatAmount.Text = vat.ToString()
    TotalAmount.Text = (Double.Parse(GrandTotal.Text) + vat).ToString("N0", CultureInfo.InvariantCulture)
End Sub

它与您拥有的类似，因此您应该能够使其也适用于 NumericUpDown 事件。