+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : أضافة كلمة لأخر النص (/showthread.php?tid=17811)
أضافة كلمة لأخر النص - Jonewickk - 27-10-16
السلام عليكم
لدي مثلا Text1 يحتوي على
12
1233
4547
57899
45
وكومند .. عند الضغط عليه تضاف كلمة "test" إلى أخر كل سطر
قمت بكتابة هذا الكود
text1.text = text1.text & "test"
لكن للأسف يصلح لسطر واحد وانا اريد اضافة الكلمة في جميع الاسطر
هل من مساعدة ممكن ؟
RE: أضافة كلمة لأخر النص - Ahmed_Mansoor - 27-10-16
وعليك السلام ورحمة الله وبركاته
أهلا أخي الكريم , هذا كود الكوماند كامل لعمل ماتريد :
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