[learning.net]

اخى الكريم

بالرغم انى لم افهم المطلوب بشكل جيد ولكن اعتقد انك تريد ان تجعل لغة الكتابه فى اكثر من فورم (او اكثر من اداه... مثل تكست بوكس ...وغيره)
عموما يمكنك ان تتبع الاتى وتخبرنى بالنتيجه

أضف موديول وضع هذا الكود فى داخله

PHP كود :

Module Module1
    Public Declare Function loadkb Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal Flags As Long) As Long
    Public Sub toAr()
        loadkb("00000401", &H2)
        Dim arlang As New System.Globalization.CultureInfo("ar")
        InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(arlang)
    End Sub
    Public Sub toEn()
        Dim enlang As New System.Globalization.CultureInfo("en")
        InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(enlang)
    End Sub
End Module 


الان
اذا كنت تريد ان تكون لغة الادخال فى كل الادوات على الفورم هى اللغه العربيه .... فقط ضع هذا الكود فى حدث تحميل الفورم
وطبعا يمكنك وضع هذا الكود فى اى فورم تريد (بمعنى انك يمكنك ان تضعه فى حدث التحميل لكل فورم تريد ان تكون لغة الادخال فيه هى اللغه العربيه )

PHP كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        toAr()
    End Sub 


ويمكنك إستثناء بعض الادوات التى تريد ان تكون لغة الادخال فيها هى اللغه الانجليزيه ...بوضع هذا الكود فى حدث ال GotFocus للاداه اللتى تريدها

PHP كود :

Private Sub TextBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.GotFocus
        toEn()
    End Sub 


اما اذا كنت تريد ان تحدد بعض الادوات على الفورم لتكون لغة الادخال فيها هى (اللغه العربيه ....مثلا) يمكنك ذلك بتجميع الادوات اللتى تريدها فى حدث واحد ... مثل هذا الكود

PHP كود :

Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus, RichTextBox1.GotFocus, MaskedTextBox1.GotFocus, ListBox1.GotFocus, ComboBox1.GotFocus
            toAr()
    End Sub 


لاحظ بعد كلمة Handles لقد اضفت بعض الادوات فى حدث واحد
(وللامانه العلميه هذه الطريقه ماكنت اعرفها قبل ان يشرحها اخى وصديقى sooriaty03 فى مشاركات سابقه.... بارك الله فيه وفى امثاله)

واذا كنت تريد ان تتأكد ان لغة الادخال الحاليه ليست اللغه العربيه قبل التغيير يمكنك بهذه الطريقه

PHP كود :

If Not InputLanguage.CurrentInputLanguage.Culture.Name.Contains("ar") Then
            toAr()
        End If 


او الانجليزيه

PHP كود :

If InputLanguage.CurrentInputLanguage.Culture.Name.Contains("ar") Then
            toEn()
        End If 


اتمنى ان اكون وفقت فى فهم المقصود

بالتوفيق للجميع ان شاء الله