منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تغيير اماكن الاسطر في التكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تغيير اماكن الاسطر في التكست بوكس (/showthread.php?tid=23683)



تغيير اماكن الاسطر في التكست بوكس - bidaya - 05-02-18

السلام عليكم

لقد بحثت في المنتدى على طريقة تغيير اماكن الاسطر في التكست بوكست ولم اجد شيء من هذا القبيل
الشطر الاول من السؤال هو
مثال لديا تكست بوكس به عدة اسطر


123456
456789
789123
147258

اريد كود لما  اظغط على زر مثلا يصبح الترتيب هكذا

456789
789123
147258
123456

اي كلما ضغطت على الزر ينتقل الرقم 2 الى 1 و3 الى2 والخ....
والشطر الثاني هو
لما اظغط على الزر لتتغير اماكن الاسطر
السطر الاول يكتب في تكست بوكس اخر
 اتمنى ان سؤالي واضح واتمنى ان اجد الكود لديكم ايها الاساتذة الكرام
وجزاكم الله خيرا 
Huh



RE: تغيير اماكن الاسطر في التكست بوكس - طالب برمجة - 05-02-18

PHP كود :
Dim list As New List(Of String)(TextBox1.Lines)
If list.
Count 0 Then
    TextBox2
.Text = list(0)
    list.
RemoveAt(0)
    
TextBox1.Text String.Join(vbCrLf, list)
Else
    
TextBox2.Text ""
End If 



RE: تغيير اماكن الاسطر في التكست بوكس - bidaya - 05-02-18

(05-02-18, 04:01 AM)طالب برمجة كتب :
PHP كود :
Dim list As New List(Of String)(TextBox1.Lines)
If list.
Count 0 Then
    TextBox2
.Text = list(0)
 
   list.RemoveAt(0)
 
   TextBox1.Text String.Join(vbCrLf, list)
Else
 
   TextBox2.Text ""
End If 

الله يحفظك اخي الكود جد ممتاز
جزاك الله خيرا