منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
نص أرقام في تكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : نص أرقام في تكست بوكس (/showthread.php?tid=21701)

نص أرقام في تكست بوكس - visualist2015 - 14-09-17

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

RE: نص أرقام في تكست بوكس - أبو نوره - 14-09-17

مرحبا اخى

في حدث 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 


RE: نص أرقام في تكست بوكس - silverlight - 14-09-17

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 


RE: نص أرقام في تكست بوكس - visualist2015 - 14-09-17

شكر الله لك أخي العزيز .. بوركت
(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 

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