تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الكتابة من Textbox1 الى Textbox2
#1
السلام عليكم ....

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

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

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


بالتوفيق
الرد }}}}
تم الشكر بواسطة: Mr.ILI
#3
شكرا اخي ولكن لو تككر فراغين مثلا " " سوف يضع سطرين ولكن اريد ان يضع سطر جديد والفراغ الثاني " " في نفس السطر الجديد


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

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

الفراغ الثاني في نفس السطر الجديد
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

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

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

تحياتي
الرد }}}}
تم الشكر بواسطة: Mr.ILI
#5
لم تنجح ... نفس نتيجة الكود السابق


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

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

هل هذا قصدك؟

تحياتي
الرد }}}}
تم الشكر بواسطة: Mr.ILI
#7
لا ليس هذا قصدي ...

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

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

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



كود :
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
الرد }}}}
تم الشكر بواسطة: Mr.ILI
#9
للاسف لم ينجح الا اذا كان يوجد فراغين ام اكثر لا ينجح

الرد }}}}
تم الشكر بواسطة:
#10
السلام عليكم

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 

تحياتي
الرد }}}}
تم الشكر بواسطة: Mr.ILI


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] الكتابة في الملف dubai.eig 3 97 30-11-16, 11:31 AM
آخر رد: dubai.eig
  الكتابة فى ملف text Mohamed20 1 66 31-10-16, 11:39 PM
آخر رد: silverlight
  عندما TextBox1.DataBinding.Add("text" , DataSet1 , Table.Field) Text كيف للصور thevirus 2 80 29-10-16, 06:31 PM
آخر رد: thevirus
  كيف تنسق الكتابة العربية في Report Viwer starosta 5 204 29-09-16, 10:55 PM
آخر رد: ابراهيم النعيمي
  [VB.NET] الكتابة في خلايا datagridview ومن ثم التعديل في الخلايا والحفظ dark1459 2 177 04-08-16, 11:25 PM
آخر رد: سعود
  [سؤال] OCR استخراج الكتابة من الصور mohamed haroon 4 208 23-06-16, 05:10 AM
آخر رد: محمد كريّم
  [سؤال] حفظ ملف pdf يدعم الكتابة بالعربي ali777 0 137 26-04-16, 03:08 PM
آخر رد: ali777
  [VB.NET] طلب : كود جمع العناصر من جدول بقاعدة البيانات + البحث بمجرد الكتابة في التكست بوكس hamada salah90 2 591 27-02-16, 10:19 AM
آخر رد: hamada salah90
  [سؤال] تحديد لغة الكتابة بال textbox yjmn 2 449 18-11-15, 02:05 PM
آخر رد: yjmn
  كيف اصل لقيمة textbox1.textlength من مسار مختلف سعود 11 1,011 06-10-15, 03:57 PM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم