وعليكم اسلام ورحمة الله وبركاته
مرحباً اخى ليل الصيف
فى البداية الرجاء الانتباه الى اسم عنوان الموضوع
بحيث ان يكون عنوان الموضوع هو وصف المشكلة تجنباً لعدم حذف الموضوع للمخالفة
بخصوص المشكلة التى لديك
هو لم يوم بتحويل ليعرض ارقام/ارقام/ نص
ولكن بسبب ان النص عربي فاصبح الرؤية للشكل عبارة عن ارقام/ارقام/نص
لتوضح الصورة اكثر انظر الى هذا الكود يمكنك تطبيقه فى اى زر
كود :
Dim dd As String = "123/اوك/654"
Dim kk As String = "123/ok/987"
MsgBox(dd)
MsgBox(kk)
ستلاحظ من وضع وشكل الكود انه يعرض كما انت تقول كا مشكلة
ولكن فى الحقيقة اذا قمت بنسخ النص وقمت بلصقها فى اى مكان وليكن Notepad
ستجد انه ايضاً رقم/نص/رقم
طيب الان كيف يتم حل المشكلة حتى يعرض الناتج بالصورة الطبيعية وهوو رقم/نص/رقم
كل ما عليك فعله هو التالى
ضع هذا الـ Function
كود :
Function Right_Left(ByRef Tools As Control, ByVal Text As String) As String
Dim ArabicKey As String = "ذدجحخهعغفقثصضطكمنتالبيسشظزوةىرؤءئّ؛إًٌَُ،ـأٍِ؟آْ"
For ii As Integer = 0 To ArabicKey.Length - 1
If Text.Contains(ArabicKey(ii)) Then
Tools.RightToLeft = RightToLeft.Yes
Exit For
Else
Tools.RightToLeft = RightToLeft.No
End If
Next
Tools.Text = Text
Return Tools.Focus
End Function
ثم تعال نعيد امر الكود الذى كان بالاعلى بطريقة ايجابية الصورة ولاحظ ان اليمة لم تتغير بعد
كود :
Dim ar = "123\اوك\456"
Dim en = "123\ok\456"
Right_Left(TextBox1, ar)
MsgBox(en)
ستلاحظ ان عند احتواء القيمة الى نص عربي سيقوم بتوجيه الـ TextBox من اليمين الى اليسار
وبكده تكون حليت مشكلة قراءة الشكل من رقم/رقم/نص ليصبح بطبيعته وهو رقم/نص/رقم
تحياتى لك
وتمنياتى لك التوفيق
لكل من يقوم بالمساهمة