منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة في كود عمل Slide Show - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة في كود عمل Slide Show (/showthread.php?tid=20719)

مشكلة في كود عمل Slide Show - khaled12345 - 12-06-17

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

الرجاء المساعدة في هذا الكود لعمل 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

RE: مشكلة في كود عمل Slide Show - khaled12345 - 12-06-17

[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

RE: مشكلة في كود عمل Slide Show - silverlight - 12-06-17

بالرغم ان مشكلك تم حلها ستحد في المرفقات مثالا بسيطا قد تفيدك الافكار الموجودة فيه

RE: مشكلة في كود عمل Slide Show - khaled12345 - 12-06-17

(12-06-17, 10:11 AM)silverlight كتب : بالرغم ان مشكلك تم حلها ستحد في المرفقات مثالا بسيطا قد تفيدك الافكار الموجودة فيه


بارك الله فيك اخي الحبيب وجزاك كل الخير