تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التعديل على المثال المرفق لل Scanner
#1
من المنتدى القديم ارفق لكم
مثال للأخ عبد الله الدوسري يقوم بعملية تشغيل السكانر وسحب الاوراق بطريقة احترافية
من الماسح الضوئي ورقة واحدة او مجموعة اوراق .

**مرفق المثال الاصلي برابط اخر الموضوع
المثال يعمل بشكل ممتاز
وقد قمت بحفظ الصور الخارجة من السكانر على الجهاز عن طريق الكود التالي :
PHP كود :
Dim Myemage As RasterImage
Myemage
e.Image   
Myemage
.ConvertToGdiPlusImage().Save("D:\100\archive\img1.jpeg"

اما طلبي هو بانني اريد ان اقوم بعرض الصور من مسار معين في الجهاز الى الlist التي على يمين الفورم .

صورة للتوضيح


تحميل الملف الاصلي للمشروع
شكراً لكم
الرد }}}}
تم الشكر بواسطة:
#2
هل المطلوب هو عرض صور من مسار معين في قائمة Listbox ؟ مثل الصورة التالية
فانظر للمثال هنا
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: فاتن
#3
شكراً لك سعود لكني اريد التعديل على المثال اللذي بالموضوع لان الادوات المستخدمه تختلف عن ادوات الدوت نت (برمجة خاصة)
الرد }}}}
تم الشكر بواسطة:
#4
لقد وجدت هذا الكود
http://www.leadtools.com/help/leadtools/...ource.html
الرد }}}}
تم الشكر بواسطة:
#5
لكن لم افهم شيئ من الشرح في الرابط التالي
http://www.leadtools.com/help/leadtools/...ource.html
الرد }}}}
تم الشكر بواسطة:
#6
با أخت فاتن

ما أفهمه من سؤالك أن لديك فولدر بإسم ما...و به بعض الصور المختلفة.....و تريدي إضافة تلك الصور الي الي List

إن كان هذا ما تريدينه ربما أضع لكيفكرة الكود لا حقا ثم تقومي أنتي ب التعديل علي المثال الخاص بك
الرد }}}}
تم الشكر بواسطة:
#7
(06-04-14, 02:36 PM)silverlight كتب : با أخت فاتن

ما أفهمه من سؤالك أن لديك فولدر بإسم ما...و به بعض الصور المختلفة.....و تريدي إضافة تلك الصور الي الي List

إن كان هذا ما تريدينه ربما أضع لكيفكرة الكود لا حقا ثم تقومي أنتي ب التعديل علي المثال الخاص بك

كلامك صحيح لكنني اريد ان استعمل الاداة المرفقة مع البرنامج وهي list خاصة من مجموعة ادوات leadtools v16
الرد }}}}
تم الشكر بواسطة:
#8
للأسف الملف الخاص بك لم يعمل لدي بشكل دقيق و تحديدا مكتبة 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
الرد }}}}
تم الشكر بواسطة: Omar Mekkawy
#9
هل قمت بإنشاء مشروع جديد أم أنك تعدلين علي مثال عبدالله الدوسري

إن كان التعديل علي مثال عبدالله فالأداة موجودة فالفعل بالمثال
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#10
نعم اريد التعديل على مثال الاخ عبد الله الدوسري
فهو يقوم بعرض الصور من الماسح الضوئي مباشرة في الليست اللي على اليمين

اما انا اريد ان اقوم باضافة زر جديد لاقوم بعرص الصور من فولدر معين بالجهاز
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طلب التعديل في كود بسيط rabeh.ram 2 53 29-11-16, 11:10 PM
آخر رد: rabeh.ram
  خطاء عند التعديل علي Checkbox السيد الجوهري 4 60 27-11-16, 04:10 PM
آخر رد: السيد الجوهري
  ما هو الخطاء فى هذا الكود "كود التعديل" السيد الجوهري 1 62 26-11-16, 03:22 AM
آخر رد: أبو عمر
  التعديل علي datagridview باستخدام sql command dark1459 6 131 21-11-16, 11:55 AM
آخر رد: dark1459
  [VB.NET] استفسار بخصوص استعلام التعديل dark1459 8 107 15-11-16, 12:31 AM
آخر رد: dark1459
  التعديل الذي أقوم به في الفورم لا يظهر عند عمل RUN نسيم 8 194 07-11-16, 01:14 PM
آخر رد: zinom
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 133 29-10-16, 03:42 PM
آخر رد: أبووسم
  التعديل في اكسس makky 1 102 22-09-16, 11:19 PM
آخر رد: ممدوح
  الرجاء عمل تقرير للنموذج المرفق haiderkh 8 177 17-09-16, 12:35 AM
آخر رد: ابو ليلى
  التعديل على هذا المشروع abdulla2 10 283 07-09-16, 12:39 AM
آخر رد: abdulla2

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم