تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نقل النصوص
#1
Question 
السلام عليكم

هل يوجد كود لنقل كل ما تحتويه قائمة الـ list إلى مربع text ؟

توضيح : يعني لو عندي ليست بيحتوي على

محمد
صالح
فهد

فيتم نقلها للتكست فتصبح كالتالي :

محمد * صالح * فهد

وشكراَ
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

كود :
Dim I As Integer

IF List1.ListCount > 0 Then

    Text1.Text = ""
    
    For I = 0 To List1.ListCount - 1

          IF Trim$(List1.List(I)) <> "" Then
              Text1.Text = Text1.Text & Trim$(List1.List(I)) & "*"
          End IF

     Next
  
     IF Trim$(Text1.Text) <> "" Then
         Text1.Text = Left$(Text1.Text,Len(Text1.Text) - 1)
     End IF

End IF

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة: abulayth
#3
السلام عليكم ورحمة الله وبركاته
اليك هذا الكود

PHP كود :
Private Sub Command1_Click()
Clipboard.SetText ""
Text1.Text ""
For 0 To List1.ListCount 1
Text1
.Text Text1.Text List1.List(X) & ", "
Next X
Clipboard
.SetText Text1
End Sub


اليك هذا المثال 
... 
تحياتى ..


الملفات المرفقة
.rar   kinglisttotext.rar (الحجم : 1.65 ك ب / التحميلات : 56)
الرد }}}
تم الشكر بواسطة:
#4
شكراً لكم أخواني على المساعدة
هذا ما أحتاج إليه بالضبط

الله يعطيكم العافية
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية تعديل النصوص الموجودة في تطبيق يستخدم res بالفيجوال بيسك 6 بوعيسى 0 1,578 24-10-19, 10:16 PM
آخر رد: بوعيسى
  نقل البيانات وتعامل مع النصوص في ملف صورة amal_ly 0 1,111 21-09-19, 10:52 PM
آخر رد: amal_ly
  [سؤال] تحويل النص من ping الى text (التعرف على النصوص) hsansalhh 4 2,354 26-06-16, 01:52 PM
آخر رد: hsansalhh
  استدعاء النصوص من صفحة ويب makkiessa 2 1,761 12-08-14, 04:11 PM
آخر رد: makkiessa
Question [سؤال] عدة اسئلة عن النصوص ahmed3d 2 2,027 02-01-14, 02:15 PM
آخر رد: ahmed3d

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


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