Combo控件引用ItemData()时出错。

答案:2 悬赏:30 手机版

解决时间 2021-01-31 19:45

提问者网友：世勋超人
2021-01-31 01:53

Combo控件引用ItemData()时出错。请求各位解答
'两个Combo控件，一个text控件。网上找不到答案，才求助各位

Private Sub Combo1_Click()
Print Combo1.ItemData(Combo1.ListIndex) '引用正常
Print Combo2.ItemData(Combo2.ListIndex) '错误！！提示无效属性数组索引。为什么Combo1可以，Combo2不可以？？
Text1.Text = Combo1.ItemData(Combo1.ListIndex) + Combo2.ItemData(Combo2.ListIndex) '单击选择Combo1时计算和并用Text1控件显示。出错！
End Sub

Private Sub Form_Load()
Combo1.AddItem "a": Combo1.ItemData(0) = 100
Combo1.AddItem "b": Combo1.ItemData(1) = 200
Combo1.AddItem "c": Combo1.ItemData(2) = 300
Combo1.ListIndex = 0

Combo2.AddItem "a": Combo2.ItemData(0) = 400
Combo2.AddItem "b": Combo2.ItemData(1) = 500
Combo2.AddItem "c": Combo2.ItemData(2) = 600
Combo2.ListIndex = 1

Show
Print Combo1.ItemData(Combo1.ListIndex) '此处引用ItemData()值正常
Print Combo2.ItemData(Combo2.ListIndex)
End Sub

最佳答案

五星知识达人网友：纵马山川剑自提
2021-01-31 02:52

Combo2里面添加些条目就好了

全部回答

1楼网友：愁杀梦里人
2021-01-31 03:02

改combo的style属性为2-dropdown list就不能直接改动了.

我要举报

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

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