منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - [تم الحل] ممكن كود لجعل في التيكست يأخد 3 أرقام حتى لو كانت رقما واحد أو 2 أرقام

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

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

السلام عليكم ورحمة الله تعالى و بركاته...
: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 

[HTML]
Text1.Text = Right$("000" + Text1.Text, 3)
[/HTML]

السلام عليكم...

كود :

Private Sub Text1_LostFocus()

    Text1.Text = Format$(Text1.Text, "000")

End Sub

نرجو الاستفادة و السلام.

شكرا لكم ....
وهذا كود أخر للإفاذة :
Text1 = String(3 - Len(Text1), "0") & Text1

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

waidom

abulayth

ناجي إبراهيم

waidom