السلام عليكم
كيف يتم التعامل مع النص المدخل عن طريق textbox كل سطر على حده
مثلا textbox يوجد بها 3 اسطر
اذا كان احد السطور رقم اطبع هذا الرقم في textbox اخر
واذا كان احد السطور نص يطبع كلمه نص
السلام عليكم
كيف يتم التعامل مع النص المدخل عن طريق textbox كل سطر على حده
مثلا textbox يوجد بها 3 اسطر
اذا كان احد السطور رقم اطبع هذا الرقم في textbox اخر
واذا كان احد السطور نص يطبع كلمه نص
هذا الكود ,, يمكنك فحص قيمة التكست بوكس , إذا كانت تنتهي بسطر جديد ام لا. وبعد ذلك تقسيمها الى أرراي وقراءتها سطر سطر .
هذا مثال يفعل لك ماتريد.
Dim myLine() As String = TextBox1.Text.Split(Environment.NewLine)
For i = 0 To TextBox1.Lines.Count - 1
If IsNumeric(myLine(i)) Then
MsgBox(myLine(i) & "رقم")
Else
MsgBox(myLine(i) & "نص")
End If
Nextتحياتي
تم تعديل هذه المشاركة بواسطة omani في 24 فبراير 2012 في 11:38
OMANI FOR EVER
-------------------------------------------------

-------------------------------------------------