Reply to thread

Message: <blockquote data-quote="DjSpK" data-source="post: 19442284" data-attributes="member: 139923">[code]Public Class Form1    Dim DataList As Dictionary(Of String, Integer) = New Dictionary(Of String, Integer)    Dim AvgPrice As Integer = 0    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        If Not DataList.ContainsKey(TextBox1.Text) Then            DataList.Add(TextBox1.Text, Int(TextBox2.Text))        Else            If Not DataList(TextBox1.Text).Equals(Int(TextBox2.Text)) Then                DataList(TextBox1.Text) = Int(TextBox2.Text)            End If        End If        UpdateList()    End Sub    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click        DataList.Remove(DataList.ToArray(ComboBox1.SelectedIndex).Key)        UpdateList()    End Sub    Private Sub UpdateList()        ComboBox1.Items.Clear()        AvgPrice = 0        For Each ListItem As KeyValuePair(Of String, Integer) In DataList            ComboBox1.Items.Add(ListItem.Key & " | Price : " & ListItem.Value)            AvgPrice = AvgPrice + ListItem.Value        Next        Label4.Text = AvgPrice / DataList.Count    End SubEnd Class[/code]Source : <a href="https://dl.dropboxusercontent.com/u/24436775/ComboTest.zip" target="_blank">https://dl.dropboxusercontent.com/u/24436775/ComboTest.zip</a></blockquote>

Top Bottom