انا عايز اجعل الكتابة في التكست بوكس كابيتل SCR001 انا عملتها بالكود اللي هكتبة دلوقتي بس لما باجي اكتب بتكتب بالشكل دي RCS
انا عايزها تكون بالشكل دة SCR يعني S الاول وبعد كدة C وبعد كدة R الكود اللي انا عملتة حتيطة في حدث change
txtid.Text = UCase(txtid.Text)
انا عايز الكود اللي يعمل كدة
بســم الله الـرحمــن الرحيــم
لا خير في كاتم العلم ...زكاه العلم ...التعليم صدقة جارية
الأخ الفاضل ...
جرب الكود التالى:
Private Sub txtid_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr$(KeyAscii))) End Sub
شكراً
Nothing is impossible, the word impossible itself says that: I M - Possible
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…