منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Jonewickk

Ahmed_Mansoor