تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
محتاج كود اضافه
#1
فورم بها عناصر كما هو واضح بالصوره تكست بوكس القائمه وتكست بوكس النتيجه 
وعدد 2 تكست بوكس لي نص البدايه و نص النهايه
اريد عند اضافه اسم او رقم او حرف في خانه نص البدايه او نص النهايه 
والضغط علي زر بدء يتم اضافه النصوص كما هو موضح انا مش عارف اوصف كويس ولكن الصوره ممكن توصف اللي محتاجه 
محتاج انفذ هذا المشروع البسيط
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

فقط غير اسم التكست الموجودات الى الاسم الذي وضعته بالكود


    
كود :
For Each txt As String In ListText.Text.Split(vbNewLine) 'ListText هو تكست بوكس القائمة
           ResultText.Text &= Ftext.Text & txt & Stext.Text & vbNewLine ' ResultText هو التكست بوكس للنتيجة
       Next 'Ftext  تكست بوكس النص بالبداية=====Stext تكست بوكس النص بالنهاية
الرد
تم الشكر بواسطة: ابو روضة , asemshahen5 , علي بنيان
#3
(05-12-19, 05:15 AM)3booody كتب : السلام عليكم ورحمة الله وبركاته

فقط غير اسم التكست الموجودات الى الاسم الذي وضعته بالكود


    
كود :
For Each txt As String In ListText.Text.Split(vbNewLine) 'ListText هو تكست بوكس القائمة
           ResultText.Text &= Ftext.Text & txt & Stext.Text & vbNewLine ' ResultText هو التكست بوكس للنتيجة
       Next 'Ftext  تكست بوكس النص بالبداية=====Stext تكست بوكس النص بالنهاية
شكرا لك اخ عبودي يا متألق دائما ولكت معلش لو حبيت اغير تكست بوكس القائمه والنتيجه الي ريتش بوكس بحيث الريتش بوكس بيكون منظم اكتر 
مع مراعاه ال نيو لاين كيف يتم جربت اغير علي الهذا الكود لم ينجح معي يضيف النص الي اول سطر فقط 
ولو وضعت شئ في تكست النهايه يضعه في اخر الكلام من الاسفل فقط
الرد
تم الشكر بواسطة: 3booody , 3booody , asemshahen5
#4
نعم اخي هاي بسبب RichTextBox تعتبره نص واحد لازم تغير الكود بهذا الشكل



كود :
For Each txt As String In RichTextBox1.Lines
           RichTextBox2.Text &= TextBox1.Text & txt & TextBox2.Text & vbNewLine
       Next
الرد
#5
(05-12-19, 12:09 PM)3booody كتب : نعم اخي هاي بسبب RichTextBox تعتبره نص واحد لازم تغير الكود بهذا الشكل



كود :
For Each txt As String In RichTextBox1.Lines
           RichTextBox2.Text &= TextBox1.Text & txt & TextBox2.Text & vbNewLine
       Next

معلش يا اخ عبودي انا برضو بتعلم منكم ممكن شرح للكود انا اسف  علشان افهمه بس الفهم اهم من الكود
الرد
تم الشكر بواسطة: 3booody , 3booody , asemshahen5
#6
ولايهمك اخي تدلل

كود :
For Each txt As String In RichTextBox1.Lines


الكود السابق عبارة عن حلقة تكرارية لمتغير نصي يأخذ قيمته من جميع اسطر ال RichTextBox وبالترتيب من الاعلى للأسفل

اما هذا الكود


كود :
RichTextBox2.Text &= TextBox1.Text & txt & TextBox2.Text & vbNewLine


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

يعني اول سطر من RichTextBox القائمة يضاف الى RichTextBox النتيجة بالتغيير الموضع   ثم تقوم الحلقة التكرارية بالتغيير للسطر الثاني ثم يضاف وهكذا .... الى نهاية الاسطر 

ان شاء الله يكون الشرح مفهوم تحياتي لك اخي
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج كود لفترة صور داخل ليست فيور عن طريق ليست فيو أخرى بالضغط على الصورة mohamedgadain61 2 108 21-01-20, 03:22 AM
آخر رد: mohamedgadain61
  محتاج كود بسيط في الليست بوكس اليوم السابع 5 133 20-01-20, 05:11 PM
آخر رد: اليوم السابع
  [VB.NET] محتاج مساعدة في اضافة حقل جديدة من نوع صورة محمدالزند 0 64 17-01-20, 03:28 PM
آخر رد: محمدالزند
  محتاج كود اخفاء واظهار الزر من فظلكم sofiane-phy 5 257 15-01-20, 01:29 PM
آخر رد: mohammed drem
  محتاج برنامج جاهز او كود تغير ال الاي بي كل ثانيه اتوماتيك ahmedhhh2 9 309 28-12-19, 02:32 AM
آخر رد: ahmedhhh2
  محتاج استعلام يظهر لي الفرق بين تاريخين و كمان تساعات بسام محمدغانم 2 166 12-12-19, 11:56 AM
آخر رد: العتيق
  محتاج كود او نموذج للحفظ من التاتا جريد فيو مثال بسيط في ملف مرفق بسام محمدغانم 0 125 08-12-19, 02:17 AM
آخر رد: بسام محمدغانم
  [VB.NET] محتاج مساعدتكم في كود بسيط اليوم السابع 4 167 23-11-19, 10:14 AM
آخر رد: حريف برمجة
Lightbulb [VB.NET] محتاج كود من العباقره moha8080 1 144 21-11-19, 02:42 AM
آخر رد: boudyonline
  محتاج مساعدة في التقارير rojbany 4 227 15-11-19, 12:17 AM
آخر رد: rojbany

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


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