首先在窗体打开时，Combo1装入5个选择项
Private Sub Form_Load()
Combo1.AddItem "111"
Combo1.AddItem "222"
Combo1.AddItem "333"
Combo1.AddItem "444"
Combo1.AddItem "555"
Combo1.Text = Combo1.List(0)
End Sub

我的目的是：比如我选择111，要触发文本框Text1=1；选择222，要触发文本框Text1=2这么个功能

我该用什么方法呢？

[此贴子已经被作者于2007-1-27 9:43:05编辑过]

用SELECT CASE来选择吧``
SELECT CASE COMBO1.TEXT

CASE 1
.....
CASE 2
.....
CASE ELSE
.....
END CASE

有SelectedIndexChanged事件吗?
如果有的话把2楼的代码写到那里面

如果 Combo1.AddItem "中文汉字"
Combo1.Text是中文呢？
取得索引号是什么方法？

最后一行是End Select吧。

没有这个事件。
不知道用什么方法能实现。

两位版主再帮我支个招吧。谢谢。

combo1.ListCount

再次感谢版主的热心解答。

Private Sub Combo1_Change()
Select Case (Combo1.ListCount)
Case 0
Text4.Text = 0
Case 1
Text4.Text = 13
Case 2
Text4.Text = 12
End Select
End Sub

这样子有什么问题？

由于初次接触vb，书也翻了一些，但是运行时就是没有反应。

谢谢楼上的贵宾。

我将Private Sub Combo1_Change()
改成Private Sub Combo1_Click()就可以了。
再次感谢