22-10-18, 12:11 AM
(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 ، الكود يعمل بشكل صحيح، الله يرضى عنك وييسر لك أمرك.
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.