[بشيراحمدالاهدل]

السلام عليكم
ارجوكم اريد كود يعمل فواصل بين الارقام
مثال عندما اكتب في خانة  6789507
ينقلها الى الخانة الثانية        7-0-5-9-8-7-6
ارجوكم... محتاج لهذا الكود ضروري جدا

[عبدالله الدوسري]

وعليكم السلام 

بإستخدام الوظيفة 

String.Join

   

   

كود :

       Dim Nuuuuuum As String = "47368789567"

       Dim Serial As String = String.Join("-", Nuuuuuum.ToList)

       MsgBox(Serial)

من TextBox1

   

كود :

       Dim Serial As String = String.Join("-", Me.TextBox1.Text.Trim .ToList)

       MsgBox(Serial)

[بشيراحمدالاهدل]

لكم جزيل الشكر...
هذا المنتدى اللي ابحث عنه...

---

حاولت اكثر من مرة اكتب الكود لكن عامل مشاكل...
اشكر فضلكم