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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=38286)

عايز كودرن - حسن الجلب - 14-04-21

السلام عليكم
عايز كود يمنع كتابه الحروف يكتب ارقام فقط مع علامه النقطه (.) ويسمح بكتابه نقطه واحده فقط بعد الرقم  وعايز كود تاني يسمح بكتابه رقمين فقط بعد علامه النقطه

RE: عايز كودرن - messry - 14-04-21

(14-04-21, 02:54 AM)حسن الجلب كتب : السلام عليكم
عايز كود يمنع كتابه الحروف يكتب ارقام فقط مع علامه النقطه (.) ويسمح بكتابه نقطه واحده فقط بعد الرقم  وعايز كود تاني يسمح بكتابه رقمين فقط بعد علامه النقطه

_KeyPress
كود :
       If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "," Then
           e.Handled = True


RE: عايز كودرن - معاند الحظ - 15-04-21

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

اليك حل الشق الأول  من سؤالك 

كود :
 Private Sub TextBox4_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
        'تحقق ان المستخدم ضغط زر رقم
        If IsNumeric(e.KeyChar) Or e.KeyChar = ControlChars.Back Then
            ' لايحتوي على نقطة في اخره textbox تحقق ان
            'اذا لم يوجد نقطة ضع نقطة
            If Not TextBox4.Text.EndsWith(".") Then
                TextBox4.Text &= "."
            End If
        Else
            'اذا ضغط المسنخدم زر ليس رفم
            ' اجعل قيمة الزر المضغوط لاشي
            e.KeyChar = ""
        End If
    End Sub



حاول تحل الشق الثاني من سؤالك بنفسك