السلام عليكم
احتاج كود لفتح عدة صور من روابطها
الروابط تحمل في الليست بوكس كما بالصورة
كيف اقوم بفتح كل صورة في بيكتر بوكس الخاص بها
مثلا عندنا في اليست بوكس 24 رابط
وعندنا في البرنامج 24 بيكتر بوكس
كيف اقوم بفتحها من الروابد داخل البيكتر بوكسات
الرابط الاول في البيكتر بوكس الاول
والرابط الثاني في البيكتر بوكس الثاني .....و هكذا
اضف اداة 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
ده اسم مجلد صور عندي كنت عمجرب عليه الكود :
"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
و استخدم الباقي .
السلام عليكم ورحمة الله وبركاته
جرب استبدل السطر الخطأ بهذا
كود :
pic.ImageLocation = ListBox1.Items(i).ToString
(18-11-19, 11:51 AM)3booody كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
جرب استبدل السطر الخطأ بهذا
كود :
pic.ImageLocation = ListBox1.Items(i).ToString
اشكرك اخي على الحل فعلا نجح الكود
الله يحفظك
واشكر الاخ asemshahen5 على تقديم المساعدة والاهتمام
الحمد الله و الشكر الله و شكر خاص للاخ : 3booody على مايقدمه من مساعدة للاخرين ...
[b]asemshahen5[/b]
شكرآ الك اخي واستاذي عاصم اكيد لولا جهودكم وعملكم بالمنتدى لما استطاع احد ان يقدم شيء , اسأل الله ان يديمكم ويديمنا عونآ لكل سائل وجزاك الله خيرآ
