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

编程论坛 → 开发语言 → 『 VB6论坛』 → 如何在combobox的值变化时给其他变量赋值？

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

只看楼主

心中有剑

等　级：新手上路
威　望：5
帖　子：611
专家分：0
注　册：2007-5-18

第 11 楼

得分:0

dim a as string
a= combo1.text
这样就可以了在click事件里面写就好了

2007-06-27 08:27

airattic

等　级：新手上路
帖　子：44
专家分：0
注　册：2007-5-3

第 12 楼

得分:0

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

这样不行的，老兄！

2007-06-27 09:53

airattic

等　级：新手上路
帖　子：44
专家分：0
注　册：2007-5-3

第 13 楼

得分:0

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

2007-06-27 11:54

心中有剑

等　级：新手上路
威　望：5
帖　子：611
专家分：0
注　册：2007-5-18

第 14 楼

得分:0

Private Sub Combo1_Click()
Cls
Print Combo1.Text
End Sub

Private Sub Form_Load()
Combo1.AddItem "aaa"
Combo1.AddItem "bbb"
Combo1.AddItem "ccc"
Combo1.AddItem "ddd"
Combo1.AddItem "eee"
Combo1.AddItem "fff"

End Sub

可以的啊!怎么不可以呢!

2007-06-27 13:04

huangwy

等　级：新手上路
威　望：2
帖　子：297
专家分：0
注　册：2007-3-23

第 15 楼

得分:0

你这个语句太奇怪了

(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

2007-06-27 14:10

huangwy

等　级：新手上路
威　望：2
帖　子：297
专家分：0
注　册：2007-3-23

第 16 楼

得分:0

我想你应该在combo4的ItemChange(记得有这个事件，如果没有自己找一下差不多功能的事件）事件中，做一个判断
而不要在这里做

2007-06-27 14:13

airattic

等　级：新手上路
帖　子：44
专家分：0
注　册：2007-5-3

第 17 楼

得分: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”或“”要求必须至少选择一个设备！

2007-06-27 14:21

airattic

等　级：新手上路
帖　子：44
专家分：0
注　册：2007-5-3

第 18 楼

得分:0

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

我在想是不是应该这样：

Private Sub Combo4_Change(Index As Integer)

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

End Sub

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