30-03-14, 05:30 PM
السلام عليكم ورحمة الله وبركاتة
استعمل الكود التالى للتاكد بان المكتوب فى التكست رقم وليس حروف
وماشة الحال تمام
ولكن
ماهو الحال عند اضافى 2 دوت (مثل 10.15.1) او (15..1)
تكون هنا المشكلة
Private Sub Text17_KeyPress(KeyAscii As Integer)
Dim ss As String
If KeyAscii = 8 Then Exit Sub
ss = "0123456789."
i = InStr(ss, Chr(KeyAscii))
If i = 0 Then KeyAscii = 0
End Sub
ارجوا التوضيح بعدم كتابة فاصل عشرى مرتين15..1
تحياتى
استعمل الكود التالى للتاكد بان المكتوب فى التكست رقم وليس حروف
وماشة الحال تمام
ولكن
ماهو الحال عند اضافى 2 دوت (مثل 10.15.1) او (15..1)
تكون هنا المشكلة
Private Sub Text17_KeyPress(KeyAscii As Integer)
Dim ss As String
If KeyAscii = 8 Then Exit Sub
ss = "0123456789."
i = InStr(ss, Chr(KeyAscii))
If i = 0 Then KeyAscii = 0
End Sub
ارجوا التوضيح بعدم كتابة فاصل عشرى مرتين15..1
تحياتى