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

这样不行的，老兄！

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

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

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

你这个语句太奇怪了

(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

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

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

我在想是不是应该这样：

Private Sub Combo4_Change(Index As Integer)

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

End Sub

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

厉害啊