如何在combobox的值变化时给其他变量赋值？ - VB6论坛

楼主

问题点数：0 回复次数：9

如何在combobox的值变化时给其他变量赋值？

如题！当在combobox选择不同的条目时，如何做到根据选择的不同条目给变量赋不同的值？

搜索更多相关主题的帖子: 赋值　变量　 combobox　

第 2 楼

得分:0

可能是我没说清楚。我的意思并不是把combobox里的值赋给变量。举个例子：
当选择：条目1 then x=10000 'x值为参与相关运算的变量
条目2 then x=20000
条目3 then x=30000

第 3 楼

得分:0

晕！大哥，服了你

我只是举个例子而已，不是真的要赋值10000、20000、30000

所要赋的值是从数据库中调用的，不一定是整数！

第 4 楼

得分:0

呵呵，不好意！现在明白了！

第 5 楼

得分:0

大哥，不行啊！调试后发现（Combo1.ListIndex + 1）永远等于-1

第 6 楼

得分:0

list里面不是空的。而且要选的要操作的不是combo1而是combo4。很奇怪的是改成combo4后总是报错

程序传上来，你帮我看看吧

顺便帮我看看其他的地方有没有要修改或优化的地方

俺是新手，最近因为工作的需要才开始学这个。先谢谢了！

Yf8jtyAw.rar (98.61 KB) 如何在combobox的值变化时给其他变量赋值？

第 7 楼

得分:0

以下是引用心中有剑在2007-6-27 8:27:13的发言：
dim a as string
a= combo1.text
这样就可以了在click事件里面写就好了

这样不行的，老兄！

第 8 楼

得分:0

哪位高手帮我看看问题出在哪？代码在10楼！先谢谢大家了！

第 9 楼

得分:0

以下是引用huangwy在2007-6-27 14:10:06的发言：
你这个语句太奇怪了

(Combo4(1).Text = "None" Or Combo4(1).Text = "") And (Combo4(2).Text = "None" Or Combo4(2).Text = "") And _
(Combo4(3).Text = "None" Or Combo4(3).Text = "") And (Combo4(4).Text = "None" Or Combo4(4).Text = "") And _
(Combo4(5).Text = "None" Or Combo4(5).Text = "") And (Combo4(6).Text = "None" Or Combo4(6).Text = "") Then
MsgBox "请选择设备", vbOKOnly

这个语句的意思是要判断所有的combobox不能同时为“None”或“”要求必须至少选择一个设备！

第 10 楼

得分:0

以下是引用huangwy在2007-6-27 14:13:00的发言：
我想你应该在combo4的ItemChange(记得有这个事件，如果没有自己找一下差不多功能的事件）事件中，做一个判断
而不要在这里做

我在想是不是应该这样：

Private Sub Combo4_Change(Index As Integer)

’判断条件写在这个区域。但是如果变量在这里赋值的话，当后面的计算过程调用变量的时候会不会有问题？

End Sub

俺是个新手，也是一边学一边做望指教