Make a playlist of artists in Visual Basic using an ArrayList

Use a textbox to add Artists to a combobox then clear it out when you get all the Artists added.

 Public Class Form1  
   Dim ArtistList As New ArrayList  
   Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click  
     'take stuff out of text box, put stuff into the combobox, clear out textbox  
     ArtistList.Add(txtArtistTitle.Text)  
     ComboBox1.DataSource = Nothing  
     ComboBox1.DataSource = ArtistList  
     txtArtistTitle.Clear()  
   End Sub  
   Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click  
     ComboBox1.Text = Nothing  
     ArtistList.Clear()  
     ComboBox1.DataSource = Nothing  
   End Sub  
 End Class  

* Add a textbox, combobox, and a button to a form.
* When you type something in the textbox, it will add the text to an arraylist. The arraylist will be defined at the class level, not in the click event.
* When the button is clicked, you also want to set your arraylist to the datasource property of the combobox.
* In order to refresh the combobox each time something is added, you need to set the datasource literally to the word Nothing and then set your datasource again to your arraylist on the next line. This will refresh the combobox contents
* Also add a button that when clicked, it will remove all the contents from the arraylist and refresh the combobox to be empty.

Visual basic arrays, arraylists, hashtables and queues.

Here are some examples of arrays, arraylists, hashtables, and queues. (From Teeps)

  Public Class frmJuke  
  Dim strDahArray(0 To 2) As String  
  Dim arrTestMyList As New ArrayList  
  Dim hashTable As New Hashtable  
  Dim qQueue As New Queue  
  Private Sub btnAddCD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnArray.Click  
   strDahArray(0) = "This is cool"  
   strDahArray(1) = "This is cooler"  
   strDahArray(2) = "This is the coolest"  
   For x As Integer = 0 To 2  
    MsgBox(strDahArray(x))  
   Next  
   lstArray.DataSource = strDahArray  
   cboArray.DataSource = strDahArray  
  End Sub  
  Private Sub btnArrayList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnArrayList.Click  
   arrTestMyList.Add("this is not cool")  
   arrTestMyList.Add("not even this is cool")  
   arrTestMyList.Add("this sux")  
   For Each Str As String In arrTestMyList  
    MsgBox(Str)  
   Next  
   lstArray.DataSource = arrTestMyList  
   cboArray.DataSource = arrTestMyList  
  End Sub  
  Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click  
   arrTestMyList.Clear()  
   For y As Integer = 0 To (strDahArray.Length - 1)  
    strDahArray(y) = ""  
   Next  
   lstArray.DataSource = Nothing  
   cboArray.DataSource = Nothing  
  End Sub  
  Private Sub btnAddToArrayList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddToArrayList.Click  
   arrTestMyList.Add(txtArrayList.Text)  
   txtArrayList.Clear()  
  End Sub  
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
   hashTable.Add("box1", "asdf")  
   hashTable.Add("box2", "jld;fkajdf;lasdf")  
   For Each obj As DictionaryEntry In hashTable  
    MsgBox(obj.Key & "=" & obj.Value)  
   Next  
  End Sub  
  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
   Dim str As String  
   qQueue.Enqueue("third")  
   qQueue.Enqueue("second")  
   qQueue.Enqueue("first")  
   Do While qQueue.Count > 0  
    str = qQueue.Dequeue()  
    MsgBox(str)  
   Loop  
  End Sub  
 End Class