السلام عليكم و رحمة الله وبركاته
اخواني الافاضل
انا احاول اتعلم الدوت نت بعمل امثلة الفيجوال 6 و لاني موش اكتر من هاوى فااهتماماتي بعيدة تماما عن المواضيع الشائعة مثل الداتا بيز الخ
مرفق كود برجاء تصحيحه
ولي رجاء اخر ياريت بلاش الكلاسات لاني موش متعود عليه و موش قادر افهمها !!!
Public Class Form1 Inherits System.Windows.Forms.Form Private m_Picture(7) As Control Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load m_Picture(0) = PictureBox1 m_Picture(1) = PictureBox2 m_Picture(2) = PictureBox3 m_Picture(3) = PictureBox4 m_Picture(4) = PictureBox5 m_Picture(5) = PictureBox6 m_Picture(6) = PictureBox7 m_Picture(7) = PictureBox8 End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim pic As PictureBox = DirectCast(sender, PictureBox) Static Count As Integer pic(0).Image = pic(Count).Image Count = Count + 1 If Count = 8 Then Count = 0 PictureBox9.Image = pic(Count).Image End Sub End Class
تحياتي
![29_09_05_02_32_59_1128029579_4_13_3[_].gif](http://www.arabteam2000.com/picload/pics/29_09_05_02_32_59_1128029579_4_13_3%5B_%5D.gif)
