[علاء الكبابي]

عندي مربع نص مخصص لكتابة سعر المنتج
لعدم حدوث خطأ قمت بتخصيص مربع النص هذا لاستقبال ارقام فقط وعدم السماح بكتابة حروف
كما سمحت ايضاً بكتابة العلامة العشرية
ولكن في هذه الحالة مربع النص يقبل ان يضيف المستخدم اكثر من علامة عشرية في نفس الرقم مما يسبب خطأ وتعطيل البرنامج
اريد كود يمنع المستخدم من كتابة اكثر من علامة عشرية واحدة في مربع النص
ولكم جزيل الشكر

[سعود]

......  اللذي يحضرني الان اولا نكتب دالة كاجراء مستقل :

PHP كود :

Private Function commacount(txt As String) As Integer
        Dim count As Integer = 0
        For Each h As String In txt
            If h = "." Then
                count += 1
            End If
        Next
        Return count
    End Function 


 
و ضمن حدث TextBox1_KeyPress لمربع النص نكتب:

PHP كود :

 If (e.KeyChar = "." And commacount(sender.text) > 0) Then
            e.Handled = True
        End If 


و اكيد توجد اكواد افضل ننتظره من الاخوة الفضلاء.

[Taha Okla]

فقط نستخدم الكود التالي ضمن حدث الـ (KeyPress):

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
   If (e.KeyChar = ".") And (TextBox1.Text.Contains(".")) Then
       e.Handled = True
   End If

End Sub