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

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



مشكلة في كود جعل الحروف Capital فقط في الصندوق النصي - Hazem1 - 21-10-18

بسم الله الرحمن الرحيم

إخواني الكرام أردت أن أجعل اسم المُستخدم في الفورم أحرف كبيرة فقط، نظراً لأن الاسم لو كُتب بأحرف صغيرة يتم اعتباره مستخدم آخر ولا يتم تسجيل الدخول، واستخدمت الكود التالي :

كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       TextBox1.Text = UCase(TextBox1.Text)
   End Sub
الحمد لله يعمل الكود ويجعل الحروف كبيرة فقط، لكن العجيب أنه يقوم بالتحويل من اليسار إلى اليمين كما في الصورة التالية، اسم Hazem :
فما الحل، الله يرضى عنكم.


RE: مشكلة في كود جعل الحروف Capital فقط في الصندوق النصي - rnmr - 22-10-18

جرب هذا


استخدم الحدث KeyPress
كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
   e.KeyChar = Strings.UCase(e.KeyChar)
End Sub



RE: مشكلة في كود جعل الحروف Capital فقط في الصندوق النصي - Hazem1 - 22-10-18

(22-10-18, 12:02 AM)rnmr كتب : جرب هذا


استخدم الحدث KeyPress
كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
   e.KeyChar = Strings.UCase(e.KeyChar)
End Sub

جزاك الله خيراً أخي الكريم rnmr ، الكود يعمل بشكل صحيح، الله يرضى عنك وييسر لك أمرك.