11-10-13, 01:51 AM
(آخر تعديل لهذه المشاركة : 11-10-13, 01:55 AM {2} بواسطة @@أبورائد@@.)
السلام عليكم ورحمة الله وبركاته
أولا بما أنه حقل رقمي يفترض أن لا يبقى فارغاً بل يكون صفراً إلى فقد التركيز.
ثانياً تفضل الكود حسب طلبك (صالح لأي مربع نص يستخدم كرقم بدون تعديل الكود الداخلي)
السلام عليكم ورحمة الله وبركاته
أولا بما أنه حقل رقمي يفترض أن لا يبقى فارغاً بل يكون صفراً إلى فقد التركيز.
ثانياً تفضل الكود حسب طلبك (صالح لأي مربع نص يستخدم كرقم بدون تعديل الكود الداخلي)
كود :
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If sender.Text.Trim <> "" Then
sender.Text = FormatNumber(Val(sender.Text), 2)
End If
End Subالسلام عليكم ورحمة الله وبركاته
