[larbihamri]

شكرا اخي و استاذنا بارك الله فيك و في اهل 
كفيت و وفيت

[حريف برمجة]

بالتوفيق للجميع

[larbihamri]

إذا امكن استاذنا ممكن تشرحلي كود ملأ الليست فيو فالصور حتى افهمه جيدا و يترسخ عندي

[حريف برمجة]

(14-10-18, 11:46 AM)larbihamri كتب : إذا امكن استاذنا ممكن تشرحلي كود ملأ الليست فيو فالصور حتى افهمه جيدا و يترسخ عندي

هذا الكود المسئول عن تعبئة الليست فيو بالبيانات والصور :

كود :

Sub Showimageinlistview()
        'عرض الصور والبيانات في الليست فيو يتم بإدراج الصور أولاً في اداة اسمها إميج ليست ومن ثم تربطها بالليست فيو

        'تفريغ البيانات الموجودة في الليست فيو 
        ListView1.Clear()

        'إستعلام يجلب جميع البيانات
        Dim dp As New OleDbDataAdapter("SELECT * FROM Table1", conn)
        Dim dt As New DataTable

        'تعبئة الداتاتيبل بالبيانات
        dp.Fill(dt)

        'اعدادات اداة إميج ليست لإدراج الصور بها وربط الليست فيو بها لعرض الصور
        Dim ImageList As New ImageList
        ListView1.LargeImageList = ImageList

        'تعديل عرض وارتفاع الصور داخل اداة إميج ليست 140
        ImageList.ImageSize = New Size(140, 140)

        'حلقة تكرارية دوران على جميع السجلات الموجودة في الداتاتيبل لجلب الصورة والبيانات
        For x As Integer = 0 To dt.Rows.Count - 1
            ' هنا x = 0 ،، وسوف يفيدنا في جلب قيمة الصف الاول من الداتاتيبل وفي كل مره دوران يزيد بمقدار واحد

            'جلب الصورة من حقل الصور
            'لاحظ × هنا في أول الأمر تساوي صفر ثم عندما يعمل دوران يزيد مقدار واحد
            Dim CarImageByte() As Byte = dt.Rows(x).Item("car_image")
            Dim CarImage As New System.IO.MemoryStream(CarImageByte)

            'إدراج الصورة بعد جلبها من حقل الصور في أداة إميج ليست لإدراجها في الليست فيو
            ImageList.Images.Add(Image.FromStream(CarImage), Color.White)

            CarImage.Close()

            'تعريف كائن من نوع آيتيم لليست فيو بمعنى صنف لليست فيو 
            Dim Lvi As New ListViewItem()

            'ادراج نوع ولون وموديل السيارة في الكائن لعرضها في الليست فيو
            Lvi.Text = "Car Kind :" & dt.Rows(x).Item("car_kind") & vbNewLine & "Car Color : " & dt.Rows(x).Item("car_color") & vbNewLine & "Car Model : " & dt.Rows(x).Item("car_model")

            'هذا السطر لعرض نوع السيارة فقط وإذا اردنا عرض حقل آخر نضيف & ونكتب اسم الحقل الموجود في الداتاتيبل
            'Lvi.Text = "Car Kind :" & dt.Rows(x).Item("car_kind")

            Lvi.ImageIndex = x

            'إدراج البيانات في الليست فيو
            ListView1.Items.Add(Lvi)


        Next
    End Sub

حلقة الدوران عندما يصل إلى كلمة Next الكود مباشرة يعمل

             x = x + 1

بمعنى هذا السطر

كود :

dt.Rows(x).Item("car_kind")

في أول الأمر يعني

كود :

dt.Rows(0).Item("car_kind")

ثم يزيد × بمقدار واحد بمعنى

كود :

dt.Rows(1).Item("car_kind") وهكذا في كل مره يعمل دورة يزيد مقدار واحد حتى آخر سجل في الجدول

هذا اقصى شي اقدر اشرحة .

[larbihamri]

شكرا استاذنا ...ان شاء الله ربي يفتح عليك ابواب الرزق و الخير و البركة

[حريف برمجة]

(14-10-18, 11:26 PM)larbihamri كتب : شكرا استاذنا ...ان شاء الله ربي يفتح عليك ابواب الرزق و الخير و البركة

العفو ،، اللهّم آمين ولي ولك ولجميع المسلمين والمسلمات بالمثل وأكثر حتى نرضى

[mohamedgadain61]

تقدر تضيف لنا نفس المثال بس ASP.VB 

لو تكرمتو واحد يساعدنا الله يجزاكم خير وشكرا ....

[حريف برمجة]

(16-10-18, 04:56 PM)mohamedgadain61 كتب : تقدر تضيف لنا نفس المثال بس ASP.VB 

لو تكرمتو واحد يساعدنا الله يجزاكم خير وشكرا ....

ابشر إن شاء الله ،،

[mohamedgadain61]

الله يجزاك الف خير اخي ... لو تكرمت بعد اذنك يفضل الصور تكون منفصلة من الداتا بيز اي تكون موجودة بمجلد ... وتحفظ بمسار


بانتظار المثال 

[حريف برمجة]

(17-10-18, 12:01 AM)mohamedgadain61 كتب : الله يجزاك الف خير اخي ... لو تكرمت بعد اذنك يفضل الصور تكون منفصلة من الداتا بيز اي تكون موجودة بمجلد ... وتحفظ بمسار


بانتظار المثال 

ان شاء الله ،،

قاعدة بيانات اكسس او اسكيوال سيرفر ؟