COMBOX如何获得选中值

[FCARM]

现在此写了一个小的程序，发现用COMBOX的时候，选中时，没出出现自己想要的效果

代码如下：

Dim num As Integer




Private Sub com_Change()




If com.Text = "s1" Then
'lab.Caption = com.Text
End If

if com.Text ="s2" then
lab.Caption = com.Text

if com.Text = "s3" then
lab.Caption = "s3"

lab.Caption = com.Text

End Sub

Private Sub Form_Load()

With com
.AddItem "s1"
.AddItem "s1"
.AddItem "s3"

End With

end sub


我想选择中S1就显示S1选中S2就显示S2
但选中的时候，并没有显示，请大家指示！

[波导终结者]

事件不对，combox选中项改变好像是click事件，change事件是当设为可输入时文本框内容改变的事件（类似于text的change）

[zhuhuofong]

Private Sub Combo1_Click()
Label1.Caption = Combo1.List(Combo1.ListIndex)
End Sub

Private Sub Form_Load()
For i = 1 To 20
Combo1.AddItem "s" & i
Next
End Sub

[孤独剑_LPZ]

楼上正解

[FCARM]

谢谢了，这个问题烦了我好几天，没有想到是这里出的问题！

[FCARM]

搞定，再次谢谢各位了！

[lhf9168]

555555，咋试vb的呢，我找了半天