+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حذف سطر من richtextbox (/showthread.php?tid=34491)
حذف سطر من richtextbox - makky - 28-04-20
عندي richtextbox عايز احذف السطر رقم 30.ممكن تتعمل ازاي
RE: حذف سطر من richtextbox - معاند الحظ - 28-04-20
اخي الكريم اذا كنت تقصد بحذف سطر ان تحذف النص الموجود فيه
فهذا يكون كالتالي:
تقوم بتعريف مصفوفة نصية وتسند لها قيمة 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 SubRE: حذف سطر من richtextbox - trakktour - 28-04-20
(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