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% على كل الأرقم المدخلة سواء آحاد أو عشرات أو مئات
يعجز لساني وكذلك لوحة مفاتيح الكمبيوتر عن شكرك أستاذي .
(22-12-21, 05:07 PM)أبو خالد الشكري كتب :
مساك الله بالخير أستاذ سعود
ما شاء الله عليك الكود الذي تفضلت به رائع جدًا جدًا ما شاء الله
اشتغل الكود بنسبة 100% على كل الأرقم المدخلة سواء آحاد أو عشرات أو مئات
يعجز لساني وكذلك لوحة مفاتيح الكمبيوتر عن شكرك أستاذي .
بارك الله فيك ، ورحم الله والديك .
الله يبشرك بالخير و الحمدلله اني قدمت فائدة هذا اليوم في منتدانا الطيب.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
(23-12-21, 03:55 AM)Taha Okla كتب : تم تصحيح الكود وهو يعمل بشكل جيد الان ..
أخطأت باسناد قيمة السلسلة المتجددة لمتغير أساسي بدل من ثانوي
نتيجة التسرع بالاجابة دون تجريب ..
نعم ، الآن أصبح الكود يعمل بشكل ممتاز أشكرك أستاذ Taha على تفضلك بالكود ما قصرت بارك الله فيك ، ونفعنا الله بعلمك مدى الزمان .