انا عايز كود يخلى ال textbox لايقبل اى ارقام من 0 حتى 9
كود يخلى ال textbox لايقبل اى ارقام من 0 حتى 9
ابحث في المنتدى ستجد أكثر من مشاركة
بعض المشاركات تطلب العكس تماماً ما عليك سوى تغيير جملة الشرط
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
انا شاكر جدا على الرد بس
نا اللى لقيته كود بيشرج عدم كتابة رقم 0 بس
وياريت تساعدنى
وشكرا
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =< Asc("9") And KeyAscii => Asc("0") Then
KeyAscii = 0
End If
End Sub
تم تعديل هذه المشاركة بواسطة Junkie في 18 يناير 2008 في 04:53
من مواضيعي :
إجعل برنامجك يعمل على كل جهاز في العالم
النسخة الاحتياطية الاكثر تطورا على مستوى المنتديات
هذا الكود يحتاج لكثير من الذكاء وقليل من العمل
إليكم بعض المعلومات عن المكتبة الشاملة التي يجهلها الكثير وهي مصممة بالvb6
برنامجين مع السورس كود قديمين جداً
مثال كامل لــانشاء ملف txt*. النصي
الاداة رائعة جدا بكل المقاييس swbbtnba.ocx
كود ممتاز ؟ ومساعدة في الاضافة / الحذف
احلى حركة وجدتها اخيرا بعد وقت طويل
وأخيرا حصلت المعجزة : تحويل الفلم الى صورة متحركة وكانك تشاهد فلما Camtasia Studio
هذا الموضوع مغلق.