VB.NET文本框整数转换格式错误求助：明明是数字却报错

问题根源 #

1. 无限递归事件触发：原代码中pricetxt_TextChanged事件内修改pricetxt.Text，会再次触发该事件形成无限循环，导致程序异常，同时干扰数值解析逻辑。
2. 未处理初始化空值：窗体加载时shirtnum.Text默认为空字符串，此时执行Integer.Parse必然抛出“输入字符串格式不正确”异常。
3. 逻辑倒置：价格计算依赖pricetxt文本变化触发，而非shirtnum数量变化触发，触发时机不合理。

修复方案及代码 #

1. 给数量输入框设置初始值 #

在窗体加载事件中给shirtnum设置初始值，避免空字符串：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    shirtnum.Text = "0"
End Sub

2. 优化数量输入限制（保留原有逻辑） #

Private Sub shirtnum_KeyPress(sender As Object, e As KeyPressEventArgs) Handles shirtnum.KeyPress
    ' 仅允许数字和退格键输入
    Dim Ch As Char = e.KeyChar
    If Not Char.IsDigit(Ch) AndAlso Asc(Ch) <> 8 Then
        e.Handled = True
    End If
End Sub

3. 调整加减按钮逻辑（使用安全解析） #

移除手动调用pricetxt_TextChanged的代码，修改shirtnum.Text后会自动触发其TextChanged事件：

Private Sub addshbtn_Click(sender As Object, e As EventArgs) Handles addshbtn.Click
    Dim quantity As Integer
    ' 安全解析，无法解析时默认值为0
    Integer.TryParse(shirtnum.Text, quantity)
    quantity += 1
    shirtnum.Text = quantity.ToString()
    addshbtn.Enabled = True
End Sub

Private Sub minusshbtn_Click(sender As Object, e As EventArgs) Handles minusshbtn.Click
    Dim quantity As Integer
    Integer.TryParse(shirtnum.Text, quantity)
    quantity -= 1
    ' 确保数量不小于0
    If quantity <= 0 Then
        quantity = 0
    End If
    shirtnum.Text = quantity.ToString()
End Sub

4. 迁移价格计算逻辑到数量变化事件 #

将价格计算逻辑移至shirtnum_TextChanged事件，确保数量变化时自动更新价格：

Private Sub shirtnum_TextChanged(sender As Object, e As EventArgs) Handles shirtnum.TextChanged
    Dim quantity As Integer
    Integer.TryParse(shirtnum.Text, quantity)
    ' 计算总价并格式化输出为$X.XX格式
    Dim totalPrice As Decimal = quantity * 15D
    pricetxt.Text = $"${totalPrice.ToString("F2")}"
    pricetxt.BorderStyle = BorderStyle.None
    pricetxt.BackColor = Me.BackColor
End Sub

5. 移除原pricetxt_TextChanged事件 #

原事件会导致无限递归，直接删除该事件代码即可。

关键说明 #

• 使用Integer.TryParse替代Integer.Parse：避免因空值、非数字输入抛出异常，提升程序稳定性。
• 调整事件触发逻辑：让数量变化驱动价格更新，符合业务逻辑，避免不必要的事件触发。
• 格式化价格输出：使用ToString("F2")确保价格始终保留两位小数，格式统一。

内容的提问来源于stack exchange，提问作者Sasha