Vb.net Visual Studio。向最终结果添加数字

我正在做一个有3个按钮的项目。加、减和退出。当我点击“添加”按钮时，它应该获取当前订购数量框中的任何内容，并将其添加到总数中。如果我单击“减去”，它将从当前总数中减去。按钮起作用了，但我无法保持总数。如果我输入5，单击“添加”，则“总计”框将显示5，但在我擦除它的那一分钟，“总计”框也将擦除。这是我的密码：

选项显式打开 选项严格限制在 选项推断 公开课 私有子btnAdd_ClickSender作为对象，e作为事件args处理btnAdd。单击 Dim INTNUMORDED为整数 Dim dblTotal为双精度 Integer.TryParsetxtNumOrdered.Text，intNumOrdered dblTotal=intNumOrdered+dblTotal lblTotal.Text=dblTotal.ToStringC2 端接头 私有子btnSubtract\u单击发件人作为对象，e作为事件args处理btnSubtract。单击 Dim INTNUMORDED为整数 Dim dblTotal为双精度 Integer.TryParsetxtNumOrdered.Text，intNumOrdered dblTotal=dblTotal-intNumOrdered lblTotal.Text=dblTotal.ToStringC2 端接头 私有子btnExit\u单击发件人作为对象，e作为事件args处理btnExit。单击 我，关上 端接头 私有子txtNumOrdered\u Entersender作为对象，e作为事件args处理txtNumOrdered。输入 txtNumOrdered.SelectAll 端接头 私有子txtNumOrdered_TextChangedsender作为对象，e作为事件args处理txtNumOrdered.TextChanged lblTotal.Text=String.Empty 端接头 末级 我需要做什么？

你说：

但当我擦除[数字框的内容]时，整个框也会被擦除

你的密码是：

Private Sub txtNumOrdered_TextChanged(sender As Object, e As EventArgs) Handles txtNumOrdered.TextChanged
    lblTotal.Text = String.Empty
End Sub

---

公平地说，VB只做了你让它做的事情！：

这里有一些地方不对劲。正如已经指出的，您正在清除“总计”框。此外，您没有将总计存储在任何位置，而是使用将初始化为0的局部变量。在使用变量之前，还应该检查TryParse是否成功

Public Class frmMain
Private dblTotal As Integer = 0

Private Sub btnAdd_Click(Sender As Object, e As EventArgs) Handles btnAdd.Click
    Dim intNumOrdered As Integer

    If Integer.TryParse(txtNumOrdered.Text, intNumOrdered) Then
        dblTotal = dblTotal + intNumOrdered
        lblTotal.Text = dblTotal.ToString("C2")
    End If

End Sub

Private Sub btnSubtract_Click(Sender As Object, e As EventArgs) Handles btnSubtract.Click
    Dim intNumOrdered As Integer

    If Integer.TryParse(txtNumOrdered.Text, intNumOrdered) Then
        dblTotal = dblTotal - intNumOrdered
        lblTotal.Text = dblTotal.ToString("C2")
    End If

End Sub

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
    Me.Close()
End Sub
Private Sub txtNumOrdered_Enter(sender As Object, e As EventArgs) Handles txtNumOrdered.Enter
    txtNumOrdered.SelectAll()
End Sub
Private Sub txtNumOrdered_TextChanged(sender As Object, e As EventArgs) Handles txtNumOrdered.TextChanged
    lblTotal.Text = String.Empty
End Sub

---

End Class

将dblTotal设置为Double您永远不会将dblTotal初始化为任何值。这应该是类成员而不是本地成员吗？或者每次都从标签上阅读：Double.TryParselblTotal.Text，dbltotal非常感谢。对不起，我还在努力学习。没必要道歉，有时候这些东西真的很难看。。