[visualist2015]

السلام عليكم
أريد إضافة / كتابة رقم "زوجي" في تكست بوكس وأريده أن يتغير إلى زوجي في حالة أخطأت الكتابة وكتبته بشكل فردي
مثلا : إذا كتبت 1 فيتجول بشكل تلقائي لـ : 01  ، 2 يتحول رأسا لـ 02 وهكذا
ما هو الكود في فجوال بيسك
وبوركت جهودكم

[أبو نوره]

مرحبا اخى

في حدث LostFocus لمربع النص

PHP كود :

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.LostFocus
    sender.Text = Val(sender.Text).ToString("00")
End Sub 


[silverlight]

PHP كود :

       ' تقرأ الرقم
        Dim i As Integer = 3
        ' دالة للتاكد من أن الرقم زوجي أو فردي
        Dim func As Func(Of Integer, Boolean) = Function(x) x Mod 2 = 0
        Dim k As Integer = 0
        ' إذا كان الرقم زوجي
        If func(i) Then
            k = i

        Else
            ' إن كان الرقم فردي
            k = i + 1
        End If 


[visualist2015]

شكر الله لك أخي العزيز .. بوركت

---

(14-09-17, 05:17 PM)أبو نوره كتب : مرحبا اخى

في حدث LostFocus لمربع النص

PHP كود :

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.LostFocus
    sender.Text = Val(sender.Text).ToString("00")
End Sub 


شكر الله لك أخي العزيز .. بوركت