VB 组合框内容在text输入

Private Sub Combo1_Change()
Dim i
Select Case list1.Selected(i)
Case list1.Selected(4)
Text6.Text = list1.List(4)
End Select
End Sub
在combo1中有4个数，style是2.我想每选择一个数，在text6中就显示出来。不知道怎么取combo1的值作条件，求高手指点。谢谢！

答案：Private Sub Command1_Click() List1.AddItem Val(Combo1.Text)   Val(Combo2.Text) End Sub 这个很简单啊，直接调用Combo的click事件或者Change事件

其他：text6.text=combo1.text Private Sub Combo1_Click()
Text6.Text = Combo1.Text
End Sub 

上一个：求分析下列一段VB代码
下一个：帮忙做道VB程序设计题