منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] عد السماح بكتابة الفاصل العشرى مرتين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] عد السماح بكتابة الفاصل العشرى مرتين (/showthread.php?tid=2409)

عد السماح بكتابة الفاصل العشرى مرتين - ABO.BANCIANA - 30-03-14

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

استعمل الكود التالى للتاكد بان المكتوب فى التكست رقم وليس حروف

وماشة الحال تمام

ولكن

ماهو الحال عند اضافى 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

تحياتى

RE: عد السماح بكتابة الفاصل العشرى مرتين - VB_Coder - 31-03-14

السلام عليكم

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

كود :
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

- تحياتي .

RE: عد السماح بكتابة الفاصل العشرى مرتين - ناجي إبراهيم - 31-03-14

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

شكراً لأخي 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

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

RE: عد السماح بكتابة الفاصل العشرى مرتين - ABO.BANCIANA - 31-03-14

السلام عليكم

استاذ / VB_Coder

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

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

تحياتى

[attachment=1603]

RE: عد السماح بكتابة الفاصل العشرى مرتين - ABO.BANCIANA - 31-03-14

استاذ / ناجى

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

تحياتى