Vb Listbox1, Listbox2 toplama kodları

quote:

Orijinalden alıntı: alife

Merhaba
İnşallah doğru anlamışımdır:

 
      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
          ListBox1.Items.Add("1") 
          ListBox1.Items.Add("2") 
          ListBox1.Items.Add("3") 
          ListBox1.Items.Add("4") 
          ListBox1.Items.Add("5") 
   
          ListBox2.Items.Add("10") 
          ListBox2.Items.Add("20") 
          ListBox2.Items.Add("30") 
          ListBox2.Items.Add("40") 
          ListBox2.Items.Add("50") 
          ListBox2.Items.Add("60") 
          ListBox2.Items.Add("70") 
   
          Dim toplam As Integer 
   
          toplam = 0 
   
          For l_index As Integer = 0 To ListBox1.Items.Count - 1 
              Dim l_text As String = CStr(ListBox1.Items(l_index)) 
              If IsNumeric(l_text) Then 
                  toplam = toplam + Convert.ToInt32(l_text) 
              End If 
          Next 
   
          For l_index As Integer = 0 To ListBox2.Items.Count - 1 
              Dim l_text As String = CStr(ListBox2.Items(l_index)) 
              If IsNumeric(l_text) Then 
                  toplam = toplam + Convert.ToInt32(l_text) 
              End If 
          Next 
   
          Label1.Text = toplam.ToString() 
   
      End Sub 
  

Saygılarımla.