请教前辈们关于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 , 控件