キューとコンボボックスの使い方 VB2008

質問

VB2008を使っています。
キューとコンボボックスの使い方がわからないのですが、以下のソースで

(1)キューとデータソースを使う。
Dim queue As Queue = New Queue(20)
For i As Integer = 0 to 9
queue.Enqueue( i.ToString() )
Next i
ComboBox1.DataSource = queue.ToArray
ComboBox2.DataSource = queue.ToArray

(2)べたな方法
ComboBox1.Items.Clear()
For i As Integer = 0 to 9
ComboBox1.Items.Add( i.ToString() )
Next i

ComboBox2.Items.Clear()
For i As Integer = 0 to 9
ComboBox2.Items.Add( i.ToString() )
Next i

------------------------

(1) (1)と(2)は厳密にどのように違うのでしょうか？
(2) (1)で心配なのは、キューの上限を20にしていて、実際使っているのは10個で後は空です。
この状態で、コンボボックスのDataSourceにセットした場合、(2)と同じように10件だけになっているのでしょうか？
(3) (1)は同じキューを使いまわしています。コンボボックス１と２は独立して使えるのでしょうか？（データは同じです。）

回答No.1

うぃず（@Wizard_Zero） · ベストアンサー

順序が前後しますが、

(2)について
Queueコレクションのインスタンス生成時にキャパシティを指定しても、実際に配列で返されるのはコレクションに格納したオブジェクトの数だけです。
queue.ToArray.Length とすれば、10が返されます。

(3)について
今回は文字列型（値型）なので、それぞれの値は独立しています。これがクラス（参照型）になると若干話が変わってきます。

(1)について
上記を含め今回の場合、最終的に結果は同じになると思います。
「厳密に」となると、あらかじめリストを生成してからコンボボックスに放り込むか、コンボボックスでリストを形成するか、という違いがあります。分量が多くなってくると、処理の時間にも違いが出てくるでしょう。

お礼

詳しい解説ありがとうございます。

処理の時間は(1)のリスト生成を先にした方が早いということでしょうか？

回答No.2

うぃず（@Wizard_Zero）

> 処理の時間は(1)のリスト生成を先にした方が早いということでしょうか？

MicrosoftはAddよりもAddRangeのほうが速い、と言っていますがDataSourceプロパティで比較したものがなかったので実験してみました。

10,000件のデータをDataSourceとItems.Addでそれぞれ追加したときの処理時間を計測し、100回試行したデータです。
(1)がQueueコレクションに10,000件のデータをセットし、DataSourceプロパティで設定した結果
(2)がItems.Addを10,000回繰り返して設定した結果です。

(1) 平均 = 325.53ms / 最大 = 408ms / 最小 = 310ms
(2) 平均 = 537.99ms / 最大 = 661ms / 最小 = 508ms

DataSourceのほうが明らかに速いですね。

それと、このコードを書いて気づいたのですがDataSourceプロパティに配列を設定した場合、Itemsプロパティによる追加や削除ができません。また、SelectedIndexもItems.Addでは-1(未選択)のままですが、DataSourceでは0(先頭の項目)が選択されるようです。
配列を設定後にAdd, Remove等を行う必要があるのであれば、Items.AddRangeメソッドを使用してみてください。

※計測に使ったコードを載せておきます。

Dim queue As Collections.Queue = New Collections.Queue(10000)
Dim sw As New Diagnostics.Stopwatch

' (1) DataSource
sw.Start()

For i As Integer = 1 To 10000
queue.Enqueue(i.ToString())
Next i

ComboBox1.DataSource = queue.ToArray
sw.Stop()

Call Console.Write(sw.ElapsedMilliseconds & ":")
sw.Reset()

' (2) Items.Add
sw.Start()

For i As Integer = 1 To 10000
ComboBox2.Items.Add(i.ToString)
Next

sw.Stop()

Call Console.WriteLine(sw.ElapsedMilliseconds)