تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود dell 0 48 19-03-24, 01:23 AM
آخر رد: dell
  [VB.NET] السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 Coder_iraqii 4 400 18-12-23, 06:46 PM
آخر رد: Kamil
Rainbow [سؤال] إضافة شريط ضبط الكتابة في أداة RichTextBox أبو خالد الشكري 0 217 29-10-23, 08:19 AM
آخر رد: أبو خالد الشكري
  مشكله عند طباعه الباركود الكتابة تظهر بهتة في خيال والنقاط قريبه من بعض غيرت الفونت ahmedhhh2 11 786 30-09-23, 08:31 AM
آخر رد: atefkhalf2004
  الكتابة داخل ملف نصى ابو روضة 6 898 07-04-23, 11:43 AM
آخر رد: kebboud
  تغيير مؤشر الكتابة hamoeljinn 4 590 06-04-23, 12:55 PM
آخر رد: أبو خالد الشكري
  كيف يمكن الكتابة على الفورم اسلام الكبابى 7 886 07-09-22, 01:01 AM
آخر رد: أبو خالد الشكري
  مشكل تداخل الكتابة بعد الطباعة ADAM12 0 595 12-05-22, 04:32 AM
آخر رد: ADAM12
  [VB.NET] الكتابة على السي دي naseef 1 787 15-03-22, 05:48 PM
آخر رد: asmarsou
  [سؤال] الكتابة مباشرة دون استعمال الحفظ safralfahd 2 1,006 06-02-22, 10:38 PM
آخر رد: safralfahd

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


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