+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عرض الصور في Image (/showthread.php?tid=7728)
عرض الصور في Image - Fares - 23-02-13
السلام عليكم
اخواني ...
حاليا اعمل على برنامج
بلغة Vb.net
حيث اريد ان اعرف كيفية عرض
مجموعة من الصور التي احفظها في مجلد البرنامج
حيث اريد عرض هذه الصور حين يضغط المستخدم على زر معين ينقله لصورة عشوائية اخرى
يتم اختيارها من بين الصور
ويتم عرض الصور في اداة Image
عرض الصور في Image - Sajad - 23-02-13
[COLOR="#800000"]السلام عليكم
اولا قم بقراءة محتويات المجلد الى مصفوفة ديناميكية متغير الحجم مثل الArrayList مع وضع شرط قراءة ملفات الصور فقط ,حيث يمكن تحديد ملفات الصور عن طريق الامتداد (jpg, jpeg, png, ...)
ومن ثم عن طريق متغير من نوع int تستطيع التنقل بين محتويات المصفوفة حيث تحتوي المصفوفة على اسماء ملفات الصور وعن طريق الاسماء تستطيع عرض الصور على الPictueBox
بالتوفيق ان شاءالله
[/COLOR]
عرض الصور في Image - Fares - 23-02-13
أخــي انا لست خبيرا في موضوع المصفوفات
فهل يمكنك ان ترف ولو كود بسيط عن الموضوع
؟!
عرض الصور في Image - SaLoOoMX - 24-02-13
اضف الصور الى الريسورس واكتب الكود الاتي
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim I As Integer
I = Rnd() * 8
Select Case I
Case 1
PictureBox1.Image = My.Resources.Chrysanthemum
Case 2
PictureBox1.Image = My.Resources.Desert
Case 3
PictureBox1.Image = My.Resources.Hydrangeas
Case 4
PictureBox1.Image = My.Resources.Jellyfish
Case 5
PictureBox1.Image = My.Resources.Koala
Case 6
PictureBox1.Image = My.Resources.Lighthouse
Case 7
PictureBox1.Image = My.Resources.Lighthouse
Case 8
PictureBox1.Image = My.Resources.Penguins
End Select
End Sub