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

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

الصفحات: 1 2

الكتابة من Textbox1 الى Textbox2 - Mr.ILI - 11-12-13

السلام عليكم ....

كيف يمكن الكتابة من TextBox1 يحتوي مثلا على المحتوى الاتي :
111 111 555 000 555 000 54354 dfgdfg fgdf dgdf
بحيث يقوم الكتابة ال textbox2 ويظهر الناتيج في Textbox2 كالاتي :
111
111
555
000
555
000
54354
.
.
.
وهكذا اي اقصد ان يطبع كل جملة(String) بعدها فرغ في سطر على حدى بالترتيب

RE: الكتابة من Textbox1 الى Textbox2 - sooriaty03 - 11-12-13

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

إقتباس :
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
TextBox2.Multiline = True
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox2.Text = TextBox1.Text.Replace(" ", vbNewLine) 'Replace Space With New Line
End Sub


بالتوفيق

RE: الكتابة من Textbox1 الى Textbox2 - Mr.ILI - 11-12-13

شكرا اخي ولكن لو تككر فراغين مثلا " " سوف يضع سطرين ولكن اريد ان يضع سطر جديد والفراغ الثاني " " في نفس السطر الجديد


يعني مثال :
5 5
هنا بين 5 و 5 فراغين

واريده ان يطبع الاتي
5
5

الفراغ الثاني في نفس السطر الجديد

RE: الكتابة من Textbox1 الى Textbox2 - Sajad - 11-12-13

السلام عليكم

جرب هذا الكود:

PHP كود :
For Each o As String In TextBox3.Text.Split(" ")
            TextBox4.Text += o + vbNewLine
        Next 

تحياتي

RE: الكتابة من Textbox1 الى Textbox2 - Mr.ILI - 11-12-13

لم تنجح ... نفس نتيجة الكود السابق


يمكن حل المشكلة باستبدال الفراغ برمز معين مثلا -
ولكن المشكلة انه اذا وجد - آخر الهدف منه اظهاره كرمز وليس كسطر جديد

RE: الكتابة من Textbox1 الى Textbox2 - Sajad - 11-12-13

اخي العزيز طلبك غير واضح

هل قصدك عند الكتابة في text1 يتم الفصل اثناء الكتابة في الtext2؟

هل هذا قصدك؟

تحياتي

RE: الكتابة من Textbox1 الى Textbox2 - Mr.ILI - 11-12-13

لا ليس هذا قصدي ...

كما طلبت اولا ... اقصد كما طلبت طباعة الاتي :
55 00 11 00 55
على الشكل الاتي :
55
00
11
00
55

والكود الاتي نجح :

إقتباس :Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
TextBox2.Multiline = True
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox2.Text = TextBox1.Text.Replace(" ", vbNewLine) 'Replace Space With New Line
End Sub

ولكن ما قصدته كما تلاحظ فان الارقام الموجودة في textbox1 بينها فراغ واحد
ولكن سيحدث خطأ انه اذا كان بين الارقام فراغين ...

مثال : بينهم فراغ
إقتباس :55 00 11 00 11

مثال : عندما يكون بينهم فراغيين :
إقتباس :55 00 11 00* 11
كما تلاحظ فانه بين 11 و 00 هنا فراغيين وليس فراغ وهذا سيطبع سطر جديد ليس فيه شيء
* : تمثل فراغين ... ولا اريده برمجيا ولكن فقط للتوضيح
سيطبع الاتي في Textbox2 :
إقتباس :55
00
11
00

11


ولكن اريده ان يطبع الاتي :

إقتباس :55
00
11
00
11*

* : تمثل فراغ ... ولا اريده برمجيا ولكن فقط للتوضيح

RE: الكتابة من Textbox1 الى Textbox2 - sooriaty03 - 11-12-13

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم
استبدل الكود السابق بالتالي:



كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox2.Text = TextBox1.Text.Replace(" ", vbNewLine).Replace(vbNewLine & vbNewLine, vbNewLine & " ")
End Sub


RE: الكتابة من Textbox1 الى Textbox2 - Mr.ILI - 11-12-13

للاسف لم ينجح الا اذا كان يوجد فراغين ام اكثر لا ينجح



RE: الكتابة من Textbox1 الى Textbox2 - Sajad - 11-12-13

السلام عليكم

PHP كود :
For i = 0 To TextBox3.Text.Length - 1
            If TextBox3.Text(i) = " " Then
                TextBox4.Text += vbNewLine
            Else
                TextBox4.Text += TextBox3.Text(i)
            End If
        Next 

تحياتي