[bidaya]

السلام عليكم

احتاج كود لفتح عدة صور من روابطها

الروابط تحمل في الليست بوكس كما بالصورة

كيف اقوم بفتح كل صورة في بيكتر بوكس  الخاص بها

مثلا عندنا في اليست بوكس  24 رابط

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

كيف اقوم بفتحها من الروابد داخل البيكتر بوكسات

الرابط الاول في البيكتر بوكس الاول

والرابط الثاني في البيكتر بوكس الثاني .....و هكذا

[asemshahen5]

اضف اداة FlowLayoutPanel الى الفورم و جرب هذا الكود :

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For Each f As String In IO.Directory.GetFiles("D:\08-08-2018\background")
            If f.Contains("Thumbs.db") Then
                Continue For
            End If
            ListBox1.Items.Add(f)
        Next
        For i = 0 To ListBox1.Items.Count - 1
            Dim pic As New PictureBox
            pic.Name = "Pic" & i
            pic.Height = 64
            pic.Width = 64
            pic.SizeMode = PictureBoxSizeMode.StretchImage
            pic.Image = Image.FromFile(ListBox1.Items(i).ToString)
            pic.Tag = ListBox1.Items(i).ToString
            FlowLayoutPanel1.Controls.Add(pic)
            AddHandler pic.Click, AddressOf PicClick
        Next
    End Sub
    Private Sub PicClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim btn1 As PictureBox = CType(sender, PictureBox)
        MsgBox(btn1.Tag)
    End Sub 


[bidaya]

فيه مشكل اخي

[asemshahen5]

ده اسم مجلد صور عندي كنت عمجرب عليه الكود :

"D:\08-08-2018\background"

استبدله بمجلد الصور الخاص بك .

---

الغ هذا الكود :

PHP كود :

For Each f As String In IO.Directory.GetFiles("D:\08-08-2018\background")
            If f.Contains("Thumbs.db") Then
                Continue For
            End If
            ListBox1.Items.Add(f)
        Next 


و استخدم الباقي .

[bidaya]

(17-11-19, 10:54 PM)asemshahen5 كتب : ده اسم مجلد صور عندي كنت عمجرب عليه الكود :

"D:\08-08-2018\background"

استبدله بمجلد الصور الخاص بك .

---

الغ هذا الكود :

PHP كود :

For Each f As String In IO.Directory.GetFiles("D:\08-08-2018\background")
            If f.Contains("Thumbs.db") Then
                Continue For
            End If
            ListBox1.Items.Add(f)
        Next 


و استخدم الباقي .

شكرا ساجرب

---

(18-11-19, 09:40 AM)bidaya كتب :

(17-11-19, 10:54 PM)asemshahen5 كتب : ده اسم مجلد صور عندي كنت عمجرب عليه الكود :

"D:\08-08-2018\background"

استبدله بمجلد الصور الخاص بك .

---

الغ هذا الكود :

PHP كود :

For Each f As String In IO.Directory.GetFiles("D:\08-08-2018\background")
            If f.Contains("Thumbs.db") Then
                Continue For
            End If
            ListBox1.Items.Add(f)
        Next 


و استخدم الباقي .

شكرا ساجرب

[3booody]

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

جرب استبدل السطر الخطأ بهذا

كود :

pic.ImageLocation = ListBox1.Items(i).ToString

[bidaya]

(18-11-19, 11:51 AM)3booody كتب : السلام عليكم ورحمة الله وبركاته

جرب استبدل السطر الخطأ بهذا

كود :

pic.ImageLocation = ListBox1.Items(i).ToString

اشكرك اخي على الحل فعلا نجح الكود

الله يحفظك

واشكر الاخ   asemshahen5  على تقديم المساعدة والاهتمام

[asemshahen5]

الحمد الله و الشكر الله و شكر خاص للاخ : 3booody على مايقدمه من مساعدة للاخرين ...

[3booody]

[b]asemshahen5[/b]

شكرآ الك اخي واستاذي عاصم اكيد لولا جهودكم وعملكم بالمنتدى لما استطاع احد ان يقدم شيء , اسأل الله ان يديمكم ويديمنا عونآ لكل سائل وجزاك الله خيرآ