تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مشكلة
#1
السلام عليكم

 حاليا استخدم فيجوال بيسك دوت نت 2008 مع SQL

المشكلة : اريد ان اظهر (ارقام/احرف/ارقام )... لكن دائما يغير الى (ارقام/ارقام/احرف) ... اتصور المشكلة في Setting لان في DB لاتوجد مشكلة يخزن
( ارقام/احرف/ارقام ) لكنه يعرض (ارقام/ارقام/احرف)
الرد
تم الشكر بواسطة:
#2
هذة المشكلة بسبب العلامة "/" بالتحديد مع الحروف العربية

مثال : المتوقع  (    أ هـ س/1234/م ع     )
         الحقيقة (   أ هـ س/م ع/1234      )



لو إستخدمة العلامة المعكوسة "\" لن تجد مشكلة

الحل :
إما أن تضع مسافة قبل وبعد العلامة  "/" 
لتصبح هكذا : (    أ هـ س / 1234 / م ع     )


أو أن تستخدم ( sample ) مختلف من نافذة :
   
وعند الضغط على لوحة المفاتيح قم بإستبدال العلامة الأصلية بالعلامة التي إخترتها من النافذة, وستظهر في مربع النص بشكل عادي ,
الرد
تم الشكر بواسطة: elgokr , ليل الصيف
#3
وعليكم اسلام ورحمة الله وبركاته

مرحباً اخى ليل الصيف
فى البداية الرجاء الانتباه الى اسم عنوان الموضوع
بحيث ان يكون عنوان الموضوع هو وصف المشكلة تجنباً لعدم حذف الموضوع للمخالفة

بخصوص المشكلة التى لديك
هو لم يوم بتحويل ليعرض ارقام/ارقام/ نص
ولكن بسبب ان النص عربي فاصبح الرؤية للشكل عبارة عن ارقام/ارقام/نص

لتوضح الصورة اكثر انظر الى هذا الكود يمكنك تطبيقه فى اى زر 
كود :
       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 من اليمين الى اليسار
وبكده تكون حليت مشكلة قراءة الشكل من رقم/رقم/نص ليصبح بطبيعته وهو رقم/نص/رقم

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى التعديل salah mansour 7 98 أمس, 02:39 PM
آخر رد: فراس محي
  [VB.NET] مشكلة في استخراج روابط هذه الصفحة بال HtmlAgilityPack mervandzz 2 42 13-10-18, 03:53 PM
آخر رد: mervandzz
  مشكلة فى اختفاء فورم salah mansour 0 35 12-10-18, 01:47 AM
آخر رد: salah mansour
  [VB.NET] مشكلة بكود التحديث لقاعدة البيانات محمد اسماعيل 4 90 11-10-18, 06:45 AM
آخر رد: محمد اسماعيل
  مشكلة فى تشغيل قارئ من بين جميع القراء ابو روضة 10 221 10-10-18, 12:00 AM
آخر رد: AymanRamadanSaad
  [VB.NET] مشكلة في كود تغيير لغة البرنامج ay.alhaj 13 196 09-10-18, 08:52 PM
آخر رد: ay.alhaj
  [سؤال] مشكلة في إرسال بيانات من الفيجوال الى الوورد سعود الشامان 7 351 08-10-18, 01:56 AM
آخر رد: عبد العزيز البسكري
  مشكلة الكرستال ريبورت DOX.1 1 45 07-10-18, 07:43 PM
آخر رد: rnmr
Photo [VB.NET] مشكلة فى قراءة ملف اكسيل كما فى الصورة المرفقة monm 5 133 05-10-18, 12:26 PM
آخر رد: asemshahen5
  مشكلة شاشة التوقف المتألق9 3 86 30-09-18, 02:16 PM
آخر رد: المتألق9

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم