+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=17647)
تقسيم ال textbox حسب محتوى - hano - 12-10-16
السلام عليكم
اريد كود في لغه vb.net
لدي ثلاثه textbox
ال textbox الاول ادخل فيه string متكون من حروف وارقام
ال textbox2 تظهر فيه فقط الحروف المدخله في الtextbox1
و ال textbox3 تظهر فيه فقط الرقام
RE: تقسيم ال textbox حسب محتوى - ابراهيم النعيمي - 12-10-16
بالامكان استخدام الكود الذي طلبتيه في مشاركة سابقة مع تغيير بسيط كما يأتي:
PHP كود :
Dim schar As Char
For Each schar In fromtxt.Text
If (Asc(schar) >= 65 AndAlso Asc(schar) <= 90) Or (Asc(schar) >= 97 AndAlso Asc(schar) <= 122) Then
totxt.Text &= schar
Else
TextBox1.Text &= schar
End If
Next
تحياتي ..
RE: تقسيم ال textbox حسب محتوى - أبو ناصر - 12-10-16
يمكن استعمال الكود التالي لعرض الحروف لوحدها و الأرقام لوحدها و الرموز لوحدها
كود :
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim arr() As Char = TextBox1.Text.ToCharArray
For i = 0 To arr.Length - 1
If (Asc(arr(i)) >= 65 And Asc(arr(i)) <= 90) Or (Asc(arr(i)) >= 97 And Asc(arr(i)) <= 122) Then
TextBox2.Text &= arr(i)
ElseIf (Asc(arr(i)) >= 48 And Asc(arr(i)) <= 57) Then
TextBox3.Text &= arr(i)
Else
TextBox4.Text &= arr(i)
End If
Next
End Sub