VB 列表 为什么选定后还是后面一个数
PrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegerDimREIfCombo1.ItemData(0)Thena=1E...
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim RE
If Combo1.ItemData(0) Then
a = 1
Else
If Combo1.ItemData(1) Then
a = 2
End If
End If
If Combo2.ItemData(0) Then
b = 0
Else
If Combo2.ItemData(1) Then
b = 1
End If
End If
Text1.Text = a
If Form1.GetWalletBalance(a, b) = False Then
RE = MsgBox("获取余额失败", 确认, "消息提示")
Else
RE = MsgBox("获取余额成功", 确认, "消息提示")
'Text1.Text = "余额为：" & retValue
End If
End Sub
索引0 是公交应用 1 是月票
最后语句注释掉 怎么选定了没有用呢 我选了第一个，照例说a=1 可偏偏是2 展开
Dim a As Integer
Dim b As Integer
Dim RE
If Combo1.ItemData(0) Then
a = 1
Else
If Combo1.ItemData(1) Then
a = 2
End If
End If
If Combo2.ItemData(0) Then
b = 0
Else
If Combo2.ItemData(1) Then
b = 1
End If
End If
Text1.Text = a
If Form1.GetWalletBalance(a, b) = False Then
RE = MsgBox("获取余额失败", 确认, "消息提示")
Else
RE = MsgBox("获取余额成功", 确认, "消息提示")
'Text1.Text = "余额为：" & retValue
End If
End Sub
索引0 是公交应用 1 是月票
最后语句注释掉 怎么选定了没有用呢 我选了第一个，照例说a=1 可偏偏是2 展开
1个回答
展开全部
把ItemData换成ListIndex
If Combo1.ListIndex = 0 Then
a = 1
ElseIf Combo1.ListIndex = 1 Then
a = 2
End If
If Combo2.ListIndex = 0 Then
b = 0
ElseIf Combo2.ListIndex = 1 Then
b = 1
End If
更简单的：
a = Combo1.ListIndex + 1
b = Combo2.ListIndex
If Combo1.ListIndex = 0 Then
a = 1
ElseIf Combo1.ListIndex = 1 Then
a = 2
End If
If Combo2.ListIndex = 0 Then
b = 0
ElseIf Combo2.ListIndex = 1 Then
b = 1
End If
更简单的：
a = Combo1.ListIndex + 1
b = Combo2.ListIndex
更多追问追答
追问
貌似没这个属性
追答
无语，你不要打，复制粘贴，ListIndex
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
