[vbnet]

.....


إختصار كود Button1 من 250 سطر إلى 10 أسطر (طبعاً غير صحيح أن الأسطر القليلة تزيد في السرعة وإنما استخدام الأكواد الصحيحة)

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim op As New OpenFileDialog
    op.Filter = "الملفات النصية(*.txt)|*.txt"
    op.Title = "قراءة الملفات"
    If op.ShowDialog = Windows.Forms.DialogResult.OK Then
        Dim rows As String() = IO.File.ReadAllLines(op.FileName)
        For Each row As String In rows
            Me.DataGridView1.Rows.Add(Split(row, "@"))
        Next
        MsgBox("عدد السجلات المقروءة : " & Me.DataGridView1.Rows.Count, MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading, "السجلات")
    End If
End Sub