+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=944)
كتابة ارقام وعلامة عشرية واحدة فقط - atefkhalf2004 - 12-11-13
السادة الافاضل
كيف اجعل التكست بوكس يقبل ارقام فقط مع عدم امكانية كتابة العلامة العشرية اكثر من علامة
125.25 صحيحة
12...25 خطأ
شكرا
RE: كتابة ارقام وعلامة عشرية واحدة فقط - Aly El-Haddad - 12-11-13
كود :
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not Double.TryParse((TextBox1.Text & e.KeyChar), Nothing) Then
e.Handled = True
End If
End Sub
End ClassRE: كتابة ارقام وعلامة عشرية واحدة فقط - atefkhalf2004 - 12-11-13
شكرا علي اهتمامكم
لم نتمكن من كتابة الرقم العشري الفاصلة 12.75
اتمني ان استطيع ان اكتب فاصلة واحدة فقط
RE: كتابة ارقام وعلامة عشرية واحدة فقط - 3booody - 12-11-13
جربت الكود مافيه أي مشكلة؟
RE: كتابة ارقام وعلامة عشرية واحدة فقط - Aly El-Haddad - 12-11-13
عفواً، نسيت أن أجعل الـTextBox مرن من حيث المسح و التعديل..
الكود الجديد:
كود :
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not Decimal.TryParse((TextBox1.Text & e.KeyChar), Nothing) Then
e.Handled = True
End If
If Char.IsControl(e.KeyChar) Then
e.Handled = False
End If
If Char.IsWhiteSpace(e.KeyChar) Then
e.Handled = True
End If
End Sub
End ClassRE: كتابة ارقام وعلامة عشرية واحدة فقط - youssef mester - 26-07-17
السلام عليكم هذه طريقتي
Dim c As Char
c = e.KeyChar
If Not (Char.IsDigit© Or Char.IsControl©) Then
If Not Textbox1.Text.Contains(".") And c = "." Then
e.Handled = False
Else
e.Handled = True ' annler
End If
End If