تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كتابة فاصل ما بين كل رقم في التكست بوكس
#1
السلام عليكم ورحمة الله تعالى وبركاته
اخواني الافاضل اعضاء المنتدي هلا ساعدتموني رجاءا
اريد ان اكتب في التكست بوكس ارقام و بين كل رقمين فاصلين مثل 12 01 86 73 07
FAIRE 2 ESPACE ENTRE DEUX CHIFRES
وشكرا مسبقا
الرد }}}
تم الشكر بواسطة:
#2
(28-05-14, 10:00 PM)AHMED213 كتب : ...
اريد ان اكتب في التكست بوكس ارقام و بين كل رقمين فاصلين مثل
12 01 86 73 07
FAIRE 2 ESPACE ENTRE DEUX CHIFRES
...

.....
كود :
Private Sub Command1_Click()
    Text2.Text = MySplit(Text1.Text)
End Sub

Function MySplit(n As String) As String
    Dim i As Integer
    For i = 1 To Len(n) Step 2
        MySplit = MySplit & Mid(n, i, 2) & " "
    Next i
    MySplit = Trim(MySplit)
End Function
الرد }}}
تم الشكر بواسطة:
#3
مشكووووووووووووووووووووور اخي الفاضل و الله ما قصرت
لكن انا اريد الكتابة مباشرة في التكست بوكس ارقام الهاتف المتكونة من عشرة ارقام
بشرط ان يكون فاصلين ما بين كل رقمين مثل
12 01 86 73 07
00 55 33 75 07
[/align] 33 55 33 75 07
الرد }}}
تم الشكر بواسطة:
#4
(29-05-14, 01:01 PM)AHMED213 كتب : ...
لكن انا اريد الكتابة مباشرة في التكست بوكس ارقام الهاتف المتكونة من عشرة ارقام بشرط ان يكون فاصلين ما بين كل رقمين مثل
12 01 86 73 07
00 55 33 75 07
33 55 33 75 07

.....
كود :
Private Sub Command1_Click()
    Text2.Text = MySplits(Text1.Text)
End Sub

Function MySplits(s As String) As String
    Dim l() As String
    l = Split(s, vbNewLine)
    Dim y As Integer
    For y = 0 To UBound(l) - 1
        Dim i As Integer
        For i = 1 To Len(l(y)) Step 2
            MySplits = MySplits & Mid(l(y), i, 2) & " "
        Next i
        MySplits = Trim(MySplits) & vbNewLine
    Next y
    MySplits = Trim(MySplits)
End Function
الرد }}}
تم الشكر بواسطة:
#5
[attachment=1882]ها هو مثالي لاجل التعديل عليه
الرد }}}
تم الشكر بواسطة:
#6
غير الحدث الى change في التكست بـوكس
Text2.Text = MySplit(Text1.Text)


اضغط ع التكست بوكس مرتان واكتب الكود



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}
تم الشكر بواسطة:
#7
[attachment=1886]عفوا ها هو المثال المعدل عليه
الرد }}}
تم الشكر بواسطة: a_almisery


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] عند فتح الكومبو بوكس تظهر فيها جميع اسماء الزبائن وادي العوضي 3 352 27-11-23, 01:05 AM
آخر رد: وادي العوضي
  [سؤال] التيكست بوكس Abdellah 2 389 18-11-23, 10:55 AM
آخر رد: Abdellah
  [سؤال] كود عدم تكرار الداتا المستعدة فى الكومبو بوكس mostafa fricool 6 6,063 09-02-23, 02:10 PM
آخر رد: ahlan_32
  استفسار اخوتي بخصوص التيكست بوكس او الليست بوكس عبدالمؤمن 2 474 27-11-22, 08:51 PM
آخر رد: عبدالمؤمن
  [vb6.0] ادخال الاسم في الكومبو بوكس ويحفظ في الكومبو بوكس وادي العوضي 3 867 15-06-22, 01:56 AM
آخر رد: ahmedabdelaliem
  [vb6.0] اضافة الاسماء في الليست بوكس وظهور البيانات مثل الكريدفيو وادي العوضي 6 1,310 04-06-22, 09:42 PM
آخر رد: مصمم هاوي
  [vb6.0] اختيار اسم الزبون من الكومبو بوكس لغرض طباعة تقريره وادي العوضي 4 1,294 15-01-22, 06:13 PM
آخر رد: وادي العوضي
  [vb6.0] طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى hamada salah90 2 1,264 05-12-21, 12:04 AM
آخر رد: hamada salah90
  ربط تكست بوكس بالتاريخ الهجري الموجود في صفحة انترنت؟ Alhootti1 5 1,900 30-08-21, 11:18 PM
آخر رد: Alhootti1
  كتابة الكسر فى صورة بسط ومقام اسلام الكبابى 0 1,005 13-03-21, 07:55 AM
آخر رد: اسلام الكبابى

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


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