منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

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

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

محمد
صالح
فهد

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

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

وشكراَ

السلام عليكم

كود :

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

- تحياتي .

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

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

VB_Coder

king2512010

makkiessa