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