13-07-20, 11:40 PM
(آخر تعديل لهذه المشاركة : 14-07-20, 11:52 AM {2} بواسطة ابراهيم ايبو.)
السلام عليكم ورحمة الله وبركاته
اخي الكريم مسألة قلب النص سهلة ولكن اين ستضع النص ؟ ومن اين ستأخذه هل تجلب النص الى مربع نص وتريد قلبه
الشيء الاخر جرى تقطيع النص بوساطة المسافة الفارغة بين الكلمات
اليك هذا الكود جيث انني افترضت انك جلبت النص الموجود في العمود الذي تقصده الى مربع نص
ضع الكود في بوتون
وهذا كود أخر يعتمد على الدالة Reverse اي عكس المصفوفة
يمكنك التقطيع بناء على الفاصلة انا لم انتبه الى ماتريد ظننت انك تريد قلب الكل
اخي الكريم مسألة قلب النص سهلة ولكن اين ستضع النص ؟ ومن اين ستأخذه هل تجلب النص الى مربع نص وتريد قلبه
الشيء الاخر جرى تقطيع النص بوساطة المسافة الفارغة بين الكلمات
اليك هذا الكود جيث انني افترضت انك جلبت النص الموجود في العمود الذي تقصده الى مربع نص
ضع الكود في بوتون
كود :
Dim txt() As String = TextBox1.Text.Split(" ")
TextBox1.Text = ""
For i As Integer = txt.Length - 1 To 0 Step -1
TextBox1.Text &= txt(i) & " "
Nextكود :
Dim txt() As String = TextBox1.Text.Split(" ")
TextBox1.Text = ""
For Each t As String In txt.Reverse()
TextBox1.Text &= t & " "
Nextاعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
