リストボックスアイテムをVB2008を使用してラベルに表示する方法

Question

ラベルにリストボックスアイテムを表示しようとしています。

Private Sub xMultiButton_Click(ByVal sender As System.Object, _ 
    ByVal e As System.EventArgs) Handles xMultiButton.Click 

    Dim count As Integer 
    count = Me.xNamesListBox.Items.Count 
    For count = 0 To 3 
     Me.xResultLabel.Text = Me.xNamesListBox.SelectedItems.Item(0).ToString & ControlChars.NewLine _ 
      & Me.xNamesListBox.SelectedItems.Item(1).ToString & ControlChars.NewLine _ 
      & Me.xNamesListBox.SelectedItems.Item(2).ToString & ControlChars.NewLine _ 
      & Me.xNamesListBox.SelectedItems.Item(3).ToString & ControlChars.NewLine _ 
      & Me.xNamesListBox.SelectedItems.Item(4).ToString 


    Next 

End Sub 

Answer 1

この

For i As Int16 = 0 To xNamesListBox.SelectedItems.Count - 1 
    xResultLabel.Text += xNamesListBox.SelectedItems.Item(i).ToString() & ControlChars.NewLine 
Next 

を試し、

任意のコメントは非常に感謝されます「リストにする最大のインデックスがリストのサイズよりも低いことを確認してください」： デバッグした後、私はエラーを取得します

Answer 2

あなたは、ディスプレイのために各のために、リストボックスの選択したすべての項目をを使用することができます

For Each Str As String In xNamesListBox.SelectedItems 
     xResultLabel.Text += Str & Environment.NewLine 
    Next