منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
نقل النصوص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=3658)

نقل النصوص - makkiessa - 18-08-14

السلام عليكم

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

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

محمد
صالح
فهد

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

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

وشكراَ

RE: نقل النصوص - VB_Coder - 18-08-14

السلام عليكم

كود :
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

- تحياتي .

RE: نقل النصوص - king2512010 - 18-08-14

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

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


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

RE: نقل النصوص - makkiessa - 18-08-14

شكراً لكم أخواني على المساعدة
هذا ما أحتاج إليه بالضبط

الله يعطيكم العافية