الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[ تمت الإجابة ]أريد التعديل على كود الكتابة داخل مربع النص

بدأه LoCaLHoST في 20 نوفمبر 2008 · 4 رد · 569 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

إخواني الكرام .. هذا الكود الشهير لجعل التكست لايقبل إلا أرقاماً فقط



If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If

End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)

أريده يسمح بالأرقام العشرية أيضاً أي يسمح بكتابة النقطة

مثال :

الرقم واحد ونصف

1.5

في انتظاركم وشكراً مقدماً

#2

السلام عليكم...

  1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2.     If KeyAscii > 31 Then
  3.         If KeyAscii = Asc(".") Then
  4.             If InStr(Text1.Text, ".") <> 0 Then KeyAscii = 0
  5.         ElseIf (KeyAscii < Asc("0")) Or (KeyAscii > Asc("9")) Then
  6.             KeyAscii = 0
  7.         End If
  8.     End If
  9. End Sub
  10.  

نرجو الاستفادة و السلام.

      
      

      
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم

    

  

    
    

      
#3
        
        

      
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 26 Then
s = "0123456789."
If InStr(s, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End Sub

      
      

      
    

  

    
    

      
#4
        
        

      
أشكركما الشكر الجزيل إخواني najy_zl  و booknet

      
      

      
    

  

    
    

      
#5
        
        

      
بسم الله الرحمن الرحيم
تمت الإجابة على الموضوع 
إدارة الفريق العربي للبرمجة

      
      

      
سبحان الله وبحمده ... سبحان الله العظيم

    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…