ドロップダウンリストに項目を追加する

Question

私はドロップダウンリストに値を追加する方法を見つけようとしていましたが、VB.NETでどのように行うかわかりません。私はすべて次のコードを見つけましたが、最後の項目の値だけを読み込みます。

ドロップダウンリストのすべてのリスト項目を読み込むために変更する必要があるものを修正してください。 AddRangeを試しましたが、エラーが出ます。

 dlstYear.Items.Clear() 
    Dim newListItem As ListItem 
    newListItem = New ListItem("-- ALL --") 
    newListItem = New ListItem(DateTime.Today.Year.ToString()) 
    newListItem = New ListItem(DateTime.Today.AddYears(-1).Year.ToString()) 
    newListItem = New ListItem(DateTime.Today.AddYears(-2).Year.ToString()) 
    newListItem = New ListItem(DateTime.Today.AddYears(+1).Year.ToString()) 
    newListItem = New ListItem(DateTime.Today.AddYears(+2).Year.ToString()) 
    dlstYear.Items.Add(newListItem) 
End Sub 

Answer 1

変数は1つしかありません。値を変更することはできません。 1つの変数にすべてを保持しようとするのではなく、リストに直接追加するだけです。

dlstYear.Items.Clear() 
dlstYear.Items.Add(New ListItem("-- ALL --")) 
dlstYear.Items.Add(New ListItem(DateTime.Today.Year.ToString())) 
dlstYear.Items.Add(New ListItem(DateTime.Today.AddYears(-1).Year.ToString())) 
dlstYear.Items.Add(New ListItem(DateTime.Today.AddYears(-2).Year.ToString())) 
dlstYear.Items.Add(New ListItem(DateTime.Today.AddYears(+1).Year.ToString())) 
dlstYear.Items.Add(New ListItem(DateTime.Today.AddYears(+2).Year.ToString()))