[khaled12345]

[quote='khaled12345' pid='100979' dateline='1497241406']
السلام عليكم الاخوة الاحباب

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

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

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

لم يعمل معي

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


مع الشكر

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

الحمد لله يا شباب المشكلة اتحلت كالتالي


Imports System.Data.OleDb

Public Class NSN_Scope

Dim ImageNum As Integer

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

Dim images(11) As Bitmap

Dim pos As Integer = 0

Dim R As New ResizeControls()

Dim da As New OleDbDataAdapter

Dim dt As New DataTable

Sub Load_Data()

dt.Clear()

da = New OleDbDataAdapter("Select * From NSN_Scope", con)

da.Fill(dt)

End Sub

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

Load_Data()

DataGridView1.DataSource = dt

ResizeControls.SubResize(Me, 50, 70)

Me.StartPosition = FormStartPosition.CenterScreen

Me.CenterToScreen()

Me.WindowState = FormWindowState.Normal

images(0) = My.Resources.Nokia_2G_CR_NR

images(1) = My.Resources.Nokia_3G_CR_NR

images(2) = My.Resources.Nokia_FDD_CR_NR

images(3) = My.Resources.Nokia_TDD_CR_NR

images(4) = My.Resources.Nokia_all_Tech_region

images(5) = My.Resources.KSA6

images(6) = My.Resources.KSA5

images(7) = My.Resources.KSA4

images(8) = My.Resources.KSA3

images(9) = My.Resources.KSA2

PictureBox1.Image = images(pos)

End Sub

Private Sub Form1_HandleCreated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.HandleCreated

R.Container = Me

End Sub

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

Me.StartPosition = FormStartPosition.CenterScreen

R.ResizeControls()

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

PictureBox1.Image = My.Resources.Nokia_2G_CR_NR

RadioButton1.Checked = True

Case 2

PictureBox1.Image = My.Resources.Nokia_3G_CR_NR

RadioButton2.Checked = True

Case 3

PictureBox1.Image = My.Resources.Nokia_FDD_CR_NR

RadioButton3.Checked = True

Case 4

PictureBox1.Image = My.Resources.Nokia_TDD_CR_NR

RadioButton4.Checked = True

Case 5

PictureBox1.Image = My.Resources.Nokia_all_Tech_region

RadioButton5.Checked = True

Case 6

PictureBox1.Image = My.Resources.KSA6

RadioButton6.Checked = True

Case 7

PictureBox1.Image = My.Resources.KSA5

RadioButton7.Checked = True

Case 8

PictureBox1.Image = My.Resources.KSA4

RadioButton8.Checked = True

Case 9

PictureBox1.Image = My.Resources.KSA3

RadioButton9.Checked = True

Case 10

PictureBox1.Image = My.Resources.KSA2

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

PictureBox1.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

PictureBox1.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

PictureBox1.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

PictureBox1.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

PictureBox1.Image = My.Resources.Nokia_all_Tech_region

End Sub

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

PictureBox1.Image = My.Resources.KSA6

End Sub

　

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

[size=small][font