简单的问题，但送100分：VB6中COMBO控件的TOPINDEX的作用是什么，如何用？

Question

VB6中COMBO控件的TOPINDEX的作用是什么，如何用？请详细说明，并给出代码。

Answer 1

http://msdn.microsoft.com/zh-cn/library/cxh2w9wf%28VS.80%29.aspx

Answer 2

相当于自动滚动的效果'Style 属性设置为“1 - SimpleCombo”Option ExplicitPrivate Sub Command1_Click()    Dim i&
    
    Combo1.Clear    For i = 0 To 20
        Combo1.AddItem "aaa" & i
    Next i    'Combo1.TopIndex = 9 '楼主看一下有这句和无这句的运行结果就应该明白了。
    '注意  显示出来的内容,没有这个时从0开始显示
    
End SubOption ExplicitPrivate Sub Command1_Click()    Dim i&
    
    Combo1.Clear    For i = 0 To 20
        Combo1.AddItem "aaa" & i
    Next i    Combo1.TopIndex = 9 '楼主看一下有这句和无这句的运行结果就应该明白了。
    '注意  显示出来的内容，有这个时，发生了滚动，开始时显示的是9
    
End Sub

Answer 3

为了lz不会误操作，分别让TopIndex=-1和TopIndex=9吧相当于自动滚动的效果 'Style 属性设置为“1 - SimpleCombo” Option ExplicitPrivate Sub Command1_Click()    Dim i&
    
    Combo1.Clear    For i = 0 To 20
        Combo1.AddItem "aaa" & i
    Next i    Combo1.TopIndex = -1 '楼主看一下有这句和无这句的运行结果就应该明白了。
    '注意  显示出来的内容,没有这个时从0开始显示
    
End SubOption ExplicitPrivate Sub Command1_Click()    Dim i&
    
    Combo1.Clear    For i = 0 To 20
        Combo1.AddItem "aaa" & i
    Next i    Combo1.TopIndex = 9 '楼主看一下有这句和无这句的运行结果就应该明白了。
    '注意  显示出来的内容，有这个时，发生了滚动，开始时显示的是9
    
End Sub