+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [تم الحل] ممكن كود لجعل في التيكست يأخد 3 أرقام حتى لو كانت رقما واحد أو 2 أرقام (/showthread.php?tid=6777)
[تم الحل] ممكن كود لجعل في التيكست يأخد 3 أرقام حتى لو كانت رقما واحد أو 2 أرقام - waidom - 30-10-12
السلام عليكم ورحمة الله تعالى و بركاته...
:p من فضلك أريد كود صغير جدا ...
لكي أوضع لكم أكثر ...، مثلا لو وضعنا في التيكست بوكس 12 فإنه سيجعلها 012 ، أو إذا وضعنا 1 سيجعلها 001 ، أما إذا وضعنا 123 فستكون كما هي ...
وهدا ما أنا أريده...
:confused: هل هناك كود أقصر من هذا :
PHP كود :
Select Case Len(Text1)
Case 1
Text1 = "00" & Text1
Case 2
Text1 = "0" & Text1
Case 3
End Select
[تم الحل] ممكن كود لجعل في التيكست يأخد 3 أرقام حتى لو كانت رقما واحد أو 2 أرقام - abulayth - 30-10-12
[HTML]
Text1.Text = Right$("000" + Text1.Text, 3)
[/HTML]
[تم الحل] ممكن كود لجعل في التيكست يأخد 3 أرقام حتى لو كانت رقما واحد أو 2 أرقام - ناجي إبراهيم - 30-10-12
السلام عليكم...
كود :
Private Sub Text1_LostFocus()
Text1.Text = Format$(Text1.Text, "000")
End Subنرجو الاستفادة و السلام.
[تم الحل] ممكن كود لجعل في التيكست يأخد 3 أرقام حتى لو كانت رقما واحد أو 2 أرقام - waidom - 30-10-12
شكرا لكم ....
وهذا كود أخر للإفاذة :
Text1 = String(3 - Len(Text1), "0") & Text1