تقييم الموضوع :
  • 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 على المساعدة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحويل من hex الى string wolf1120 3 148 02-10-17, 09:04 PM
آخر رد: wolf1120
  [كود] تحويل تاريخ الى نص Microsoft Visual Basic 6.0 4 78 22-09-17, 01:46 AM
آخر رد: Microsoft Visual Basic 6.0
  تحويل من الهيكس الى الديسمال wolf1120 1 71 21-09-17, 06:41 PM
آخر رد: أبو نوره
  [سؤال] اظهار مؤشر الماوس و إخفاءه تلقائيا Alhootti1 6 141 05-09-17, 01:15 AM
آخر رد: Alhootti1
Question [vb6.0] كيف انشي زر امر يحول موشر الكتابة من عربي الى انجليزي والعكس ؟؟ Microformt 3 92 04-09-17, 05:21 PM
آخر رد: Microformt
  طلب تحويل قاعدة بيانات أكس إلى ملف dll مصمم هاوي 2 128 16-07-17, 08:01 AM
آخر رد: مصمم هاوي
  [vb6.0] حل مشكلة الكتابة باللغة العربية في أداة Microsoft Forms 2.0 Object Library larbihamri 5 217 01-07-17, 02:58 PM
آخر رد: larbihamri
  هل يمكن توسيط الكتابة في الكومبوكس مصمم هاوي 2 168 18-06-17, 02:13 AM
آخر رد: مصمم هاوي
  [vb6.0] كود توسيط الكتابة في الداتا قريد أثناء تفعيل خاصية من اليمين الى اليسار larbihamri 5 246 22-05-17, 12:06 AM
آخر رد: larbihamri
  [سؤال] كود عدم الكتابة داخل combo box Ahmed Abdulla 11 3,706 18-05-17, 02:05 AM
آخر رد: عبد العزيز البسكري

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


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