تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال فى تقسيم اسم ال textbox
#11
السلام عليكم شباب عندى سؤال و هو ازاى اقدر اجيب تكست يكون اخر اسمو حرف ال s بعد العلام _
يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ(33) سورة الرحمن
الرد }}}
تم الشكر بواسطة:
#12
ايه الخطاء فى الكود ده
كود :
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) سورة الرحمن
الرد }}}
تم الشكر بواسطة:
#13
هو ده الحل
كود :
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) سورة الرحمن
الرد }}}
تم الشكر بواسطة:
#14
أخي الكريم
تفضل هذا هو الكود
كود :
For Each Ctl1 In Me.Controls.OfType(Of TextBox)()
            If Ctl1.Name.EndsWith("s") Then
                ListBox1.Items.Add(Ctl1.Name)
            End If
        Next
الرد }}}
تم الشكر بواسطة:



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


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