المشاركات : 102
المواضيع 25
الإنتساب : Sep 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
السلام عليكم شباب عندى سؤال و هو ازاى اقدر اجيب تكست يكون اخر اسمو حرف ال s بعد العلام _
يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ(33) سورة الرحمن
المشاركات : 102
المواضيع 25
الإنتساب : Sep 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
ايه الخطاء فى الكود ده
كود :
For Each ctr5 In Controls.OfType(Of System.Windows.Forms.TextBox)()
If Strings.Right(ctr5.Text.Split, 1) = ("s") Then
ListBox1.Items.Add(ctr5)
End If
Next
يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ(33) سورة الرحمن
المشاركات : 102
المواضيع 25
الإنتساب : Sep 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
هو ده الحل
كود :
Dim ctl5 As Control
Dim a As String
Dim b As Integer
For Each ctl5 In Me.Controls
If TypeOf ctl5 Is TextBox Then
a = Convert.ToString(ctl5.Name)
b = Len(a)
If (Mid(a, b, 1)) = "s" Then
ctl5.Text = ""
ListBox1.Items.Add(ctl5.Name)
End If
End If
Next
يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ(33) سورة الرحمن