セッションに渡された渡された配列をLabelに書き込むことができません

Question

文字列（前のページのリストボックスから塗りつぶしてSessionを渡します）の配列を取得してラベルに表示しようとしていますこれはどうですか配列ました：

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles CheckOut.Click 
    Dim x = ListBox1.GetSelectedIndices.Count 
    Dim ListPNames(x) As String 
    Dim i As Integer 

    i = 0 
    For Each item As String In ListBox1.GetSelectedIndices 
     ListPNames(i) = (ListBox1.SelectedItem).ToString 
     i = i + 1 

    Next 


    Session("SlctdPhones") = ListPNames(x) 

    Response.Redirect("CheckOut.aspx") 


End Sub 

をそして、これは私がそれを表示しようとしている方法です：

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load 


    Dim SlctdPhones() As String = CType(Session.Item("SlctdPhones"), Array) 
    Dim i As Integer 

    Label3.Text = "" 

    For i = 0 To SlctdPhones.Length - 1 

    Label3.Text += SlctdPhones(i).ToString() + Environment.NewLine 
    Next 


End Sub 

それは私にエラーを与えている：オブジェクト参照をINSTAに設定されていませんオブジェクトのnce。がSlctdPhones.Length - 1 Lineに達すると！ 私はまた私の配列のコードが正しい、私はそれを修正することができますか分からないが（それに正しく保存されているすべてのものですか？）

Answer 1

あなたはこのようForループ宣言：

For Each item In ... 

をしかし、その後、ループの本体でitem変数を使用することはありません。代わりに、同じSelectedItemプロパティを使用し続けます。あなたはこのように見えるようにその全体の方法を変更したい：

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load 
    Dim SlctdPhones As List(Of String) = TryCast(Session.Item("SlctdPhones"), List(Of String)) 

    If SlctdPhones Is Nothing OrElse SlctdPhones.Length = 0 Then 
     'Something went wrong here! 
     Return 
    End If 

    Label3.Text = String.Join("<br/>", SlctdPhones.ToArray()) 
End Sub 

しかし、私は本当にあなたではなく、データコントロールを使用し見てみたい：その固定して

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles CheckOut.Click 
    Dim PNames As New List(Of String)() 
    For Each index As Integer In ListBox1.GetSelectedIndices 
     PNames.Add(ListBox1.Items(index).Value) 
    Next 
    Session("SlctdPhones") = PNames 

    Response.Redirect("CheckOut.aspx") 
End Sub 

を、をPage_Loadはこれを行うことができますラベルに<br/>を詰めるよりも。ここでは、リストビューのマークアップです：

<asp:ListView ID="ListView1" runat="server"> 
    <LayoutTemplate> 
    <ul> 
     <asp:PlaceHolder ID="itemPlaceholder" runat="server" />  
    </ul>     
    </LayoutTemplate> 
    <ItemTemplate> 
    <li><%# Container.DataItem.ToString() %></li> 
    </ItemTemplate> 
    <EmptyDataTemplate> 
    <p>Nothing here.</p> 
    </EmptyDataTemplate> 
</asp:ListView> 

そして、Page_Loadのはさらに簡単です：おそらく関連

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load 
    ListView1.DataSource = Session.Item("SlctdPhones") 
    ListView1.DataBind() 
End Sub 

Answer 2

表示]ページで、代わりにラベル

Dim SlctdPhones() As String = CType(Session.Item("SlctdPhones"), Array) 
Dim result as String = string.Join("<br>", SlctdPhones) 'Instead of <br> try Environment.NewLine as well 
YourLitetal = result 

のリテラルを使用して希望この助けて！