如何使用编码在VB6.0的组合框中显示1到1000个数字？

Question

我试过一个包含循环的编码，在组合框中显示1到1000个数字。我只是Visual Basic的学习者。所以我无法通过编码实现这一目标。编码如下：

    Private Sub Combo1_change()
    Dim a As Integer
    While (a <= 1000)
    Combo1.AddItem(a, [1]) = a
    a=a+1
    Wend
    End Sub

我经历过＃34;没有错误＆＃34;但运行时组合框中没有显示任何数字。请通过修改上面的代码或将我重定向到任何其他在组合框中插入元素的方法来帮助我。

Answer 1

Combo1_Change事件肯定不是你应该看的地方。当组合中的文本发生更改时，将触发该事件。请尝试Form_Load事件：

Private Sub Form_Load()
    Dim a As Integer

    For a = 1 To 1000
        Combo1.AddItem a
    Next

End Sub

请注意，包含1000个项目的组合不是最好的用户体验。