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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 ObjectByVal e As EventArgsHandles 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 IntegerBoolean) = Function(xx Mod 2 0
        Dim k 
As Integer 0
        
' إذا كان الرقم زوجي
        If func(i) Then
            k = i

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



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

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

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

في حدث LostFocus لمربع النص
PHP كود :
Private Sub TextBox1_LostFocus(ByVal sender As ObjectByVal e As EventArgsHandles TextBox1.LostFocus
    sender
.Text Val(sender.Text).ToString("00")
End Sub 

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