05-12-19, 05:49 AM
(آخر تعديل لهذه المشاركة : 05-12-19, 05:54 AM {2} بواسطة bakriano30@yahoo.com.)
(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 تكست بوكس النص بالنهاية
مع مراعاه ال نيو لاين كيف يتم جربت اغير علي الهذا الكود لم ينجح معي يضيف النص الي اول سطر فقط
ولو وضعت شئ في تكست النهايه يضعه في اخر الكلام من الاسفل فقط