بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
لو سمحتم كيف أستطيع أخذ المعلومات من الملفات عندما أستخدم (File List Box)
ليس المقصد عندما أختار ملف واحد فقط لا إنما أريد عندما أحدد أكثر من ملف
أنا وضعت هذا الكود ولكن لم ينفع
Dim a As Variant a = Split(File1.ListIndex, Chr(0)) If UBound(a) = 0 Then Print a(0) Else For i = LBound(a) To UBound(a) Print a(i) Next i End If
فالرجاء تعديل الكود
والشكر موصول للكل
تحياتي/ أخوكم :theebasya
تم تعديل هذه المشاركة بواسطة theebasya في 1 أغسطس 2007 في 02:29
Private Sub cmdPrintSelected_Click() Cls If File1.ListIndex <> -1 Then Dim iCount As Integer For iCount = 0 To File1.ListCount - 1 If File1.Selected(iCount) = True Then Print File1.List(iCount) Next End If End Sub
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…