vb2008 重复点击求合

答案:1 悬赏:70 手机版

解决时间 2021-04-29 13:35

提问者网友：棒棒糖
2021-04-29 01:35

compute button

Private Sub compute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles compute.Click

        If RBSmall.Checked Then
            subtotal.Text = Format(((29 + Num(0) + Num(1) + Num(2) + Num(3)) * Val(enterdays.Text)), )
        ElseIf RBMedium.Checked Then
            subtotal.Text = Format(((45 + Num(0) + Num(1) + Num(2) + Num(3)) * Val(enterdays.Text)), )
        ElseIf RBLarge.Checked Then
            subtotal.Text = Format(((59 + Num(0) + Num(1) + Num(2) + Num(3)) * Val(enterdays.Text)), )
        ElseIf RBMinibus.Checked Then
            subtotal.Text = Format(((79 + Num(0) + Num(1) + Num(2) + Num(3)) * Val(enterdays.Text)), )
        End If
        summary.Enabled = True

End Sub

Private Sub summary_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles summary.Click

我要做一个summary button,点击前面说的compute得到一个数(比如600),,再点击一次得到另一个数(比如300,同一个文本框,所以第一次的600消失),,最后点击summary得到2个数的和900(显示在一个新的文本框),,,谢谢

最佳答案

五星知识达人网友：逃夭
2021-04-29 01:47

不是VB2008的编译器所以给不了您源码

做出2个文本框其中1一个是隐藏的第一次点击将值赋给文本框1并且将文本框1的值赋给隐藏文本框2 点击第二个按钮的时候清空文本框1，将值显示在文本框1中，然后用文本框1中的值加上隐藏的文本框中2的值并且同时清空文本框1的值，相加得出的结果给文本框1

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息