كيف اجعل مربع النص الكتابة فيه بالعربي تلقائي

تحويل لغة الكتابة برمجيا للعربية والانكليزية

	Public Sub LangArabic()
		Dim Lang As InputLanguage
		For Each Lang In InputLanguage.InstalledInputLanguages
			If Lang.Culture.EnglishName.ToUpper Like "*arabic*".ToUpper Then
				InputLanguage.CurrentInputLanguage = Lang
			End If
		Next
	End Sub

	Public Sub LangEnglish()
		Dim Lang As InputLanguage
		For Each Lang In InputLanguage.InstalledInputLanguages
			If Lang.Culture.EnglishName.ToUpper Like "*english*".ToUpper Then
				InputLanguage.CurrentInputLanguage = Lang
			End If
		Next
	End Sub

الله يعطيك العافيه يأخ محمد

بس لو تحطلي مثال على 2003 لأني كل مجرب مش راضية تظبط معايا

هذا الكود قديم لدي من أيام 2003 وهو يعمل بشكل ممتاز ماهي المشكلة التي تظهر لديك؟ على كل حال لايمكنني إرفاق مثال على الـ 2003 بسبب عدم إمكانية تنصيبه على جهازي حاليا

لماذا لاتنتقل أنت للنسخة الأفضل 2005 أو الأفضل حتى الآن 2008

انظر موضوعي القديم تحكم - تغيير اللغة - مع الكود المصدري, تطبيقا على بعض المواضيع والكود المصدري الموجود هناك بنسخة 2003