كيف يتم اضافة حرف عند نهاية كل سطرمن سطور TextBox؟

جرب وعذرني لاني كتبته مباشرة

dim i as integer
for i = 1 to len(text1.text)

if mid(text1.text,i,1) = vbnewline then
mid(text1.text,i,5) = 'fawaz'
i = i +5
end if
next i

يمكن تغير vbnewline إلى chr(13) أو chr(10)

حاول فيه

اشكرك اخي فواز الشمري :D

بالفعل لقد استفدت من فكرة الكود وقمت بعمل تعديلات بسيطة حتى نجح B)

وهذه هي النتيجة

Dim NewStr As String
Dim test As String

test = "Sameer"

Dim l As Long
For i = 1 To Len(Text1.Text)
   If Asc(Mid(Text1.Text, i, 1)) = 13 Then
      NewStr = NewStr & test & Mid(Text1.Text, i, 1)
     Else
     
      NewStr = NewStr & Mid(Text1.Text, i, 1)
   End If
Next
Text1.Text = NewStr

سوال اضافي لماذا لم ينجح معي ؟؟

(Mid(Text1.Text, i, 1)) = VbNewLine

أخي العزيز أنت في هذه الحالة أستخدمت الدالة mid على أنها تصريح لا دالة أقتطاع هل أنت و اثق من ذلك

كان سوالي الاخير بالنسبة لهذه الحالة

For i = 1 To Len(Text1.Text)
  If Mid(Text1.Text, i, 1) = VbNewLine Then
     NewStr = NewStr & test & Mid(Text1.Text, i, 1)
    Else
   
     NewStr = NewStr & Mid(Text1.Text, i, 1)
  End If
Next

لماذ لم تنجح VbNewLine معي؟...

الكود ليس به اى خطأ

جرب أيضاً هذا الكود مع اداة الريتش تيكست

Private Sub Command1_Click()
Dim tmp$(), C&
tmp = Split(RichTextBox1.Text, Chr(10))
For C = 0 To UBound(tmp)
    tmp(C) = tmp(C) & "_"
Next
RichTextBox1.Text = ""
For C = 0 To UBound(tmp)
If RichTextBox1.Text = "" Then
    RichTextBox1.Text = RichTextBox1.Text & tmp(C)
Else
    RichTextBox1.Text = RichTextBox1.Text & Chr(10) & tmp(C)
End If
Next
End Sub

ياريت بس لو معي وقت على العموم :

VbNewLine هوا احد الثوابت التي تعطي وله قيمة يمكنك ان تعرفها بالغط على ctrl + i لتعرف القيمة التي ياخذها هذا الثابت , وهي تجمع اعتقد الدالتين chr(13) ,chr(10) . والتكس معرف على السطر الجديد بالرمز chr(13) وهي مسئلة إختلافات في القيم فقط لهذا الثابت .

في .net معرفة chr(10) .

بالتوفيق