[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 


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

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

[kafi]

[COLOR="#000080"]شكرا اخي
learning_Net
على ما تفضلت به

اكواد تبدو التعامل معها سهل وواضح،

[b]ولكــــــــــــــــــــــــــــن عند التجريب على مثالي ( اعمل على ونيدوز 8 _ فيجوال 12) لم تعمل تلك الاكواد التي تفضلت بها

واعطت رسالة خطاً كمايلي
[/COLOR][/b]

[learning.net]

اخى
الصوره غير واضحه تماما

[kafi]

شكرا اخي
learning.net
على تواصلك

كما اسلفت فان الكود، لم يعمل وتظهر رسالة خطأ
العمل على ( win8 + visual 12(

فيما يلي صورة اوضح للخطأ

[ATTACH=CONFIG]3225[/ATTACH]

[دمعة المقهور]

والله شباب نورتونا
من أول و أنا أعاني من هذه المشكله بس أبجرب هالأكواد

[learning.net]

اخى الكريم

انا ليس لدى ويندوز 8 ولا حتى فيجوال ستوديو 2012

ملحوظه:-
الكود الذى وضعته لك يغير الى اللغه العربيه حتى ولو كانت غير مثبته على الجهاز.

يمكنك مسح عن هذين السطرين

PHP كود :

Public Declare Function loadkb Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal Flags As Long) As Long 


و

PHP كود :

loadkb("00000401", &H2) 


وسيعمل معك البرنامج بشكل جيد ان شاء الله

اما اذا كنت تريد حل المشكله فيمكنك تجربة احدى هذه الطرق:

الطريقه الاولى
فى السطر

PHP كود :

Public Declare Function loadkb Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal Flags As Long) As Long 


غير long الى integer ليصبح هكذا

PHP كود :

Public Declare Function loadkb Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal Flags As Integer) As Integer 


الطريقه الثانيه
اضغط على CTRL + ALT + E ستظهر لك قائمه... من القائمه على الشمال اضغط على علامة "+" بجانب Managed Debugging Assistants
امسح علامة صح الموجوده امام PInvokeStackImbalance
ثم ok

جرب واخبرنى بالنتيجه
وبالتوفيق ان شاء الله