[atefkhalf2004]

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

عندي مربع نص

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

او 45.9

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

[سعود]

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

[سعود]

كود :

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]

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]

السيد الفاضل تم جل الجزء الاول وهو نوع البيانات المدخلة
ولكن يتبقي الاهم وهو الا يزيد العدد المدخل عن رقم معين من 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

[@@أبورائد@@]

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





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







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

[atefkhalf2004]

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

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

[atefkhalf2004]

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

[atefkhalf2004]

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