[أبو عقيل]

 السلام عليكم ورحمة الله وبركاته 
كيفكم ... عساكم بألف صحة وعافية 
كيف اضع كود يحسب القيمة هل هي بين رقمين ام لا

مثلا 
عندي تكست 
وعندي ليبل 

اذا كانت قيمة التكست تتراوح بين    5   الى   10 ......... يكون لون الليبل اخضر 
اما اذا كانت قيمة التكست اقل من 5   أو    أكبر 10 ..... يكون لون الليبل أحمر 
 
فأنا ماضبطت معي 


وشاكر لكم مقدما 

[عمور2016]

وعليكم السلام اهلا ابو عقيل



جرب الكود ده



For n = 0 To 5
Dim i
For i = 6 To 10
Dim o
For o = 11 To 1000


If Text1.Text = n Then
Label1.BackColor = vbRed
ElseIf Text1.Text = i Then
Label1.BackColor = vbGreen
ElseIf Text1.Text = o Then
Label1.BackColor = vbRed
End If

Next
Next
Next

---

انا اشوف هذه طريقه انشاء الله طيبه
يمكن تعديل الارقام من بين وبين
تحياتي.,,,

[sendbad100]

السلام عليكم

PHP كود :

Private Sub Command1_Click()
If Val(Text1.Text) > 10 Or Val(Text1.Text) < 5 Then
Me.Label1.BackColor = &HC000&
Else
Me.Label1.BackColor = &HFF&

End If
End Sub 


---

عفوا عمور2016 ما شفت اجابتك
يعطيك العافية

[أبو عقيل]

الف شكر لكم

تمت التجربة ونجحت

الله يوفقكم جميعا

[عبد العزيز البسكري]

إضافة لما تقدّم به الإخوة الأفاضل جزاهم الله خير الجزاء .. من الممكن أيضا الاستغناء عن زر الأمر بهذا التغيير البسيط

إحتراماتي

كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Val(Text1.Text) > 10 Or Val(Text1.Text) < 5 Then
Me.Label1.BackColor = &HC000&
Else
Me.Label1.BackColor = &HFF&
End If
End Sub

[أبو عقيل]

الف شكر لكم جميعا

ماقصرتوا معي

الله يوفقنا وإياكم