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

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

اجبار المستخدم علي ادخال رقم يتراوح في مدي معين - atefkhalf2004 - 02-06-13

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

عندي مربع نص

عايز اجبر المستخدم علي ادخال رقم يتراوح من 0 وحتي 75 مثلا ويمكن ان يكون في صورة كسرية ويمكن ايضا ان يضيف حرف ابجدي مثل ح مثلا
اي 56.8
او ح

او 45.9

ولا يستطيع الكتابة الا ما تم تحديده فقط
شكرا

اجبار المستخدم علي ادخال رقم يتراوح في مدي معين - سعود - 02-06-13

لو تبغى من غير حروف ممكن اشوف طريقة .. لو ماسبقني احدSmile

اجبار المستخدم علي ادخال رقم يتراوح في مدي معين - سعود - 03-06-13

كود :
If Val(TextBox1.Text) < 0 Then            MsgBox("اقل رقم 0")
            Exit Sub
        End If
        If Val(TextBox1.Text) > 70 Then
            MsgBox("اكبر رقم 7")
            Exit Sub
        End If


اجبار المستخدم علي ادخال رقم يتراوح في مدي معين - trustmeee - 03-06-13

atefkhalf2004 كتب :كيف يمكن اجبار المستخدم علي ادخال رقم يتراوح في مدي معين

عندي مربع نص

عايز اجبر المستخدم علي ادخال رقم يتراوح من 0 وحتي 75 مثلا ويمكن ان يكون في صورة كسرية ويمكن ايضا ان يضيف حرف ابجدي مثل ح مثلا
اي 56.8
او ح

او 45.9

ولا يستطيع الكتابة الا ما تم تحديده فقط
شكرا

كود :
Dim allowedChars As String = "ضع هنا الارقام والحروف التي تسمح بها كلها"

    Private Sub txtBoxesKeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If Not allowedChars.Contains(e.KeyChar) Then

            e.Handled = True

        End If
    End Sub


اجبار المستخدم علي ادخال رقم يتراوح في مدي معين - atefkhalf2004 - 03-06-13

السيد الفاضل تم جل الجزء الاول وهو نوع البيانات المدخلة
ولكن يتبقي الاهم وهو الا يزيد العدد المدخل عن رقم معين من 0 الي 80 مثلا

Private Sub txtBoxesKeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress

If Not allowedChars.Contains(e.KeyChar) Then


If Val(TextBox3.Text) < 80 Then
e.Handled = True
Else
e.Handled = False
End If

End If
End Sub

اجبار المستخدم علي ادخال رقم يتراوح في مدي معين - @@أبورائد@@ - 03-06-13


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





شاهد هذا الموضوع (@@@ مربع نص رقمي مع تحديد رقم الحد أقصى @@@)







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

اجبار المستخدم علي ادخال رقم يتراوح في مدي معين - atefkhalf2004 - 03-06-13

الاستاذ الفاضل
انا عندي تكست بوكس عايز ادخل فيه البيانات من رقم الي رقم بالشروط السابقة

لم استطع الاستفادة من المشاركة السابقة

اجبار المستخدم علي ادخال رقم يتراوح في مدي معين - atefkhalf2004 - 04-06-13

السادة الاعضاء اتمني الرد للاهمية

اجبار المستخدم علي ادخال رقم يتراوح في مدي معين - atefkhalf2004 - 04-06-13

الاستاذ ابو ايهاب برجاء الرد