+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طريقة حذف حرف زيادة من مربع النص (/showthread.php?tid=46386)
طريقة حذف حرف زيادة من مربع النص - علاء الكبابي - 19-06-23
عندي مربع نص مخصص لكتابة سعر المنتج
لعدم حدوث خطأ قمت بتخصيص مربع النص هذا لاستقبال ارقام فقط وعدم السماح بكتابة حروف
كما سمحت ايضاً بكتابة العلامة العشرية
ولكن في هذه الحالة مربع النص يقبل ان يضيف المستخدم اكثر من علامة عشرية في نفس الرقم مما يسبب خطأ وتعطيل البرنامج
اريد كود يمنع المستخدم من كتابة اكثر من علامة عشرية واحدة في مربع النص
ولكم جزيل الشكر
RE: طريقة حذف حرف زيادة من مربع النص - سعود - 19-06-23
...... اللذي يحضرني الان اولا نكتب دالة كاجراء مستقل :
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
RE: طريقة حذف حرف زيادة من مربع النص - Taha Okla - 19-06-23
فقط نستخدم الكود التالي ضمن حدث الـ (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