[HASAN6.0]

للغة الانجليزية

PHP كود :

For Each Lng As InputLanguage In InputLanguage.InstalledInputLanguages
                    If Lng.Culture.DisplayName.ToUpper.StartsWith("EN") Then
                        InputLanguage.CurrentInputLanguage = Lng
                        Exit For
                    End If
                Next 


اللغة العربية

PHP كود :

For Each Lng As InputLanguage In InputLanguage.InstalledInputLanguages
                    If Lng.Culture.DisplayName.ToUpper.StartsWith("AR") Then
                        InputLanguage.CurrentInputLanguage = Lng
                        Exit For
                    End If
                Next