每次按下循环输出按钮

-1

以下函数将2个数字相加，然后将总数移至val1并允许用户添加更多数字。我需要打印每个计算的输出。（例2 + 2 = 4下一行4 + 2 = 6）目前我有打印第一个计算的标签。每次按下求和按钮时，如何打印输出val1，val2和结果的循环？每次按下循环输出按钮

Sub sum(s As Object, E As EventArgs) 
     val2.Text = txtinput.Text 
     Dim result = CInt(val1.Text) + CInt(val2.Text) 
     txtinput.Text = result 
     Label1.Text = val1.Text & "+" & val2.Text & "=" & result 
     val1.Text = result 
     val2.Text = "" 
End Sub

来源

2013-02-18 rupes0610

如果您Label1是要显示前面的计算，所有你需要做的是改变Label1.Text = val1.Text & "+" & val2.Text & "=" & result到Label1.Text += vbNewLine & val1.Text & "+" & val2.Text & "=" & result到Concat的先前输入的控制。

来源

2013-02-18 05:45:18

所有值保持它的家伙'：d ' – spajce 2013-02-18 06:01:01

工作很好！谢谢！ – rupes0610 2013-02-18 06:28:16

假设所有label由该Control（EX形态下，面板）。处理，你可以使用.OfType获得的Label.Text和.Sum

Dim sum = Me.Controls.OfType(Of Label)().Sum(Function(c) Int32.Parse(c.Text))

来源

2013-02-18 05:48:57 spajce

每次按下循环输出按钮

回答

相关问题