28-09-22, 09:55 AM
بإمكانك تنبيهه ليعدل الصيغة للصيغة المئوية عند مغادرة مربع النص بحيث لا يمكن المضي بدون التصحيح :
كود :
Private Sub Text1_LostFocus()
' حدث مغادرة مربع النص
Text1.Text = Format(Val(Text1.Text), "0.00") ' تغيير التنسيق للتنسيق المئوي
If Val(Text1.Text) > 100 Then
MsgBox "لا يمكن أن يتجاوز الرقم كامل النسبة المئوية"
Text1.Text = ""
Text1.BackColor = &H8080FF
Text1.SetFocus
ElseIf Val(Text1.Text) < 0 Then
MsgBox "لا يمكن أن يكون الرقم سالب"
Text1.Text = ""
Text1.BackColor = &H8080FF
Text1.SetFocus
Else
Text1.BackColor = vbWhite
End If
End Subقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
