فورم بها عناصر كما هو واضح بالصوره تكست بوكس القائمه وتكست بوكس النتيجه
وعدد 2 تكست بوكس لي نص البدايه و نص النهايه
اريد عند اضافه اسم او رقم او حرف في خانه نص البدايه او نص النهايه
والضغط علي زر بدء يتم اضافه النصوص كما هو موضح انا مش عارف اوصف كويس ولكن الصوره ممكن توصف اللي محتاجه
محتاج انفذ هذا المشروع البسيط
السلام عليكم ورحمة الله وبركاته
فقط غير اسم التكست الموجودات الى الاسم الذي وضعته بالكود
كود :
For Each txt As String In ListText.Text.Split(vbNewLine) 'ListText هو تكست بوكس القائمة
ResultText.Text &= Ftext.Text & txt & Stext.Text & vbNewLine ' ResultText هو التكست بوكس للنتيجة
Next 'Ftext تكست بوكس النص بالبداية=====Stext تكست بوكس النص بالنهاية
(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 تكست بوكس النص بالنهاية
شكرا لك اخ عبودي يا متألق دائما ولكت معلش لو حبيت اغير تكست بوكس القائمه والنتيجه الي ريتش بوكس بحيث الريتش بوكس بيكون منظم اكتر
مع مراعاه ال نيو لاين كيف يتم جربت اغير علي الهذا الكود لم ينجح معي يضيف النص الي اول سطر فقط
ولو وضعت شئ في تكست النهايه يضعه في اخر الكلام من الاسفل فقط
نعم اخي هاي بسبب RichTextBox تعتبره نص واحد لازم تغير الكود بهذا الشكل
كود :
For Each txt As String In RichTextBox1.Lines
RichTextBox2.Text &= TextBox1.Text & txt & TextBox2.Text & vbNewLine
Next
(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
معلش يا اخ عبودي انا برضو بتعلم منكم ممكن شرح للكود انا اسف علشان افهمه بس الفهم اهم من الكود
ولايهمك اخي تدلل
كود :
For Each txt As String In RichTextBox1.Lines
الكود السابق عبارة عن حلقة تكرارية لمتغير نصي يأخذ قيمته من جميع اسطر ال RichTextBox وبالترتيب من الاعلى للأسفل
اما هذا الكود
كود :
RichTextBox2.Text &= TextBox1.Text & txt & TextBox2.Text & vbNewLine
فهو يضيف السطر المأخوذ من الحلقة التكرارية بأضافة التكست بوكس الاول والثاني في البداية والنهاية للمتغير النصي مع سطر جديد
يعني اول سطر من RichTextBox القائمة يضاف الى RichTextBox النتيجة بالتغيير الموضع ثم تقوم الحلقة التكرارية بالتغيير للسطر الثاني ثم يضاف وهكذا .... الى نهاية الاسطر
ان شاء الله يكون الشرح مفهوم تحياتي لك اخي