منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف نجعل العناصر ( Textbox>>>listbox) تأخذ اللغة العربية ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف نجعل العناصر ( Textbox>>>listbox) تأخذ اللغة العربية ؟ (/showthread.php?tid=9429)

الصفحات: 1 2

كيف نجعل العناصر ( Textbox>>>listbox) تأخذ اللغة العربية ؟ - learning.net - 28-06-13

اخى الكريم

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

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

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 

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

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

كيف نجعل العناصر ( Textbox>>>listbox) تأخذ اللغة العربية ؟ - kafi - 28-06-13

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

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

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

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

كيف نجعل العناصر ( Textbox>>>listbox) تأخذ اللغة العربية ؟ - learning.net - 28-06-13

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

كيف نجعل العناصر ( Textbox>>>listbox) تأخذ اللغة العربية ؟ - kafi - 28-06-13

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

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

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

[ATTACH=CONFIG]3225[/ATTACH]

كيف نجعل العناصر ( Textbox>>>listbox) تأخذ اللغة العربية ؟ - دمعة المقهور - 28-06-13

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

كيف نجعل العناصر ( Textbox>>>listbox) تأخذ اللغة العربية ؟ - learning.net - 28-06-13

اخى الكريم

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

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

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

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

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