منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
أريد إضافة / كتابة رقم "زوجي" في تكست بوكس وأريده أن يتغير إلى زوجي في حالة أخطأت الكتابة وكتبته بشكل فردي
مثلا : إذا كتبت 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 

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 

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

(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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

visualist2015

أبو نوره

silverlight

visualist2015