Question

在vb中如何让combo1下拉列表中的内容自动添加到combo1.text

想让combo1下拉列表中的多个元素每隔一秒自动添加一个元素到combo1.text，如何实现？添加的顺序是自上而下。

Answer 1

在窗体中添加一个时钟控件Timer，并将其属性Interval的值设置为1000（毫秒），即1秒，然后将以下代码复制、粘贴、执行即可。

Private Sub Timer1_Timer() '时钟控件
If Combo1.ListIndex < Combo1.ListCount - 1 Then '因为索引的下标是从0开始的
Combo1.ListIndex = Combo1.ListIndex + 1 '移向下一个列表项
Else
Timer1.Enabled = False '停止计时，因为已经添加完所有项
End If
End Sub

以上代码实现的效果是每隔1秒钟自上而下依次将列表项内容添加到Combo1.Text

明白吧？

Answer 2

没分，不太简单！