تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] عد السماح بكتابة الفاصل العشرى مرتين
#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

تحياتى
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

- تم تعديل الكود :

كود :
Private Sub Text17_KeyPress(KeyAscii As Integer)
Dim ss As String
If KeyAscii = 8 Then Exit Sub
ss = "0123456789."
i = InStr(1,ss, Chr(KeyAscii))
If i = 0 Then KeyAscii = 0 : Exit Sub
i = InStr(1,Trim(Text17.Text), ".")
If Chr(KeyAscii) = "." And i <> 0 The Exit Sub
End Sub

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة: ناجي إبراهيم , samee119485r
#3
السلام عليكم...

شكراً لأخي VB_Coder الذي سبق بالإجابة.

الكود التالي يأخذ بعين الاعتبار ما إذا كان هناك نص مظلل أو محدد في مربع النص:

كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii > 31 Then
        If Chr$(KeyAscii) = "." Then
            If InStr(Text1.Text, ".") <> 0 Then
                If Text1.SelLength > 0 Then
                    If InStr(Text1.SelText, ".") = 0 Then
                        KeyAscii = 0
                    End If
                Else
                    KeyAscii = 0
                End If
            End If
        ElseIf InStr("0123456789", Chr$(KeyAscii)) = 0 Then
            KeyAscii = 0
        End If
    End If
End Sub

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة: VB_Coder , samee119485r
#4
السلام عليكم

استاذ / VB_Coder

عملت مثال مرفق

ولكن ايضا يمكن كتابة الفاصل العشرى اكثر من مرة فى التكست

تحياتى


.rar   test.rar (الحجم : 1.11 ك ب / التحميلات : 37)
الرد }}}}
تم الشكر بواسطة:
#5
استاذ / ناجى

الكود تمام تسلم ايدك

تحياتى
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أحتاج دالة فصل الرقم الصحيح من الرقم العشرى أبو التيمان 1 457 09-08-15, 12:08 AM
آخر رد: اسلام الكبابى
  [كود] عدم السماح باستخدام اكتر من خمس خانات mera 3 551 31-05-15, 01:35 PM
آخر رد: abdel_madjid

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم