تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] سؤال حول تحويل الرقم لعملة في Msflexgrid جلال اليمني 3 408 28-08-23, 07:19 PM
آخر رد: جلال اليمني
  تحويل أكواد فيصل الحطامي 0 246 09-05-23, 04:45 PM
آخر رد: فيصل الحطامي
  تحويل أكواد فيصل الحطامي 0 227 09-05-23, 04:36 PM
آخر رد: فيصل الحطامي
  تحويل أكواد فيصل الحطامي 1 425 01-03-23, 02:37 AM
آخر رد: Amir_Alzubidy
  [vb6.0] المساعدة في تحويل كود بلغة ال VB.Net الى لغة ال VB6 وادي العوضي 0 371 16-12-22, 11:24 AM
آخر رد: وادي العوضي
Rainbow [سؤال] تحويل مشروع محمد مسافر 4 708 24-08-22, 03:36 PM
آخر رد: محمد مسافر
  السلام عليكم ورحمة الله وبركاته برجاء المساعدة فى تحويل تقرير اكتف ريبورت ل بى دي اف mhareek 9 2,540 28-11-20, 01:49 PM
آخر رد: sendbad100
  مشكلة عدم الكتابة في خلية الفليكس جريد awidan76 12 3,097 09-08-20, 11:32 AM
آخر رد: awidan76
  تحويل تاريخ الجهاز لفورمات محدد hannileo 1 1,232 16-04-20, 01:12 AM
آخر رد: AL_BRNS
  كيف يمكن تحويل برنامج الVB6 الى EXE اسلام الكبابى 3 1,810 22-03-20, 05:03 PM
آخر رد: اسلام الكبابى

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


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