تقييم الموضوع :
  • 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 
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إضافة كلمة المرور عبد العزيز البسكري 4 212 24-05-17, 04:54 PM
آخر رد: larbihamri
  [ تمّ الحل ] : تعديل كلمة المرور عبد العزيز البسكري 8 361 08-04-17, 09:33 PM
آخر رد: larbihamri
  [vb6.0] كود نسخ ملف من مكان لأخر mero zarad 49 1,567 26-03-17, 07:37 PM
آخر رد: الخير طهوري
Question [vb6.0] كيف يمكن تحديد أسم المستخدم من القائمة وإدخال كلمة المرور ؟؟ Microformt 1 267 14-12-16, 03:53 PM
آخر رد: sendbad100
  اريد تعديل هذا الكود للبحث لاى كلمه فى النص رجل الكهرباء 2 397 03-10-16, 02:19 AM
آخر رد: رجل الكهرباء
  [سؤال] تحويل النص من ping الى text (التعرف على النصوص) hsansalhh 4 381 26-06-16, 01:52 PM
آخر رد: hsansalhh
Question [سؤال] امل المساعدة في دالة تقسيم النص allayl 8 1,179 24-07-14, 06:42 AM
آخر رد: allayl
  كلمة سر اسلام الكبابى 2 463 03-06-14, 11:37 PM
آخر رد: اسلام الكبابى
  [سؤال] عرض النص بشكل عمودي في Activereport Microsoft Visual Basic 6.0 2 584 11-05-14, 10:39 AM
آخر رد: Microsoft Visual Basic 6.0
  حذف مسافات قبل النص asto 2 745 09-02-14, 01:53 AM
آخر رد: asto

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


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