تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أضافة كلمة لأخر النص
#1
السلام عليكم 
لدي مثلا Text1 يحتوي على 
12
1233
4547
57899
45
وكومند .. عند الضغط عليه تضاف كلمة "test" إلى أخر كل سطر 
قمت بكتابة هذا الكود 
text1.text = text1.text & "test" 
لكن للأسف يصلح لسطر واحد وانا اريد اضافة الكلمة في جميع الاسطر 
هل من مساعدة ممكن ؟
الرد }}}}
تم الشكر بواسطة: محمد ئوزبك
#2
وعليك السلام ورحمة الله وبركاته

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

PHP كود :
Private Sub Command1_Click()

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

Dim TextBoxLines() As String
Dim I 
As Integer

TextBoxLines 
Split(Text1.TextvbCrLf)

Text1.Text ""

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

End Sub 
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد تعديل هذا الكود للبحث لاى كلمه فى النص رجل الكهرباء 2 124 03-10-16, 02:19 AM
آخر رد: رجل الكهرباء
  [سؤال] تحويل النص من ping الى text (التعرف على النصوص) hsansalhh 4 196 26-06-16, 01:52 PM
آخر رد: hsansalhh
Question [سؤال] امل المساعدة في دالة تقسيم النص allayl 8 886 24-07-14, 06:42 AM
آخر رد: allayl
  كلمة سر اسلام الكبابى 2 367 03-06-14, 11:37 PM
آخر رد: اسلام الكبابى
  [سؤال] عرض النص بشكل عمودي في Activereport Microsoft Visual Basic 6.0 2 461 11-05-14, 10:39 AM
آخر رد: Microsoft Visual Basic 6.0
  حذف مسافات قبل النص asto 2 618 09-02-14, 01:53 AM
آخر رد: asto
  مسافة قبل النص asto 1 433 04-02-14, 05:06 AM
آخر رد: عبدالله الصافي
  [سؤال] ارجو تصحيح هذا الكود (كود استبدال النص) مبرمج مبتدئ 11 1,710 20-01-14, 03:54 PM
آخر رد: mr.am.he
  [سؤال] مطلوب كود تدوير مربع النص مبرمج مبتدئ 7 1,820 17-01-14, 11:33 PM
آخر رد: مبرمج مبتدئ
  [سؤال] مطلوب كود حساب حروف النص بلا مسافات مبرمج مبتدئ 2 622 16-01-14, 09:12 AM
آخر رد: مبرمج مبتدئ

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم