تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[تم الحل] ممكن كود لجعل في التيكست يأخد 3 أرقام حتى لو كانت رقما واحد أو 2 أرقام
#1
السلام عليكم ورحمة الله تعالى و بركاته...
: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 
}}}
تم الشكر بواسطة:
#2
[HTML]
Text1.Text = Right$("000" + Text1.Text, 3)
[/HTML]
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

}}}
تم الشكر بواسطة:
#3
السلام عليكم...

كود :
Private Sub Text1_LostFocus()
    Text1.Text = Format$(Text1.Text, "000")
End Sub

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
}}}
تم الشكر بواسطة:
#4
شكرا لكم ....
وهذا كود أخر للإفاذة :
Text1 = String(3 - Len(Text1), "0") & Text1
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم