[makkiessa]

السلام عليكم

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

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

محمد
صالح
فهد

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

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

وشكراَ

[VB_Coder]

السلام عليكم

كود :

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

- تحياتي .

[king2512010]

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

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


اليك هذا المثال ... 


تحياتى ..

[makkiessa]

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

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