+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال فى تقسيم اسم ال textbox (/showthread.php?tid=7293)
الصفحات:
1
2
سؤال فى تقسيم اسم ال textbox - alimse - 12-12-12
السلام عليكم شباب عندى سؤال و هو ازاى اقدر اجيب تكست يكون اخر اسمو حرف ال s بعد العلام _
سؤال فى تقسيم اسم ال textbox - alimse - 13-12-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سؤال فى تقسيم اسم ال textbox - alimse - 13-12-12
هو ده الحل
كود :
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سؤال فى تقسيم اسم ال textbox - sooriaty03 - 13-12-12
أخي الكريم
تفضل هذا هو الكود
كود :
For Each Ctl1 In Me.Controls.OfType(Of TextBox)()
If Ctl1.Name.EndsWith("s") Then
ListBox1.Items.Add(Ctl1.Name)
End If
Next