[silverlight]

للأسف الملف الخاص بك لم يعمل لدي بشكل دقيق و تحديدا مكتبة 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