28-04-20, 03:30 AM
28-04-20, 04:03 AM
اخي الكريم اذا كنت تقصد بحذف سطر ان تحذف النص الموجود فيه
فهذا يكون كالتالي:
تقوم بتعريف مصفوفة نصية وتسند لها قيمة RichTextBox.Lines
ثم لحدذف السطر المطلوب تختارمن المصفوفة التي انشئتها نفس رقم السطر الذي تريد حذفه مع الانتباه ان المصفوفات صفرية الاساس
يعني السطر الاول له القيمة 0 ولهذا فانك لكي تحذف السطر رقم 30 يجب ان تختار رقم 29
جرب الكود التالي:
فهذا يكون كالتالي:
تقوم بتعريف مصفوفة نصية وتسند لها قيمة 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 Sub28-04-20, 04:10 AM
(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