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