Question

所以我正在做这个计算器程序，并且需要数字，使用的运算符和“=”符号显示在列表框中，因此应显示“1 + 1 = 2”。我有计算器工作，可以将项目移动到列表框，但无法弄清楚如何记住单击按钮以获得结果并移动它。

Option Explicit On
Option Strict On
Option Infer Off

Public Class Form1

Private Sub ButtonAdd_Click(sender As Object, e As EventArgs) Handles ButtonAdd.Click     
    Result.Text = CStr(Val(NumOne.Text) + Val(NumTwo.Text))
End Sub

Private Sub ButtonSub_Click(sender As Object, e As EventArgs) Handles ButtonSub.Click
    Result.Text = CStr(Val(NumOne.Text) - Val(NumTwo.Text))
End Sub

Private Sub ButtonMul_Click(sender As Object, e As EventArgs) Handles ButtonMul.Click
    Result.Text = CStr(Val(NumOne.Text) * Val(NumTwo.Text))
End Sub

Private Sub ButtonDiv_Click(sender As Object, e As EventArgs) Handles ButtonDiv.Click
    Result.Text = CStr(Val(NumOne.Text) / Val(NumTwo.Text))
    'outputs a message box telling the user to correct the division by 0, also displays a blank result box instead of NaN
    If CDbl(NumTwo.Text) = Val(0) Then
        Result.Text = ""
        MessageBox.Show("You cannot divide by 0, please input another number")
    End If

End Sub

Private Sub ButtonExit_Click(sender As Object, e As EventArgs) Handles ButtonExit.Click
    Me.Close()
End Sub

Private Sub ButtonSave_Click(sender As Object, e As EventArgs) Handles ButtonSave.Click
    ListBox1.Items.Add(NumOne.Text & NumTwo.Text & Result.Text)
End Sub

End Class

Answer 1

就你只需要存储一个字符而言，你可以依赖Tag的{{1}}属性（基本上，你可以存储你想要的任何东西的黑盒子）。示例代码：

ListBox1

如何存储最后一个按钮并单击并添加到列表框

1 个答案: