none
请问:在VB2008中这个怎么写 RRS feed

  • 问题

  • Dim arr1 As Variant
    Dim i As Integer
    arr1 = Array("aaaa","acba","ghada")
    For i = 1 To 10
    Me.Controls("ComboBox" & i).List = arr1
    Next i

    2009年8月19日 7:37

答案

  •         Dim arr1 As Object() = {"aaa", "bbb", "ccc"}
            For i As Integer = 0 To 10
                CType(Me.Controls("ComboBox" & i), ComboBox).Items.AddRange(arr1)
            Next
    楼主看看能不能用
    2009年8月20日 2:07

全部回复