منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

عملت مشروع بسيط لعرض مجموعة صور يدوي عن طريق 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

الموضوع هذا فيه فكرة مشابهة تماما
الفارف أنني قمت باستخدام دالة لكي اجعل صورة واحدة شفافة ثم اقوم بتغيير الصورة في البكتشر بوكس
في حالتك هنا انت لا تحتاج ان تجعل الصورة شفافة و عليك ان تملأ المصفوفة الموجوة في المثال بالصور الخاصة بك

الرابط

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

الرابط

الف الف شكر اخي الحبيب تسلم ايديك

كود :

'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

(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

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

تسلم ايديك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

khaled12345

silverlight

khaled12345

alma2

khaled12345