+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : معلومة ::: Current Language (/showthread.php?tid=5325)
معلومة ::: Current Language - RaggiTech - 06-10-12
كاتب الموضوع : BADRMEDIA
سأل أحد الأخوة عن معرفة اللغة الحالية
بحيث لو نفرض أن هناك قاموس ونافذته بها عدد 2 أداة RadioButton
الأول للغة العربية والثانى للغة الانجليزية
بحيث لو اختار المستخدم الأول اذن يكون البحث فى عمود اللغة العربية والثاني العكس
لكن لو غير المستخدم اللغة من داخل مربع البحث نريد أن يتغير معه أداة الاختيار
اذن لابد ان نعرف اللغة الحالية بحيث نقوم بناء على معرفتها بتغيير أداة الاختيار
نرى فى الصورة التالية
يكون الكود فى حدث TextChanged للأداة TextBox1
كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If System.Windows.Forms.InputLanguage.CurrentInputLanguage.Culture.EnglishName Like "Arabic*" Then
RadioButton1.Checked = True
Else
RadioButton2.Checked = True
End If
End Subكما نري فى الكود أننا نستطلع هل اسم اللغة الحالية يحتوى على كلمة Arabic أم لا
كود :
If System.Windows.Forms.InputLanguage.CurrentInputLanguage.Culture.EnglishName Like "Arabic*" Then