[Jonewickk]

السلام عليكم 
لدي مثلا Text1 يحتوي على 
12
1233
4547
57899
45
وكومند .. عند الضغط عليه تضاف كلمة "test" إلى أخر كل سطر 
قمت بكتابة هذا الكود 
text1.text = text1.text & "test" 
لكن للأسف يصلح لسطر واحد وانا اريد اضافة الكلمة في جميع الاسطر 
هل من مساعدة ممكن ؟

[Ahmed_Mansoor]

وعليك السلام ورحمة الله وبركاته

أهلا أخي الكريم , هذا كود الكوماند كامل لعمل ماتريد :

PHP كود :

Private Sub Command1_Click()

If InStr(1, Text1.Text, vbCrLf) <= 0 Then
   Text1.Text = Text1.Text & "Test"
   Exit Sub
End If

Dim TextBoxLines() As String
Dim I As Integer

TextBoxLines = Split(Text1.Text, vbCrLf)

Text1.Text = ""

For I = 0 To UBound(TextBoxLines)
    If Trim$(TextBoxLines(I)) <> "" Then
       TextBoxLines(I) = TextBoxLines(I) & "Test"
       Text1.Text = Text1.Text & TextBoxLines(I)
       If I <> UBound(TextBoxLines) Then Text1.Text = Text1.Text & vbCrLf
    End If
Next

End Sub