تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Photo slide show with timer
#1
السلام عليكم الاخوة الاحباب

عملت مشروع بسيط لعرض مجموعة صور يدوي عن طريق RadioButton

واستطيع التنقل بينها يدويا عن طريق ال RadioButton

المطلوب التنقل بين هذه الصور اتوماتيكيا عن طريق تايمر و ليس يدويا

برجاء فحص المرفقات

مع فائق الاحترام والشكر

========================================================================

السلام عليكم الاخوة الاحباب

الحمد لله وجدت كود افضل ويقوم بالمطلوب

أحب ان أشاركم الكود الجديد

مع الشكر

============================================================================

Public Class Form1

Dim images(10) As Bitmap

Dim pos As Integer = 0

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

images(0) = My.Resources.product_1

images(1) = My.Resources.Product_2

images(2) = My.Resources.Product_3

images(3) = My.Resources.Product_4

images(4) = My.Resources.Product_5

images(5) = My.Resources.Product_6

images(6) = My.Resources.Product_7

images(7) = My.Resources.Product_8

images(8) = My.Resources.Product_9

images(9) = My.Resources.Product_10

PictureBox1.Image = images(pos)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

pos = pos + 1

If pos < images.Length - 1 Then

PictureBox1.Image = images(pos)

Else

pos = images.Length - 2

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

pos = pos - 1

If pos >= 0 Then

PictureBox1.Image = images(pos)

Else

pos = 0

End If

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

If CheckBox1.Checked = True Then

Timer1.Enabled = True

Else

Timer1.Enabled = False

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Call Button2_Click(sender, e)

End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

If RadioButton1.Checked = True Then

PictureBox1.Image = My.Resources.product_1

End If

End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

If RadioButton2.Checked = True Then

PictureBox1.Image = My.Resources.Product_2

End If

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

If RadioButton3.Checked = True Then

PictureBox1.Image = My.Resources.Product_3

End If

End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged

If RadioButton4.Checked = True Then

PictureBox1.Image = My.Resources.Product_4

End If

End Sub

Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged

If RadioButton5.Checked = True Then

PictureBox1.Image = My.Resources.Product_5

End If

End Sub

Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged

If RadioButton6.Checked = True Then

PictureBox1.Image = My.Resources.Product_6

End If

End Sub

Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged

If RadioButton7.Checked = True Then

PictureBox1.Image = My.Resources.Product_7

End If

End Sub

Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged

If RadioButton8.Checked = True Then

PictureBox1.Image = My.Resources.Product_8

End If

End Sub

Private Sub RadioButton9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton9.CheckedChanged

[align=left][color=#0000ff][size=small][font=Consolas][color=#0000
الرد
تم الشكر بواسطة:
#2
الموضوع هذا فيه فكرة مشابهة تماما
الفارف أنني قمت باستخدام دالة لكي اجعل صورة واحدة شفافة ثم اقوم بتغيير الصورة في البكتشر بوكس
في حالتك هنا انت لا تحتاج ان تجعل الصورة شفافة و عليك ان تملأ المصفوفة الموجوة في المثال بالصور الخاصة بك

الرابط
الرد
تم الشكر بواسطة:
#3
(31-05-17, 03:06 AM)silverlight كتب : الموضوع هذا فيه فكرة مشابهة تماما
الفارف أنني قمت باستخدام دالة لكي اجعل صورة واحدة شفافة ثم اقوم بتغيير الصورة في البكتشر بوكس
في حالتك هنا انت لا تحتاج ان تجعل الصورة شفافة و عليك ان تملأ المصفوفة الموجوة في المثال بالصور الخاصة بك

الرابط


الف الف شكر اخي الحبيب  تسلم ايديك
الرد
تم الشكر بواسطة:
#4
كود :
'PictureBox1 تحتاج أداة واحدة فقط

    'ضع جميع الصور في الريسورس مع وضع اسمائهم في هذه المصفوفة
    Private photos() As Image = {My.Resources.photo1, My.Resources.photo2, My.Resources.photo3, My.Resources.photo4}

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'تستطيع الاستغناء عن هذا السطر بوضع آخر صورة في المصفوفة في أداة الصورة
        Me.PictureBox1.Image = photos(photos.Count - 1)
    End Sub

    'Interval مع تحديد الزمن في  Enabled وفعل خاصيتة  Timer اضف
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Static index As Integer = 0
        Me.PictureBox1.Image = photos(index)
        index += 1
        If index = photos.Count Then index = 0

    End Sub
الرد
تم الشكر بواسطة:
#5
(31-05-17, 06:01 PM)alma2 كتب :
كود :
   'PictureBox1 تحتاج أداة واحدة فقط

   'ضع جميع الصور في الريسورس مع وضع اسمائهم في هذه المصفوفة
   Private photos() As Image = {My.Resources.photo1, My.Resources.photo2, My.Resources.photo3, My.Resources.photo4}

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       'تستطيع الاستغناء عن هذا السطر بوضع آخر صورة في المصفوفة في أداة الصورة
       Me.PictureBox1.Image = photos(photos.Count - 1)
   End Sub

   'Interval مع تحديد الزمن في  Enabled وفعل خاصيتة  Timer اضف
   Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
       Static index As Integer = 0
       Me.PictureBox1.Image = photos(index)
       index += 1
       If index = photos.Count Then index = 0

   End Sub


الف شكر يا استاذنا الغالي

تسلم ايديك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال يخص timer Lathe1 3 488 20-02-21, 05:00 PM
آخر رد: أبو عبدالله الحلواني
Star [كود] مساعدة في Timer hamadz 3 550 15-12-20, 03:08 PM
آخر رد: سعود
  [VB.NET] الاستغناء عن timer ميدو الفنان 5 797 22-11-20, 07:25 PM
آخر رد: ميدو الفنان
  عاوز اعمل Timer يشوف اللي معمول عليه صح ويعملو enable تلقائي Hosam Ashraf Elwakel 0 576 09-08-20, 07:41 PM
آخر رد: Hosam Ashraf Elwakel
  [سؤال] مشكلة في Timer ASUS2020 6 1,193 17-06-20, 08:13 AM
آخر رد: Mohamad Anan
  [VB.NET] استفسار بخصوص ال button Show Popup dubai.eig 0 529 15-04-20, 11:32 PM
آخر رد: dubai.eig
  مساعدة بخصوص امر show سمير جمال 3 1,179 07-02-19, 03:53 AM
آخر رد: حريف برمجة
  مشكلة في كود عمل Slide Show khaled12345 3 1,469 12-06-17, 11:04 PM
آخر رد: khaled12345
  Timer ddemed 3 1,225 19-05-17, 11:15 PM
آخر رد: alma2
  [VB.NET] مشكلة بسيطة جداً timer 3asfa~mdmra 4 1,933 15-01-17, 10:09 PM
آخر رد: 3asfa~mdmra

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم