اتجاه الكتابة

up up up

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

shift

او اشبه بذلك

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

جرب هذا الكود

Public Class Form1

	Enum Languages
		Arabic
		English
	End Enum

	Function GetLanguage(ByVal LangId As Languages) As InputLanguage
		Dim input, input1 As InputLanguage
		For Each input1 In InputLanguage.InstalledInputLanguages
			If input1.LayoutName Like "Arabic*" Then
				If LangId = Languages.Arabic Then
					input = input1
					Exit For
				End If
			ElseIf input1.LayoutName Like "English*" Then
				If LangId = Languages.English Then
					input = input1
					Exit For
				End If
			End If
		Next
		Return input
	End Function

	Private Sub txtArabic_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtArabic.Enter
		Application.CurrentInputLanguage = GetLanguage(Languages.Arabic)
	End Sub

	Private Sub txtEnglish_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEnglish.Enter
		Application.CurrentInputLanguage = GetLanguage(Languages.English)
	End Sub
End Class

<FONT color=#0000ff size=2><FONT color=#0000ff size=2><BR>اخى الغالى الكود التالى يعمل مائة بالمائة و انامستخدمه فى عدة برامج<BR>قوم بعمل الدالة التالية:<BR> <P>Sub</FONT></FONT><FONT size=2> ChangeLanguage(</FONT><FONT color=#0000ff 
<FONT color=#0000ff size=2>ByVal</FONT></FONT><FONT size=2> vLanguage </FONT><FONT color=#0000ff size=2><FONT color=#0000ff 
As</FONT></FONT><FONT size=2> </FONT><FONT color=#0000ff size=2><FONT 
String</FONT></FONT><FONT size=2>)</FONT><FONT color=#0000ff size=2><FONT color=#0000ff 
<BR><div align="left"> </P> <P><FONT color=#0000ff size=2><FONT color=#0000ff 
Dim</FONT></FONT><FONT size=2> lang </FONT><FONT color=#0000ff 
<FONT color=#0000ff size=2>As</FONT></FONT><FONT size=2> InputLanguage</FONT><FONT color=#0000ff size=2><FONT color=#0000ff 
<BR>	  For</FONT></FONT><FONT size=2> </FONT><FONT color=#0000ff size=2><FONT 
Each</FONT></FONT><FONT size=2> lang  </FONT><FONT 
<FONT color=#0000ff size=2>In</FONT></FONT><FONT size=2> InputLanguage.InstalledInputLanguages</FONT><FONT color=#0000ff size=2><FONT color=#0000ff 
<BR>		   If</FONT></FONT><FONT size=2> lang.Culture.TwoLetterISOLanguageName =vLanguage </FONT><FONT color=#0000ff size=2><FONT color=#0000ff 
Then</P> <P></FONT></FONT><FONT size=2>			  InputLanguage.CurrentInputLanguage = lang</FONT><FONT color=#0000ff size=2><FONT color=#0000ff 
<BR>		   End</FONT></FONT><FONT size=2> </FONT><FONT color=#0000ff size=2><FONT 
If</FONT></FONT><FONT size=2><BR><BR></P> <P></FONT><FONT color=#0000ff size=2><FONT color=#0000ff 
	  Next</FONT></FONT><FONT color=#0000ff size=2><FONT color=#0000ff 
<BR>End</FONT></FONT><FONT size=2> </FONT><FONT color=#0000ff size=2><FONT 
Sub</FONT></FONT></P> <P></div></FONT></FONT>

قوم باستدعاء الدالة السابقة كالتالى:

Private Sub ArabicText_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles StudentArabicName.GotFocus

ChangeLanguage("ar")

End Sub

Private Sub EnglishText_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles StudentArabicName.GotFocus

ChangeLanguage("ar")

End Sub

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

الدالة هى:

Sub ChangeLanguage(ByVal vLanguage As String)

Dim lang As InputLanguage

For Each lang In InputLanguage.InstalledInputLanguages

If lang.Culture.TwoLetterISOLanguageName = vLanguage Then

InputLanguage.CurrentInputLanguage = lang

End If

Next

End Sub