هل المطلوب هو عرض صور من مسار معين في قائمة Listbox ؟ مثل الصورة التالية
فانظر
للمثال هنا
شكراً لك سعود لكني اريد التعديل على المثال اللذي بالموضوع لان الادوات المستخدمه تختلف عن ادوات الدوت نت (برمجة خاصة)
با أخت فاتن
ما أفهمه من سؤالك أن لديك فولدر بإسم ما...و به بعض الصور المختلفة.....و تريدي إضافة تلك الصور الي الي List
إن كان هذا ما تريدينه ربما أضع لكيفكرة الكود لا حقا ثم تقومي أنتي ب التعديل علي المثال الخاص بك
(06-04-14, 02:36 PM)silverlight كتب : [ -> ]با أخت فاتن
ما أفهمه من سؤالك أن لديك فولدر بإسم ما...و به بعض الصور المختلفة.....و تريدي إضافة تلك الصور الي الي List
إن كان هذا ما تريدينه ربما أضع لكيفكرة الكود لا حقا ثم تقومي أنتي ب التعديل علي المثال الخاص بك
كلامك صحيح لكنني اريد ان استعمل الاداة المرفقة مع البرنامج وهي list خاصة من مجموعة ادوات leadtools v16
للأسف الملف الخاص بك لم يعمل لدي بشكل دقيق و تحديدا مكتبة Leadtools ... لكن ما فهمته أنك تريد اضافة الصور من فولدر ما علي جهاز الكمبيوتر الي DocsRasterImageList الموجودة علي الفورم الموجود في مشروعك
اولا : عليك أن تقوم بتعريف المتغيرات التالية في مشروعك
كود :
Private imageFiles() As String = Nothing
Private imageFileLocation As String = Nothing
ثانيا : تقوم بإضافة الدالة التالية الي مشروعك و هي تمثل الدالة المسئولة عن جلب ملفات الصور
كود :
Public Shared Function GetAllImages(imagePath As String) As String()
Dim imageFileExtension As String = "*.jpg;*.jpeg;*.png;*.bmp;*.tif;*.tiff;*.gif"
Dim imageFileExtensionPattens() As String = imageFileExtension.Split(";"c)
Dim imageFiles As List(Of String) = New List(Of String)()
For Each imageFilter As String In imageFileExtensionPattens
' Data to hold names of subfolders to be examined for files.
Dim foldersStack As New Stack(Of String)(20)
If Not Directory.Exists(imagePath) Then
Throw New ArgumentException()
End If
foldersStack.Push(imagePath)
Do While foldersStack.Count > 0
Dim currentFolder As String = foldersStack.Pop()
Dim subFolder() As String = Nothing
Try
subFolder = Directory.GetDirectories(currentFolder)
Catch ex As Exception
Continue Do
End Try
Try
imageFiles.AddRange(Directory.GetFiles(currentFolder, imageFilter))
Catch ex As Exception
Continue Do
End Try
For Each str As String In subFolder
foldersStack.Push(str)
Next str
Loop
Next
Return imageFiles.ToArray()
End Function
ثالثا : تقوم بإضافة الروتين التالي الي مشروعك و هو سيكون مسئول عن اضافة الصور الي DocsRasterImageList
كود :
Private Sub GetImageFiles(ByVal imageLocation As String)
Me.imageFiles = GetAllImages(imageLocation)
For Each Imagefile As String In imageFiles
If imageFiles.Length <> 0 Then
DocsRasterImageList.Items.Add(Imagefile)
End If
Next
End Sub
و أخيرا و ف الحدث الخاص ب بدء الفورم يمكنك ان تضيف الكود التالي لكن عليك ان تحدد المسار الموجودة به ملفات الصور بدقة حتي لا يحدث خطأ
تحديد مكان الصور أمر متروك لك تنفيذه بأي شكل تريده طبقا لإحتياجات برنامجك
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' المكان الموجودة به الصور يجب تحديدة بدقة تامة....يمكنك تغيير اسم الفهرس الي أي اسم تريده
Me.imageFileLocation = "C:\Dell\A"
GetImageFiles(imageFileLocation)
End Sub
هل قمت بإنشاء مشروع جديد أم أنك تعدلين علي مثال عبدالله الدوسري
إن كان التعديل علي مثال عبدالله فالأداة موجودة فالفعل بالمثال
نعم اريد التعديل على مثال الاخ عبد الله الدوسري
فهو يقوم بعرض الصور من الماسح الضوئي مباشرة في الليست اللي على اليمين
اما انا اريد ان اقوم باضافة زر جديد لاقوم بعرص الصور من فولدر معين بالجهاز
