[khaled12345]

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

الرجاء المساعدة في هذا الكود لعمل Slide Show لعدد 10 صور

لقد شاهدت هذا الرابط  https://www.youtube.com/watch?v=tXLaXoTaxFo 

ومن خلاله حاولت تنفيذ الكود ولكن للاسف

لم يعمل معي

فبرجاء فحص الكود المكتوب بالاسفل لان المشروع كبير فلم استطيع تحميله و ارساله


مع الشكر

Imports System.Data.OleDb

Public Class Form1

　

Public ImageNum As Integer

Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Vendors.accdb")

Dim da As New OleDbDataAdapter

Dim dt As New DataTable

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

Load_Data()

DataGridView1.DataSource = dt

MyPic.Image = My.Resources.Nokia_2G_CR_NR

Opt_Nokia_2G_CR_NR.checked = True

End Sub

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

ImageNum = ImageNum - 1

If ImageNum < 1 Then ImageNum = 10

Select Case ImageNum

Case 1

MyPic.Image = My.Resources.Nokia_2G_CR_NR

Opt_ONokia_2G_CR_NR.Checked = True

Case 2

MyPic.Image = My.Resources.Nokia_3G_CR_NR

Opt_Nokia_3G_CR_NR.Checked = True

Case 3

MyPic.Image = My.Resources.Nokia_FDD_CR_NR

Opt_Nokia_FDD_CR_NR.Checked = True

Case 4

MyPic.Image = My.Resources.Nokia_TDD_CR_NR

Opt_Nokia_TDD_CR_NR.Checked = True

Case 5

MyPic.Image = My.Resources.Nokia_all_Tech_region

Opt_Nokia_all_Tech_region.Checked = True

Case 6

MyPic.Image = My.Resources.KSA6

Opt_KSA6.Checked = True

Case 7

MyPic.Image = My.Resources.KSA5

Opt_KSA5.Checked = True

Case 8

MyPic.Image = My.Resources.KSA4

Opt_KSA4.Checked = True

Case 9

MyPic.Image = My.Resources.KSA3

Opt_KSA3.Checked = True

Case 10

MyPic.Image = My.Resources.KSA2

Opt_KSA2.Checked = True

End Select

End Sub

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

ImageNum = ImageNum + 1

If ImageNum > 10 Then ImageNum = 1

Select Case ImageNum

Case 1

myPic.Image = My.Resources.Nokia_2G_CR_NR

Opt_Nokia_2G_CR_NR.Checked = True

Case 2

myPic.Image = My.Resources.Nokia_3G_CR_NR

Opt_Nokia_3G_CR_NR.Checked = True

Case 3

myPic.Image = My.Resources.Nokia_FDD_CR_NR

Opt_Nokia_FDD_CR_NR.Checked = True

Case 4

myPic.Image = My.Resources.Nokia_TDD_CR_NR

Opt_Nokia_TDD_CR_NR.Checked = True

Case 5

myPic.Image = My.Resources.Nokia_all_Tech_region

Opt_Nokia_all_Tech_region.Checked = True

Case 6

myPic.Image = My.Resources.KSA6

Opt_KSA6.Checked = True

Case 7

myPic.Image = My.Resources.KSA5

Opt_KSA5.Checked = True

Case 8

myPic.Image = My.Resources.KSA4

Opt_KSA4.Checked = True

Case 9

myPic.Image = My.Resources.KSA3

Opt_KSA3.Checked = True

Case 10

myPic.Image = My.Resources.KSA2

Opt_KSA2.Checked = True

End Select

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 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 RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

Mypic.Image = My.Resources.Nokia_2G_CR_NR

End Sub

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

Mypic.Image = My.Resources.Nokia_3G_CR_NR

End Sub

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

Mypic.Image = My.Resources.Nokia_FDD_CR_NR

End Sub

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

Mypic.Image = My.Resources.Nokia_TDD_CR_NR

End Sub

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

Mypic.Image = My.Resources.Nokia_all_Tech_region

End Sub

[align=left]Private Sub RadioButton6_CheckedChanged(ByVal sender As System.[color=#2b91af][size=small][font=Consolas