منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : الكتابة من Textbox1 الى Textbox2
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم ....

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

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

إقتباس :
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


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


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

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

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

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

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

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


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

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

هل هذا قصدك؟

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

كما طلبت اولا ... اقصد كما طلبت طباعة الاتي :
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*

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

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



كود :
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
للاسف لم ينجح الا اذا كان يوجد فراغين ام اكثر لا ينجح

السلام عليكم

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

تحياتي
الصفحات : 1 2