[Easy4ever]

أخي محترف البرمجة اوي

افتح مشروع جديد وقم بإدراج جميع الصور السابقة

الأن انسخ جميع الأكواد الموجوده في المشروع الأول

الأن أذهب الأجراء التالي

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Layer As New Form1
Layer.SetImage(Me, Me.BackgroundImage)
End Sub

واستبدله بهذا الإجراء

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Layer As New Form1
Layer.SetImage(Me, My.Resources.Emoji18_200)
End Sub

بحيث يأخذ الصورة الأخيرة عند تحميل الفورم بدلا من الصوره التي كانت خلفية للمشروع السابق

الأن أذهب للكود التالي

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Layer As New Form1
If picnum = 0 Then
Layer.SetImage(Me, My.Resources.Emoji1_200)
picnum += 1
ElseIf picnum = 1 Then
Layer.SetImage(Me, My.Resources.Emoji10_200)
picnum += 1
ElseIf picnum = 2 Then
Layer.SetImage(Me, My.Resources.Emoji11_200)
picnum += 1
ElseIf picnum = 3 Then
Layer.SetImage(Me, My.Resources.Emoji18_200)
picnum = 4
ElseIf picnum = 4 Then
Layer.SetImage(Me, Me.BackgroundImage)
picnum = 0
End If
End Sub

واستبدله بهذا الكود

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Layer As New Form1
If picnum = 0 Then
Layer.SetImage(Me, My.Resources.Emoji1_200)
picnum += 1
ElseIf picnum = 1 Then
Layer.SetImage(Me, My.Resources.Emoji10_200)
picnum += 1
ElseIf picnum = 2 Then
Layer.SetImage(Me, My.Resources.Emoji11_200)
picnum += 1
ElseIf picnum = 3 Then
Layer.SetImage(Me, My.Resources.Emoji18_200)
picnum = 0
End If
End Sub

هنا أزلنا منه خاصية الرجوع للخلفية لان مشروعنا الجديد لايملك خلفية الموجوده في المشروع السابقه

الأن جرب المشروع