كيف اجعل اللغه العربيه default للبرنامج

السلام عليكم

أنا كذلك أحتاج للكتابة بالعربية مباشرة

ولكني أعمل على VB.Net 2003

أرجو إفادتنا يا كرام

وشكراً لحسن تعاونكم

السلام عليكم

الكود ده مفيد في تحويل الكرسور الى اي لغه تريدها

معامل الدالة هو فقط أول حرفين من اللغه

"ar" ، "en" وهكذا

Imports System.Globalization

Public Sub SetNewCurrentLanguage(ByVal FF As String)

'=======================================================

Dim IL As InputLanguage : Dim CI As CultureInfo

Dim I As Integer : Dim F As String

For I = 0 To InputLanguage.InstalledInputLanguages.Count - 1

CI = InputLanguage.InstalledInputLanguages.Item(I).Culture

F = CI.ToString : F = F.Substring(0, 2)

If F = FF Then

' Sets the current languages.

Dim Myculture As New CultureInfo(CI.ToString)

Dim myCurrentLanguage As InputLanguage

myCurrentLanguage = InputLanguage.FromCulture(Myculture)

InputLanguage.CurrentInputLanguage = myCurrentLanguage

Exit Sub : End If

Next

'========================================================

End Sub

السلام عليكم

أخى

هل من الممكن توضيح كيفية التعامل مع هذا الكود

تحياتى ..........

نعم رجاءً الإيضاح بالشرح

فنحن نريد أن نفهم قبل النسخ واللصق !

وشكراً جزيلاً على المبادرة الطيبة

Imports System.Globalization

طيب هذا يحتاج لإضافة شي قبل كتابة البرمجة ولا أيش ؟؟

ويا ليت تعرفنا على الأدوات اللي نضيفها ومكان وضع البرمجة

تحياتي وشكراً مرة أخرى !

انا سمعت انه يوجد شئ فى vb 2005 اسمه ال culture للبرنامج يحدد كل شئ كاللغه وووو .

ياريت حد يساعدنى

شكرا

السلام عليكم

أخي اعذرني اذا كان الكود مش واضح

عموما انا عملت لك مثال بسيط اتمنى انه يكون مفيد

WindowsApplication1.rar

السلام عليكم ورحمة الله وبركاته

أشكرك جزيل الشكر أخي الكريم Orasia

بارك الله فيك ويعطيك ألف عافية

تمنياتي لك بدوام التوفيق

تقبل تحيتي واحترامي ؛؛

أخي تمهيدي

بارك الله فيك وجزام الله خيرا

المهم انك تكون استفدت

شكرا جزيلا

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

أتمنى ان تحصلو على الفائدة منها

Public Declare Function LoadKeyboardLayoutA Lib "user32" (s as string ,I as integer) As Integer

تغير لغة النظام

LoadKeyboardLayoutA("00000401", &H1S)' إلى عربي

LoadKeyboardLayoutA("00000409", &H1S) ' إلى إنجليزي

LoadKeyboardLayoutA("0000040C", &H1S) ' إلى فرنسي

LoadKeyboardLayoutA("00000D0D", &H1S)' إلى اللغة الافتراضية

لمعرفة لغة النظام

Public Declare Function GetKeyboardLayoutNameA Lib "user32" (s as string ,I as integer) As Integer

DLL "user32" Method "GetKeyboardLayoutNameA"(ByVal pwszKLID As String) As Integer

GetKeyboardLayoutNameA(s)

If s = "00000409" 'يعني ان اللغة إنجليزي