منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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


سؤالي هو :-

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

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

الكود هو :-


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


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

ضع مشروع..

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

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

اضف هذا الكود

(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 


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

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

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

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

ضع هذا الكود
في اول سطر

ثم هذا

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

(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 


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