منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : حذف الأسطر الفارغة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم و رحمة الله وبركاته :
أرجوا المساعدة أخواني في هذا السؤال :
أريد كود يحذف أي سطر فارغ في textbox أو RichTextBox ؟؟؟ Huh
كود :
Dim Txt = From T As String In TextBox1.Lines Where T <> ""

        TextBox1.Text = ""
        For Each S As String In Txt
            If TextBox1.Text = "" Then
                TextBox1.Text = S
            Else
                TextBox1.Text &= vbNewLine & S
            End If
        Next
جزاك الله خير أخوي 3booody مشكوووووووووور و ماقصرت Smile Smile Smile