+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التعديل على المثال المرفق لل Scanner (/showthread.php?tid=2448)
الصفحات:
1
2
RE: التعديل على المثال المرفق لل Scanner - Aly El-Haddad - 07-04-14
بصراحة لم أرى المثال أو الأدوات لكن ببساطة يمكن عمل ذلك بأداة ListView بهذا الكود:
PHP كود :
ListView1.LargeImageList = New ImageList() With {.ImageSize = New Size(200, 150), .ColorDepth = 32}
Dim imgExtensions As String() = {".jpg", ".jpeg", ".png", ".gif"}
Dim paths As String() = IO.Directory.GetFiles("Folder Path")
Array.ForEach(Of String)(paths, Sub(path As String) Array.ForEach(Of String)(imgExtensions, Sub(ext As String) If path.ToLower().EndsWith(ext) Then ListView1.LargeImageList.Images.Add(Image.FromFile(path))))
For i As Integer = 0 To ListView1.LargeImageList.Images.Count - 1
ListView1.Items.Add("", i)
Next
RE: التعديل على المثال المرفق لل Scanner - m.sami.ak - 07-04-14
الاداة المستخدمة تختلف عن اداة ال ListView الطبيعية
ارجو الافادة
RE: التعديل على المثال المرفق لل Scanner - kslawy - 07-04-14
السلام عليكم ورحمة الله وبركاته
مرفق مثال باستخدام أداة الـ Listview
RE: التعديل على المثال المرفق لل Scanner - مصطفى - 25-08-15
اخوان ممكن استخدم هذه الدوال في فجوال فوكس برو 9 ارجو الافادة
RE: التعديل على المثال المرفق لل Scanner - mrnooo2000 - 25-12-15
يرجى رفع الملف الأصلى المطلوب التعديل عليه
لان الرابط لا يعمل