[Microformt]

(28-09-22, 09:55 AM)Taha Okla كتب : بإمكانك تنبيهه ليعدل الصيغة للصيغة المئوية عند مغادرة مربع النص بحيث لا يمكن المضي بدون التصحيح :

كود :

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


تحياتي وشكراً على تقديم المساعده