السلام عليكم ورحمة الله وبركاته
If Val(KeyAscii) > 47 And Val(KeyAscii) < 58 Or KeyAscii = 8 Then Else KeyAscii = 0
الكود السابق لكتابة ارقام فقط في مربع تكست بوكس ! والمطلوب ايضا ادراج الفاصلة او النقطة بجانب الارقام !!
ما التعديل الواجب عمله ليتم كتابة الارقام و(الفاصلة او النقطة) اضافة للرقم
ولكم جزيل الشكر
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
السلام عليكم...
الكود في هذه المشاركة: قبول الأرقام الكسرية
و انظر المشاركة رقم 13 في نفس الموضوع من أجل كود قبول الأرقام و الفاصلة و إشارة السالب.
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
تستطيع استخدام هذا واضافة أو إيقاف اي رقم او حرف في اي وقت
Dim MYFIELD As String
MYFIELD = "0123456789.,"
If KeyAscii = 13 Then
SendKeys "{TAB}"
KeyAscii = 0
End If
If KeyAscii > 26 Then
If InStr(MYFIELD, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Ifتحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
شكرا لكما على الرد
اشكرك اخي عماني وجاري التدقيق والتطبيق
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…