+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [تم الحل][عنوان معدل] تحميل صور داخل PictureBox1 (/showthread.php?tid=5539)
[تم الحل][عنوان معدل] تحميل صور داخل PictureBox1 - محترف البرمجة اوي - 12-10-12
بسم الله الرحمن الرحيم
هذا شرح للمطلوب بالتفصيل
الهدف من المشروع وضع مؤقت واحد فقط بدل من وضع 5 أدوات مؤقت
ومن هنا حمل المشروع
http://vb4arb.com/vb/uploaded/425_11350021168.zip
[تم الحل][عنوان معدل] تحميل صور داخل PictureBox1 - أبو يعقوب - 12-10-12
تضيف الصور إلى البرنامج داخل الـ Resources
عن الضغط على أي زر تعطي البكجر بوكس الصورة المحددة
مثلا ضغطت على الزر الثاني ستعرض الصورة الثانية من الريسورس
Me.PictureBox1.Image=My.Resources._2.png
Timer1.Start
وعندما تمر ال5 ثواني داخل Timer1_Tick تكتب
Me.PictureBox1.Image=nothing
صعب ؟
[تم الحل][عنوان معدل] تحميل صور داخل PictureBox1 - محترف البرمجة اوي - 12-10-12
أبو يعقوب لم افهم شي بصراحة من شرحك أنا ليست جديد على البرمجة :o
حمل المثال المرفق وضع الكود المطلوب ثم ارفع لنا المثال بعد وضع الكود
مع كامل الشكر لحضرتك
[تم الحل][عنوان معدل] تحميل صور داخل PictureBox1 - RaggiTech - 12-10-12
السلام عليكم ورحمة الله وبركاته
هذا هو الحل ان شاء الله
وممكن ان نقتبس من شرح الاخ[b]أبو يعقوب[/b]
ونعدل هذا الكود
كود :
[/b][/FONT][/SIZE][/COLOR]PictureBox1.Image = New Bitmap(PictureBox1.ClientSize.Height, PictureBox1.ClientSize.Width)[COLOR=#000080][SIZE=2][FONT=tahoma][b]فنستبدله بهذا
كود :
[/b][/FONT][/SIZE][/COLOR]PictureBox1.Image = Nothing[COLOR=#000080][SIZE=2][FONT=tahoma][b][تم الحل][عنوان معدل] تحميل صور داخل PictureBox1 - محترف البرمجة اوي - 12-10-12
استاذي المبدع مؤمن صباح الخير
جربت المثال نعم عمل الكود بدون اي خطأ ولله الحمد
بس انا اريد يفتح الصور من مسار مجلد تابع للمشروع بجنب المشروع لا اريد فتح الصور وهى مضافه إلى Resources
لو سمحت ممكن التعديل على المشروع حتى يشغل الصور من مسار مجلد الله يستر عليك
[تم الحل][عنوان معدل] تحميل صور داخل PictureBox1 - RaggiTech - 12-10-12
لك ما طلبت اخي الغالي
ستجد مجلد الصور pics بجانب ملف exe الخاص بالمشروع في هذا المسار WindowsApplication1\bin\Debug
اتمنى ان يكون هذا هو الحل المناسب لك اخي الكريم
[تم الحل][عنوان معدل] تحميل صور داخل PictureBox1 - محترف البرمجة اوي - 12-10-12
أخي واستاذي مؤمن تحيه لك
تابع الصورة المتحركة التالية
شاهد الصورة بدقة تجد عند الضغط على مثلاً زر عرض الصورة رقم 1 سيبدأ عرض الصورة لمدة 5 ثواني وهذا تمام لا يوجد فيه اي مشكلة
بس عندما اضغط على زر عرض الصورة رقم 2 مباشرة بعد الضغط على عرض الصورة رقم 1 يقوم الكود بعرض الصورة رقم 2 ويعرضها لمدة 4 ثواني فقط وعندما اضغط على زر عرض الصورة رقم 3 بعد الضغط على زر عرض الصورة رقم 1 و2 مباشرة
سيعرض الصورة رقم 3 لمدة ثلاثة ثواني فقط تخيل الصورة رقم 5 بكذا لن تعرض لمدة خمس ثواني ستعرض لمدة ثانية واحده فقط ؟
وشاهد الصورة المرفقه
كيف يمكن جعل الخمس الثواني تبدأ بعد الضغط على اخر زر لعرض الصورة المطلوبة ؟
:confused:
[تم الحل][عنوان معدل] تحميل صور داخل PictureBox1 - RaggiTech - 12-10-12
اليك الحل
قم بتعديل هذا الكود
كود :
[color=#000080][SIZE=2][FONT=tahoma][b]Private Sub img(ByVal path)[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] PictureBox1.Load(pics_path & path)[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] Timer1.Enabled = True[/b][/FONT][/SIZE][/color]
[COLOR=#000080][SIZE=2][FONT=tahoma][b] End Sub
[/b][/FONT][/SIZE][/COLOR]استبدله بهذا
كود :
[color=#000080][SIZE=2][FONT=tahoma][b]Private Sub img(ByVal path)[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] Timer1.Enabled = False[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] PictureBox1.Load(pics_path & path)[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] Timer1.Enabled = True[/b][/FONT][/SIZE][/color]
[color=#000080][SIZE=2][FONT=tahoma][b] End Sub[/b][/FONT][/SIZE][/color]اتمنى ان يكون هذا الحل المناسب لك ان شاء الله
[تم الحل][عنوان معدل] تحميل صور داخل PictureBox1 - محترف البرمجة اوي - 12-10-12
يا سلام عليك يا استاذ مؤمن نعم بكذا الكود 100%
بارك الله فيك
[تم الحل][عنوان معدل] تحميل صور داخل PictureBox1 - RaggiTech - 12-10-12
بالتوفيق اخي الكريم
تحياتي لك