[الخير طهوري]

السلام عليكم ورحمة الله
هل يمكنني الحصول على كود لنسخ كل محتويات الأداة Listbox  و كيفية تحديدها
ألف شكر مسبقا

[Ahmed_Mansoor]

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

إستخدم هذا الكود :

PHP كود :

Private Sub Command1_Click()

Dim zListData As String
Dim I As Integer

For I = 0 To List1.ListCount - 1
    zListData = zListData & List1.List(I) & vbNewLine
Next

Clipboard.SetText zListData

End Sub 


[الخير طهوري]

السلام عليكم ورحمة الله وبركاته
يعجز اللسان عن شكركم
دائما رائع كما عهدتك في المنتدى القديم
حفظك الله وسدد خطاك