تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحويل النص تلقائيا للعربية او الانجليزية
#1
استعملت هذا الكود لتحويل اللغة داخل اي تكست بوكس الى العربية  
 InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages().Item(0)

المشكلة على جهاز الشغل تكتب عربي وعلى جهاز البيت تكتب انجليزي  

وين المشكلة بارك الله فيكم
الرد
تم الشكر بواسطة:
#2
[مثال] طريقة تغيير لغة الإدخال بشريط المهام
الرد
تم الشكر بواسطة:
#3
بارك الله فيك تمام
الرد
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله
الكود صحيح 

 InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages().Item(0)
يوضع الكود في حدث مربع النص GetFocus
ولكن المشكلة لديك في اللغة الافتراضية لجهاز الكمبيوتر
حيث يستخدم الرقم (0) للغة الافتراضية والرقم (1) للغة الثانوية
غير الرقم 0 في الجهاز الثاني الى 1 سيعمل الكود انشاء الله
الرد
تم الشكر بواسطة:
#5
لتحويل لغة الكتابة إلى عربي ضع الكود التالي في حدث مربع النص GetFocus :


كود :
 Dim lang As InputLanguage
 For Each lang In InputLanguage.InstalledInputLanguages
  If lang.Culture.EnglishName.ToUpper Like "*arabic*".ToUpper Then
       InputLanguage.CurrentInputLanguage = lang
  End If
 Next

وللإنجليزي ضع الكود التالي في حدث مربع النص GetFocus :


كود :
 Dim lang As InputLanguage
 For Each lang In InputLanguage.InstalledInputLanguages
   If Not lang.Culture.EnglishName.ToUpper Like "*arabic*".ToUpper Then
      InputLanguage.CurrentInputLanguage = lang
   End If
 Next
الرد
تم الشكر بواسطة: عبد العزيز البسكري , waelalmsry75
#6
ع وضعك شكرا يا اخي
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] هل يمكن تحويل مشروع الي ملف DLL saleh101 1 218 14-08-20, 02:14 AM
آخر رد: asemshahen5
  [سؤال] تحويل نص يحتوي عملية الى عملية حسابية عبد الهادي بهاب 4 309 09-08-20, 02:29 AM
آخر رد: عبد الهادي بهاب
  [سؤال] ما هي أسرع طريقة وأضمنها لحذف كل شيء من النص باستثناء الحروف العربية؟ السندبااد 3 376 02-08-20, 05:07 PM
آخر رد: Anas Mahmoud
  كيف أقلب النص في تكست بوكس المهنا 3 396 14-07-20, 06:33 PM
آخر رد: ابراهيم ايبو
  هل يمكن تحويل Print Document إلى PDF ؟ Hazem1 1 276 04-07-20, 11:36 AM
آخر رد: Hazem1
  ضبط النص في التقرير DOX.1 2 409 04-07-20, 12:25 AM
آخر رد: DOX.1
  سؤال في محدات النص في الدتا قريد ahmedbezia 6 445 01-07-20, 07:07 PM
آخر رد: عبد العزيز البسكري
  تحويل من سي شارب ssayed111 0 226 22-06-20, 03:28 PM
آخر رد: ssayed111
  [VB.NET] تحويل القيمة فارغة الي صفر في قاعدة البيانات sql Codack 2 332 16-06-20, 06:43 PM
آخر رد: kiki
  هل يمكن تحويل تطبيق من لغة الفيجوال بيسك إلى الأندرويد Hazem1 5 631 06-06-20, 11:57 PM
آخر رد: WaeLx

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


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