• 0
™Sn!p3R™

تنفيذ شرط عند تغير لغة الويندوز

سؤال

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

 

اخوانى كنت ابحث عن كود لتنفيذ شرط معين داخل البرنامج عند تغير لغة الجهاز من عربى الى الانجليزية او العكس

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

  • 0

Private Sub Form1_InputLanguageChanged(sender As Object, e As InputLanguageChangedEventArgs) Handles MyBase.InputLanguageChanged

'your code here

MessageBox.Show("The Language has been changed to :" + InputLanguage.CurrentInputLanguage.LayoutName)

End Sub

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا اخى ولكنى اريد تنفيذ الشرط إذا كانت لغة الويندوز هى العربية او العكس

 

يعنى مثلاً

 

if (windows Language) = ar Then

Condition

Else

End if

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

Public Sub detectlanguage()        Dim detectlang As InputLanguage = InputLanguage.CurrentInputLanguage        If (detectlang.Culture.EnglishName).Contains("Ar") Then            'do something        Else            'do something        End If    End Sub

 

 Private Sub Form1_InputLanguageChanged(ByVal sender As Object, ByVal e As InputLanguageChangedEventArgs) Handles MyBase.InputLanguageChanged        detectlanguage()    End Sub
تم تعديل بواسطه osamagadour
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .