معرض للصور

اخي ممكن استفسار بس

عدد الصور محدد ولا يمكن يزيد ؟

اشكر shimo_pro على سرعة استجابته

وبالنسبة لعدد الصور افضل يؤخذ في الاعتبار انه غير ثابت.

بسم الله نبدأ

هذا مثال على السريع واتمنى يكون مرادك

المطلوب

نموذج فيه 6 أدوات صورة

p1 , p2 , p3 , p4 , p5 ,pre

من الناحية التنظيمية اجعل الصور من 1-5 حجم صغير والصورة السادسة تكون كبيرة بنصف حجم النموذج

ثم 3 ازرار أسماءهم والنص اللي عليهم كالتالي

button1 "Load Pictures"

button2 "next"

button3 "prevous"

واخيرا ضع

listbox1

وهذا الكود الخاص بكل العملية

Public Class Form1
	Dim i As Integer = 0
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		'عملية إستخراج أسماء الملفات
		'طبعا مسار المجلد قابل للتغير بالإضافة إلى الامتداد
		For Each foundFile As String In My.Computer.FileSystem.GetFiles("c:\temp\")
			If Microsoft.VisualBasic.Right(foundFile, 3) = "png" Then
				ListBox1.Items.Add(foundFile)
			End If
		Next
		'هنا نقوم بعملية ملئ للمصغرات
		load_photos(i)
		'تعطيل زر التحميل
		Button1.Enabled = False
	End Sub
	Private Sub load_photos(ByVal i As Integer)
		p1.Load(ListBox1.Items.Item(i).ToString)
		p2.Load(ListBox1.Items.Item(i + 1).ToString)
		p3.Load(ListBox1.Items.Item(i + 2).ToString)
		p4.Load(ListBox1.Items.Item(i + 3).ToString)
		p5.Load(ListBox1.Items.Item(i + 4).ToString)
	End Sub

	Private Sub p1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p1.Click
		pre.Image = p1.Image
	End Sub

	Private Sub p2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p2.Click
		pre.Image = p2.Image
	End Sub

	Private Sub p3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p3.Click
		pre.Image = p3.Image
	End Sub

	Private Sub p4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p4.Click
		pre.Image = p4.Image
	End Sub

	Private Sub p5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p5.Click
		pre.Image = p5.Image
	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		Button3.Enabled = True
		i += 1
		'هنا نقوم بالتفحص دائما قبل تحميل المصغرات في زر التالي
		'  وانا عملت المقارنة بالناقص 4 لان اذا تتذكر فوق
		' p5.Load(ListBox1.Items.Item(i + 4).ToString)
		If i = ListBox1.Items.Count - 4 Then
			Button2.Enabled = False
			Exit Sub
		End If
		load_photos(i)
	End Sub

	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
		Button2.Enabled = True
		i -= 1
		If i = 0 Then
			Button3.Enabled = False
			Exit Sub
		End If
		load_photos(i)
	End Sub
End Class

جرب وان شاء الله يكون هذا هو المطلوب

shimo_pro لا ادري كيف اشكرك

تم التحميل وجاري التجريب ، وارجو من الله ان يزيد من علمه ويوفقك الى ماتحب وترضى .

آية الرحمن

العفو اخوي هذا الواجب

إليكم أخواني هذا الكود وهي طريقة أخرى غير اللي ذكرها الأخ shimo_pro

إن شاء الله ان ينال إعجابكم

view_Multi_Images.rar