1

これらの変数を ComboBox に追加するためのループを作成することに行き詰まりました。ループを使用してより簡単な方法で呼び出したいのですが、何度も失敗しました。グーグルで検索しましたが、まだ失敗したので、どんな助けも感謝します

Public MyPass1 As String = "John"
Public MyPass2 As String = "Andrew"
Public MyPass3 As String = "Stewart"
Public MyPass4 As String = "Meiny"
Public MyPass5 As String = "Franco"
Public MyPass6 As String = "Hanks"
Public MyPass7 As String = "Buzz"
Public MyPass8 As String = "Timmy"
Public MyPass9 As String = "George"
Public MyPass10 As String = "Sanders"

Sub Putitem(ByVal MyPass)
    With cmbAsk
        For i As Integer = 0 To 9
            Dim c As Integer
            c = i + 1
            Items.Add(MyPass(c)) 'The main problem is here, i want to do looping for calling it.
            i = c
        Next
    End With
End Sub

どんな助けでも大歓迎です。前もって感謝します。

4

2 に答える 2

1

値を個々の変数に格納する代わりに、配列に格納できます。

Public MyPasses As String() = New String() { 
                             "John",
                             "Andrew",  
                             "Stewart",
                             "Meiny",
                             "Franco",
                             "Hanks",
                             "Buzz",
                             "Timmy",
                             "George",                               
                             "Sanders"
                          }

その後、次の方法でアクセスできます。

Items.Add(MyPasses(c))
于 2013-06-14T16:14:53.567 に答える
1

公開されていない文字列を追加するには、コレクションが必要です。

Private collection() As String = {"John", "Mark", "Frank"} 'initializer

cmbAsk.Items.AddRange(collection.ToArray)

AddRange メソッド

于 2013-06-14T16:15:51.327 に答える