[bidaya]

السلام عليكم

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


123456
456789
789123
147258

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

456789
789123
147258
123456

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

[طالب برمجة]

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 


[bidaya]

(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 


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