[dubai.eig]

السلام عليكم ورحمة الله

اعزئي عندي  textbox 
في 8 ارقام

12345678

كيف ممكن احذف اخر ثلاث ارقام من الخانه ليصبح

خمس ارقام فقط 

12345


بارك الله فيكم

[محمود صالح]

طريقة الاولى
تحجيم  TEXTBOX من خلال الخاصية MAXLENGTH وجعلها 5
طريقة الثانية 
لأخد جزء من النص

Dim txt As String = "ABCDEFGHIJK"
'LSet من الجهة اليسرى
MsgBox(LSet(txt, 6)) 'ABCDEF
'RSet من الجهة اليمنى
MsgBox(RSet(txt, 6))
'Mid من البداية التى تحددها
MsgBox(Mid(txt, 3, 6)) 'CDEFGH

منقول

[dubai.eig]

(25-03-18, 03:53 PM)محمود صالح كتب : طريقة الاولى
تحجيم  TEXTBOX من خلال الخاصية MAXLENGTH وجعلها 5
طريقة الثانية 
لأخد جزء من النص

Dim txt As String = "ABCDEFGHIJK"
'LSet من الجهة اليسرى
MsgBox(LSet(txt, 6)) 'ABCDEF
'RSet من الجهة اليمنى
MsgBox(RSet(txt, 6))
'Mid من البداية التى تحددها
MsgBox(Mid(txt, 3, 6)) 'CDEFGH

منقول

شكرا لك الطريقه الثانيه هيه الانسب لي 

شكرا بارك الله فيك