Click here to Skip to main content
15,892,161 members
Please Sign up or sign in to vote.
1.00/5 (1 vote)
See more:
This problem is easiest to be explained in this video
http://www.youtube.com/watch?v=wJmMdSjZxoM[^]

I am completely puzzeled on what exactly is happening. Here is the codes that I think have to be doing it some how so you don't have to typed them out from the video or anything.

Form Load:
VB
Try
            TextBox2.Text = My.Settings.Friends
            TextBox2.Text.TrimEnd()
            Dim NewArray() As String = TextBox2.Text.Split(vbNewLine)
                For Each item As String In NewArray
                    If String.IsNullOrEmpty(item) Or String.IsNullOrWhiteSpace(item) Then
                    Else
                        ListBox1.Items.Add(item)
                    End If
                Next

        Catch ex As Exception
            MsgBox.Show()
            MsgBox.Label2.Text = MsgBox.Label2.Text + "E013 "
        End Try


Form Closing:
VB
TextBox2.Text = ""
        For Each thing As Object In ListBox1.Items
            TextBox2.AppendText(thing.ToString & vbNewLine)
        Next
        TextBox2.Text.TrimEnd()
        My.Settings.Friends = TextBox2.Text


Selected Index Changed:
VB
Try
            PictureBox2.ImageLocation = "http://avatar.xboxlive.com/avatar/" + ListBox1.SelectedItem + "/avatarpic-l.png"
            LinkLabel1.Text = ListBox1.SelectedItem
        Catch ex As Exception

        End Try
Posted

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900