当前位置:编程学习 > VB >>

请教前辈们关于Combo控件组数据叠加的问题

我想写一个简单的下注小程序
有四个combo1 组成一个控件组

text1为总金币数
text2为下注数

假设
第一栏我选择5
第二栏也选择5

剩余金币正常来说应该是90
可是数据会叠加出现:100-5+5+5=85

请教前辈们如何解决这一问题

Private Sub Combo1_Click(Index As Integer)
If Val(Text1.Text) < Val(Combo1(i).Text) Then
MsgBox "您当前没有那么多的金币!", vbInformation, "Xy系列软件"
Else

For i = 0 To 11
Text1.Text = Val(Text1.Text) - Val(Combo1(i).Text)
Text2.Text = Val(Text2.Text) + Val(Combo1(i).Text)
Next
End If
End Sub
--------------------编程问答-------------------- 以上是我写的有问题的代码 --------------------编程问答-------------------- 你点击两次,但是每次点击都循环吧所有下注都扣一遍,不就产生重复计算了!
Private Sub Combo1_Click(Index As Integer)
    Dim lTotal As Long
    Dim lBet As Long
    
    lTotal = Val(Text1) + Val(Text2) '总金币'
    For i = 0 To 11
        lBet = lBet + Val(Combo1(i).Text) '下注合计'
    Next
    
    If lTotal < lBet Then
        MsgBox "您当前没有那么多的金币!", vbInformation, "Xy系列软件"
    Else
        Text1 = lTotal - lBet '剩余金币'
        Text2 = lBet
    End If
End Sub
补充:VB ,  控件
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,