bilaltr2

Textbox ile sorun olur . RichTextBox kullan 50000 satırda olsa sorun olmaz.

  public void TestKayitEkle()
        {
            for (int i = 0; i < 5000; i++) // 5000 satir test kaydi ekle
            {
                richTextBox1.AppendText("www." + i.ToString() + ".com\n");
                Application.DoEvents();// arayuzu kilitleme
                if (richTextBox1.Lines.Count() > 500) // kayitsayisi 500 den fazla ise ilk satiri temizle
                {
                    SatirSil();

                }
            }
        }

        public void SatirSil()
        {
            List<string> myList = richTextBox1.Lines.ToList();
            if (myList.Count > 0)
            {
                myList.RemoveAt(0); // ilk indeksi temizle
                richTextBox1.Lines = myList.ToArray();
                richTextBox1.Refresh();
                Application.DoEvents();// arayuzu kilitleme
            }
        }

 Private Sub DataGridView1_CellLeave(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellLeave

        TextBox1.Text = DataGridView1.ColumnCount
        TextBox2.Text = DataGridView1.RowCount - 1
        'Toplam x değerleri;
        For b = Val(TextBox2.Text) To 1 Step -1
            c = DataGridView1.Rows(e.RowIndex).Cells("sutun").Value
            a = a + c
        Next
        TextBox8.Text = a
    End Sub