زر التحكم في اللغة

[nabil09]

السلام عليكم : 

اريد عمل امرين عند الضغط على الزر 1 يختفي الزر2 والعكس صحيح عند الضغط على الزر2 يظهر1 وهذا لجعلهما فوق بعضهما والاول عليه اسم "عربي" والثاني "فرنسي" فعند الضغط على الزر عربي  يغير لوحة المفاتيح الى العربية ويظهر الزر عليه فرنسي والعكس صحيح ، او اذا هناك حل اخر فتفضلوا علي به اي زر يظهر اللغة الحالية وفي نفس الوقت عند الضغط عليه يبدل اللغة حسب اللغة الموجودة في الجهاز وشكرا لكم

[jjafferr]

وعليكم السلام 

 

بالنسبة لموضوع تحويل اللغة ، انظر هذا الرابط للأستاذ علي المصري:

http://www.officena.net/ib/topic/64622-كتابة-اللغة-في-مربع-نص-على-حسب-اختيار-المستخدم-من-القائمة-المنسدلة/?do=findComment&comment=420711

 

اعمل زر لكل لغة تريدها ، ولما يشتغل البرنامج ، ارفق البرنامج ، ونحن ان شاء الله نساعدك على الازرار 

 

 

جعفر

[nabil09]

شكرا لك استاذي جعفر

[nabil09]

استاذ جعفر لقد طبقت ما طلبته مني شيء جيد ولكن يعاب على هذا الكود انه عند اختيارنا اللغة مثلا عربية وذهبت الى مكان كتابة في غير المكان المحدد في الكود وكانت اللغة عند الفتح فرنسية لا تتغير اللغة العربية الا  بعد الكتابه في النص المحدد في الكود تكتب بالعربية فيه ثم تذهب الى مكان نص اخر كي تستطيع الكتابة بالعربية اي دائما الارتباط بالنص المتعلق به الكود ونحن نعمل عدة نصوص في النموذج وعدة نماذج كيف يصلح ذلك ،

2- لدي احد البرامج لاحد الاخوة جميل يغير لغة الجهاز مباشرة بمجرد الضغط عليه ، وزر اخر عند الضغط يظهر رسالة اللغة الحالية ، من هذه الفكرة اردت لو نظغط على زر تبديل اللغة فيغير اللغة وفي نفس الوقت يظهر الزر باللغة الحالية وعند الضغط في كل مرة يغير اللغة وكذلك اسم هذا الزر اي يظهر مباشرة اللغة الحالية ان امكن سارفق لك الملف بعد الانجاز وكذا الملف الذي تكلمت عليه في النقطة 2 والسلام

 

 

Database changer.rar

Arabic.rar

[jjafferr]

السلام عليكم أخي نبيل 

 

تفضل:

.

ولكن الكود لن يعمل اذا رقم اللغة لم يكن صحيحا في الكود 

 

وهذا هو الكود:

Option Compare Database

Private Declare Function ActivateKeyboardLayout Lib _
                "user32.dll" (ByVal myLanguage As Long, Flag As Boolean) As Long

Private Const Ar = 5121   'Arabic United Arab Emirates keyboard language layout, Oman 8193
Private Const Fr = 1036   'Français(united states)keyboard language layout
Private Const En = 1033     'US

Private Sub cmd_Change_Language_Click()

    'go back to the same field we were in, but to the end of it
    Dim ctl As Access.Control
    Set ctl = Screen.PreviousControl    'the last control we were on
    ctl.SetFocus                        'set the focus back to it
    ctl.SelStart = Len(ctl.Text)        'go to the end of the field, so that we can continue writing
    
    
    If Me.cmd_Change_Language.Caption = "Arabic" Then
    
        Me.cmd_Change_Language.Caption = "French"
        Call ActivateKeyboardLayout(Ar, 0)
        
    ElseIf Me.cmd_Change_Language.Caption = "French" Then
        
        Me.cmd_Change_Language.Caption = "Arabic"
        Call ActivateKeyboardLayout(Fr, 0)
    
    End If
    
End Sub

Private Sub Form_Load()

    'start with Arabic
    Call ActivateKeyboardLayout(Ar, 0)
End Sub


وهذا للقائمة المنسدلة

Private Sub textlog_AfterUpdate()

    If Me.textlog.Value = "Arabic" Then
        Call ActivateKeyboardLayout(Ar, 0)

    ElseIf Me.textlog.Value = "French" Then
        Call ActivateKeyboardLayout(Fr, 0)
    
    End If
    
End Sub

.

 

 

جعفر

 

 

283.Database changer.accdb.zip

[nabil09]

وعليكم السلام أستاذ جعفر ، انا حقا اشكرك جزيل الشكر ويا رب فاستر استاذنا جعفر و ارفعه بالعلم الدرجات العلا وسهل له كل الامور كما يسسهل علينا حل مشاكلنا ،

والله حل سليم ورائع وهو المطلوب من سيادتكم الموقرة بل اكثر حلين في وقت واحد انت ما قصرت وربنا يوفقك 

[jjafferr]