تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] تحويل لغة الكتابة تلقائيا
#1
السلام عليكم و رحمة الله و بركاته ..

ممكن كود تحويل لغة الكتابة تلقائيا بين العربية و الفرنسية

يعني عند الكتابة في Text1 يكتب عربي
وعند الكتابة في Text2 يكتب فرنسي


وشكرا
الرد
تم الشكر بواسطة:
#2
.....

منقول

ضع هذا الكود في مديول Module مستقل ولتسمه mdl_Language
كود :
Option Explicit
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Enum ELanguage
    Ar      '' اللغة العربية
    En      '' اللغة الإنجليزية
    Fr      '' اللغة الفرنسية
End Enum

Public Sub Langauge(lang As ELanguage)
    Select Case lang
        Case ELanguage.Ar
            LoadKeyboardLayout "00000401", 1
        Case ELanguage.En
            LoadKeyboardLayout "00000409", 1
        Case ELanguage.Fr
            LoadKeyboardLayout "0000040C", 1
    End Select
End Sub

استخدم هذه الطريقة في اختيار اللغة لكل TextBox من خلال حدث GotFocus لكل واحد منهم مثل
كود :
Private Sub Text1_GotFocus()
     Langauge ELanguage.Ar
End Sub


Private Sub Text2_GotFocus()
     Langauge ELanguage.Fr
End Sub

.....
الرد
#3
بارك الله فيك الأخ vbnet على المساعدة
الرد
تم الشكر بواسطة: السيد الغالي , Ahmed_Mansoor
#4
Thumbs Up 
مشكور كتير
 تسلم على المجهود الرائع


                    ...............................................................
الرد
تم الشكر بواسطة: elgokr , السيد الغالي , Ahmed_Mansoor , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تعديل على كود تحويل الرقم الى نص(التفقيط) رجاءً haider kh 2 162 26-03-19, 09:10 PM
آخر رد: Microformt
  تحويل الارقام من الانجليزية للعربية dr.mostashar 7 362 22-02-19, 09:57 PM
آخر رد: AL_BRNS
  من فضلكم طريقة رجو الكتابة الى اليمين في msflexgrid tighrmte 3 162 04-02-19, 05:48 PM
آخر رد: tighrmte
  سؤال - كيف يتم تحويل المصفوفه الثنائيه الى احاديه اسامه الجبوري 5 380 01-01-19, 04:44 PM
آخر رد: عبدالله الصافي
  [vb6.0] كيف احفظ ملف اكسل تم التعديل عليه باسم جديد و يتغير في كل مرة تلقائيا king basel 4 398 05-10-18, 12:24 AM
آخر رد: السيد الغالي
Question [vb6.0] هل يمكن نقل موشر الكتابة الى Label مثل زر الامر الذي في الصورة المرفقة؟؟ Microformt 1 315 07-06-18, 10:32 PM
آخر رد: Amir_Alzubidy
  تحويل من ملف اكسل الى اكسس hannileo 4 501 07-05-18, 09:43 AM
آخر رد: hannileo
  [سؤال] تحويل مؤشر الكتابة الى اللغة العربية ناجح احمد 4 637 25-01-18, 05:27 PM
آخر رد: awidan76
Question [vb6.0] كيف يمكن تحويل برنامج من32 بات الى 64 بات ؟ Microformt 0 352 25-01-18, 05:24 AM
آخر رد: Microformt
  مشكلة في تحويل التاريخ dr.mostashar 2 366 18-01-18, 12:28 AM
آخر رد: dr.mostashar

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


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