منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب كود عرض الصورة في picturebox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : طلب كود عرض الصورة في picturebox (/showthread.php?tid=14116)

الصفحات: 1 2

طلب كود عرض الصورة في picturebox - moftah70 - 14-12-15

السلام عليكم ورحمة الله وبركاته
تحية طيبة للجميع
في البداية اود ان تعدروني على اسئلتي التي ربما يراها البعض اسئله غير دات قيمة ولكن بالنسبة لي تعني الكثير حيث اني لا اسأل عن مشكله معينه الا بعد ان اكون حاولت مرارا وتكرارا التغلب على المشكلة
فحياكم الله وابقاكم وبارك الله لكم وفيكم وزادكم الله من علمة ودمتم دخرا للعرب والمسلمين


سؤالي هو :-

عندي قاعدة بيانات اكسس 2007 محمل عليها بيانات ومن ضمن البيانات يوجد حقل خاص بالصور , الصور محفوظه داخل القاعده على شكل مسار فقط وليس الصوره في حد داتها حيث ان الصور موجوده في مجلد بأسم pictures هذا المجلد موجود داخل مجلد debug
المطلوب كود يعرض الصوره في picturebox بمجرد الوقوف على السجل المخزن فيه مسار هذه الصوره

حاولت عرض الصور بالكود التالي ولكن لم انجح حيث انه يعرض صورة معينه بمجرد تحميل الفورم ولاتتغير بالرغم من التحرك على سجلات اخرى

الكود هو :-


                                       DIM POSTION AS INTEGER = BINDINGCONTEXT(DT,ROWS).POSITIONE    


.                                               . ((''PICTUREBOX1.LOAD(DT.ROWS(POSTIONE).ITEM('''PICTURES'

RE: طلب كود عرض الصورة في picturebox - hamada558 - 14-12-15

ضع مشروع..

RE: طلب كود عرض الصورة في picturebox - moftah70 - 14-12-15

(14-12-15, 03:10 AM)hamada558 كتب : ضع مشروع..

تفظل اخي الكريم المشروع  [attachment=8713]

RE: طلب كود عرض الصورة في picturebox - HASAN6.0 - 14-12-15

اضف هذا الكود
PHP كود :
Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
        PictureBox1.Image = Image.FromFile(Application.StartupPath & "\pictures\" & DataGridView1.CurrentRow.Cells(1).Value.ToString.Trim)
    End Sub 


RE: طلب كود عرض الصورة في picturebox - moftah70 - 14-12-15

(14-12-15, 06:33 PM)HASAN6.0 كتب : اضف هذا الكود
PHP كود :
Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
        PictureBox1.Image = Image.FromFile(Application.StartupPath & "\pictures\" & DataGridView1.CurrentRow.Cells(1).Value.ToString.Trim)
    End Sub 




الله ينور عليك ويرحم والديك ويبارك لك وفيك ويارب الخير يجيك والشر يواريك ويحفظك ويرعاك ومن كل نعمه يعطيك
خالص الشكر والتقدير استاذي الكريم

RE: طلب كود عرض الصورة في picturebox - hamada558 - 14-12-15

بحسدك حبيبي حسن على هالدعوات Angry










Wink

RE: طلب كود عرض الصورة في picturebox - moftah70 - 15-12-15

[quote='hamada558' pid='67501' dateline='1450109672']
بحسدك حبيبي حسن على هالدعوات Angry




الناس الطيبة اللي مثل حظرتك يستاهلوا كل خيروانت اكيد من ضمنهم يااخي حماده الله يعطيك كل ماتتمنى يارب العالمين


RE: طلب كود عرض الصورة في picturebox - moftah70 - 15-12-15

السلام عليكم ورحمة الله وبركاته
تحية طيبه للجميع


سؤال ارجو الاجابه عليه ومساعدتي لو سمحتوا

الكود السابق شغال ميه ميه وتمام التمام في حالة ان البيانات متوفره في قاعدة البيانات وفي appllication startuppath ولكن اذا صارف سجل فارغ تحصل مشكله

حاولت حل المشكله عن طريق try وعن طريق if ولكن لم اتمكن للاسف

ارجو من الاساتذه الافاضل مساعدتي في حل هذا الاشكال

مع خالص الشكر وفائق الاحترام والتقدير


RE: طلب كود عرض الصورة في picturebox - HASAN6.0 - 15-12-15

ضع هذا الكود
PHP كود :
Imports System.IO 
في اول سطر

ثم هذا
PHP كود :
Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
        If DataGridView1.Rows.Count = 0 Then Exit Sub
        If IsNothing(DataGridView1.CurrentRow) Then Exit Sub
        Dim picfile As String = Application.StartupPath & "\pictures\" & DataGridView1.CurrentRow.Cells(1).Value.ToString.Trim
        If File.Exists(picfile) Then
            PictureBox1.Image = Image.FromFile(picfile)
        Else
            PictureBox1.Image = Nothing
        End If
    End Sub 

بدل الكود السابق

RE: طلب كود عرض الصورة في picturebox - moftah70 - 15-12-15

(15-12-15, 10:47 PM)HASAN6.0 كتب : ضع هذا الكود
PHP كود :
Imports System.IO 
في اول سطر

ثم هذا
PHP كود :
Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
        If DataGridView1.Rows.Count = 0 Then Exit Sub
        If IsNothing(DataGridView1.CurrentRow) Then Exit Sub
        Dim picfile As String = Application.StartupPath & "\pictures\" & DataGridView1.CurrentRow.Cells(1).Value.ToString.Trim
        If File.Exists(picfile) Then
            PictureBox1.Image = Image.FromFile(picfile)
        Else
            PictureBox1.Image = Nothing
        End If
    End Sub 

بدل الكود السابق

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