30-05-17, 11:05 PM
(آخر تعديل لهذه المشاركة : 31-05-17, 01:59 AM {2} بواسطة khaled12345.)
السلام عليكم الاخوة الاحباب
عملت مشروع بسيط لعرض مجموعة صور يدوي عن طريق RadioButton
واستطيع التنقل بينها يدويا عن طريق ال RadioButton
المطلوب التنقل بين هذه الصور اتوماتيكيا عن طريق تايمر و ليس يدويا
برجاء فحص المرفقات
مع فائق الاحترام والشكر
========================================================================
السلام عليكم الاخوة الاحباب
الحمد لله وجدت كود افضل ويقوم بالمطلوب
أحب ان أشاركم الكود الجديد
مع الشكر
============================================================================
[align=left][color=#0000ff][size=small][font=Consolas][color=#0000
عملت مشروع بسيط لعرض مجموعة صور يدوي عن طريق 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