[makky]

عندي richtextbox عايز احذف السطر رقم 30.ممكن تتعمل ازاي

[معاند الحظ]

اخي الكريم اذا كنت تقصد بحذف سطر ان تحذف النص الموجود فيه 
فهذا يكون كالتالي:

تقوم بتعريف مصفوفة نصية وتسند لها قيمة RichTextBox.Lines

كود :

 Dim lines() As String = RichTextBox1.Lines

ثم لحدذف السطر المطلوب تختارمن المصفوفة  التي انشئتها نفس رقم السطر الذي تريد حذفه مع الانتباه ان المصفوفات صفرية الاساس
يعني السطر الاول له القيمة 0 ولهذا فانك لكي تحذف السطر رقم 30 يجب ان تختار رقم 29

جرب الكود التالي:

كود :

  Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim lines() As String = RichTextBox1.Lines

        lines(29) = ""
        RichTextBox1.Lines = lines

    End Sub

[trakktour]

(28-04-20, 03:30 AM)makky كتب : عندي richtextbox  عايز احذف السطر رقم 30.ممكن تتعمل ازاي

مرحبا اخي
تفضل 
ان شاء الله يكون هذا المطلوب

كود :

       Dim lineArray As String() = RichTextBox1.Lines
       Dim lineCollection = New List(Of String)(lineArray)
       lineCollection.RemoveAt(29)
       lineArray = lineCollection.ToArray()
       RichTextBox1.Lines = lineArray