منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ارجو المساعدة في تكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : ارجو المساعدة في تكست بوكس (/showthread.php?tid=16589)

ارجو المساعدة في تكست بوكس - صبري زينوبي - 26-07-16

السلام عليكم و رحمة الله و بركاته
شباب اريد كود:
لما تدخل لتكست بوكس 1 تتغير اللغة تلقائيا للانقليزي
و لما تدخل لتكست بوكس 2 ترجع للغة العربية 
بارك الله فيكم

RE: ارجو المساعدة في تكست بوكس - الوادي - 26-07-16

يتم تغيير اللغة عادة في الحدث GotFocus للأداة TextBox
PHP كود :
Private Sub TextBox1_GotFocus(sender As Object, e As System.EventArgs) Handles TextBox1.GotFocus
    InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(System.Globalization.CultureInfo.GetCultureInfo("ar-sa"))
End Sub

Private Sub TextBox2_GotFocus(sender As Object, e As System.EventArgs) Handles TextBox2.GotFocus
    InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(System.Globalization.CultureInfo.GetCultureInfo("en-us"))
End Sub 


RE: ارجو المساعدة في تكست بوكس - صبري زينوبي - 26-07-16

(26-07-16, 05:21 PM)الوادي كتب : يتم تغيير اللغة عادة في الحدث GotFocus للأداة TextBox
PHP كود :
Private Sub TextBox1_GotFocus(sender As Object, e As System.EventArgs) Handles TextBox1.GotFocus
    InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(System.Globalization.CultureInfo.GetCultureInfo("ar-sa"))
End Sub

Private Sub TextBox2_GotFocus(sender As Object, e As System.EventArgs) Handles TextBox2.GotFocus
    InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(System.Globalization.CultureInfo.GetCultureInfo("en-us"))
End Sub 
بارك الله فيك يا وادي