+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الكتابة من Textbox1 الى Textbox2 (/showthread.php?tid=1227)
الصفحات:
1
2
RE: الكتابة من Textbox1 الى Textbox2 - Easy4ever - 11-12-13
أخي الكريم
هل انت تقصد انك تريد ان يحول الفراغ إلى سطر جديد
وإذا كان يوجد اكثر من فراغ متتالي يحول الأولى إلى سطر جديد والبقية يكتبها فراغ
مثلا لو كان لدينا هذي الكلمة
لنفرض ان النقطه عبارة عن فراغ لان المنتدى لا يقبل فراغين متتاليين (Easy.4..ever)
يكتبها هكذا
Easy
4
.ever
إذا كان نعم أضف في كود الأخ Sajad متغير من نوع Boolean حتى يكون فلتر للفراغات الزائدة
الكود بعد التعديل
PHP كود :
Dim FilterSp As Boolean = False
For i = 0 To TextBox1.Text.Length - 1
If TextBox1.Text(i) = " " And FilterSp = False Then
TextBox2.Text += vbNewLine
FilterSp = True
Else
TextBox2.Text += TextBox1.Text(i)
If TextBox1.Text(i) <> " " Then FilterSp = False
End If
Next
معنى الكود ان إذا كان يوجد فراغ وفي نفس الوقت الفلتر مغلق قم بتحويل الفراغ إلأى سطر جديد وقم بتفعيل الفلتر
خلاف هذا يقوم بإضافة الحرف أو المسافه وفي نفس الوقت يسأل هل قام بإضافة حرف أو مسافه
إذا كان حرف يقوم بإقفال الفلتر أما إذا كان مسافة فلا يقفل الفلتر حتى ينتهي من المسافات المتتالية
RE: الكتابة من Textbox1 الى Textbox2 - beep - 11-12-13
تفضل اخي
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox2.Multiline = True
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim txt1 As String = Trim(TextBox1.Text)
Dim i As Integer
Dim spac As Boolean = True
Do While i <= txt1.Length - 1
If txt1(i) <> " " Then
TextBox2.Text = TextBox2.Text & txt1(i)
spac = True
ElseIf spac = True Then
TextBox2.Text = TextBox2.Text & vbNewLine
spac = False
End If
i += 1
Loop
End Sub
End Class
RE: الكتابة من Textbox1 الى Textbox2 - Mr.ILI - 11-12-13
نعم اخي Easy4ever هذا ما قصدته .... شكرا لك وجزاك الله الف خير .... وشكرا لجميع الاعضاء اتعبتكم معي ... وبراك الله فيكم وجزاكم الله الخير كله
RE: الكتابة من Textbox1 الى Textbox2 - tarek - 12-12-13
استخدم الدالة mid