تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف أقلب النص في تكست بوكس
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم مسألة قلب النص سهلة ولكن اين ستضع النص ؟ ومن اين ستأخذه هل تجلب النص الى مربع نص  وتريد قلبه 
الشيء الاخر جرى تقطيع النص بوساطة المسافة الفارغة بين الكلمات
اليك هذا الكود جيث انني افترضت انك جلبت النص الموجود في العمود الذي تقصده الى مربع نص
ضع الكود في بوتون 
كود :
 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
 وهذا كود أخر يعتمد على الدالة Reverse  اي عكس المصفوفة
كود :
  Dim txt() As String = TextBox1.Text.Split(" ")
       TextBox1.Text = ""
       For Each t As String In txt.Reverse()
           TextBox1.Text &= t & " "
       Next
يمكنك التقطيع بناء على الفاصلة انا لم انتبه الى ماتريد ظننت انك تريد قلب الكل
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: WaeLx , ابو روضة , المهنا , المهنا


الردود في هذا الموضوع
RE: كيف أقلب النص في تكست بوكس - بواسطة ابراهيم ايبو - 13-07-20, 11:40 PM


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


يقوم بقرائة الموضوع: