22-12-21, 03:58 PM (آخر تعديل لهذه المشاركة : 23-12-21, 03:53 AM {2} بواسطة Taha Okla.)
وعليكم السلام ورحمة الله وبركاته
قم باضافة Listbox للنافذة واعمل لها اخفاء
واستخدم الكود التالي :
كود :
Private Sub Comman1_Click()
Dim sStr1 As String, sStr2 As String, sStr3 As String
Dim p, i, i1
sStr1 = Text1.Text
sStr2 = sStr1
List1.Clear
For p = 1 To Len(sStr1)
For i = 1 To Len(sStr2)
If Mid$(sStr2, i, 1) = "," Then
sStr3 = Mid$(sStr2, 1, i - 1)
List1.AddItem sStr3
sStr2 = Right$(sStr2, Len(sStr2) - Len(sStr3) - 1)
Me.Caption = sStr2
i = 1
Exit For
End If
If Len(sStr1) - p <= 0 Then
List1.AddItem sStr2
p = Len(sStr1)
Exit For
End If
Next i
Next p
sStr1 = ""
i1 = List1.ListCount - 1
sStr1 = List1.List(i1)
For i = -(i1 - 1) To 0
sStr1 = sStr1 & "," & List1.List(-i)
Next i
Text2.Text = sStr1
End Sub
txt.Text = "" Dim lb As Integer Dim ub As Integer lb = LBound(Split(TextBox1.Text, ",")) ub = UBound(Split(TextBox1.Text, ",")) For i = ub To lb Step -1 txt.Text = txt.Text & Split(TextBox1.Text, ",")(i) If i > 0 Then txt.Text = txt.Text & "," End If Next
22-12-21, 05:07 PM (آخر تعديل لهذه المشاركة : 22-12-21, 05:23 PM {2} بواسطة أبو خالد الشكري.)
(22-12-21, 03:58 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته
قم باضافة Listbox للنافذة واعمل لها اخفاء
واستخدم الكود التالي :
كود :
Private Sub Comman1_Click()
Dim sStr1 As String, sStr2 As String, sStr3 As String
Dim p, i, i1
sStr1 = TextBox1.Text
sStr2 = sStr1
List1.Clear
For p = 1 To Len(sStr1)
For i = 1 To Len(sStr2)
If Mid$(sStr1, i, 1) = "," Then
sStr3 = Mid$(sStr2, 1, i - 1)
List1.AddItem sStr3
sStr2 = Right$(sStr2, Len(sStr2) - Len(sStr3) - 1)
Me.Caption = sStr2
i = 1
Exit For
End If
If Len(sStr1) - p <= 1 Then
List1.AddItem sStr2
p = Len(sStr1)
Exit For
End If
Next i
Next p
sStr1 = ""
i1 = List1.ListCount - 1
sStr1 = List1.List(i1)
For i = -(i1 - 1) To 0
sStr1 = sStr1 & "'" & List1.List(-i)
Next i
txt.Text = sStr1
End Sub
مساء الخير أستاذ Taha Okla
أشكرك جزيلا على تفضلك بعمل الكود للمطلوب وهو يعمل على الوضع الحالي بنسبة 100% ولكن أستاذي كما تعلم بأن الأرقام المدخلة في TextBox ليست ثابتة فهي متغيرة حسب الحاجة فأحيانا تكون أعداد مفردة من رقم واحد مثل ( 1 ، 2 ، 3 ) ، أو أرقام عشرية من رقمين مثل ( 11 ، 86 ، 25 ) أو أرقام مئوية مثل ( 837 ، 192 ، 200 )
ولكن للأسف الكود أخفق ولم يعمل بالشكل المطلوب عند تغيير بعضها إلى آحاد ، ومئات . أنا أدخلت في TextBox الأرقام التالية : 40,816,20,7,13,12 وللأسف الكود لم يعمل بالشكل المطلوب .
ولكن لك مني خالص الشكر والتقدير على الكود ، وما قصرت بارك الله فيك .
(22-12-21, 05:00 PM)سعود كتب :
PHP كود :
txt.Text = "" Dim lb As Integer Dim ub As Integer lb = LBound(Split(TextBox1.Text, ",")) ub = UBound(Split(TextBox1.Text, ",")) For i = ub To lb Step -1 txt.Text = txt.Text & Split(TextBox1.Text, ",")(i) If i > 0 Then txt.Text = txt.Text & "," End If Next
مشاركة لكم كتبت هذا المثال البسيط.
مساك الله بالخير أستاذ سعود
ما شاء الله عليك الكود الذي تفضلت به رائع جدًا جدًا ما شاء الله
اشتغل الكود بنسبة 100% على كل الأرقم المدخلة سواء آحاد أو عشرات أو مئات
يعجز لساني وكذلك لوحة مفاتيح الكمبيوتر عن شكرك أستاذي .
(23-12-21, 03:55 AM)Taha Okla كتب : تم تصحيح الكود وهو يعمل بشكل جيد الان ..
أخطأت باسناد قيمة السلسلة المتجددة لمتغير أساسي بدل من ثانوي
نتيجة التسرع بالاجابة دون تجريب ..
نعم ، الآن أصبح الكود يعمل بشكل ممتاز أشكرك أستاذ Taha على تفضلك بالكود ما قصرت بارك الله فيك ، ونفعنا الله بعلمك مدى الزمان .