السلام عليكم...
شباب هذا الكود يسمح فقط بكتابة ارقام داخل التكست بوكس...
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Subالكود يعمل تماما ولكن..ادا جربت وضغت على زر دليليت ليمسح لايمسح؟؟؟
يعني ما بمسح الا ادا حددت النص...
انا اريد زر ديليت يمسح بدون ما اقوم بعملية التحديد!!
وشكراااااااااااااااااااااا
السلام عليكم...
ينبغي استثناء رموز التحكم (Control Characters) في جدول آسكي، و هي الرموز من 0 إلى 31 و التي تشمل Enter و BackSpace و غيرها.
ينبغي تعديل الكود كالتالي:
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
شكرااااااااااااااااااا جزيلاااااااااااااااااا تمت الاجابة
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…