[محترف البرمجة اوي]

تمام استاذي بس ابغى بعد عرض اخر صورة وبعد انتهاء 5 ثواني من عرضها ينتقل لفورم رقم 2

ممكن عمل ذلك

[RaggiTech]

اليك هذا التعديل لتكتمل الفكرة

كود :

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
            picnum = 0
            Timer1.Enabled = False
            Form2.Show()
            Hide()
        End If
    End Sub

[محترف البرمجة اوي]

استاذ عمر المبدع تحيه

لو سمحت ممكن النظر في الكود وجعله سهل حتى اعرف اطبق الكود لو سمحت
اعتقد وضعك للصورة هذه



على خلفية الفورم مباشرة سببت لي مشكلة ولم استطع تطبيق الكود ويظهر لي خطأ عندما اطبق الكود على مشروع جديد

شاهد الصورة التالية للتوضيح اكثر استاذي العزيز











ممكن تعمل الكود بدون وضع صورة خلفية للفورم وتضع جميع الصور داخل ملف المصدر
حتى لا ينتج خطأ عندي وقت تطبيق الكود على مشروع جديد بارك الله فيك

:o

[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

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

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

[محترف البرمجة اوي]

والله طبقت الشرح بس مع الاسف يظهر خطأ عند تشغيل المشروع

اعمل المشروع انت ثم ارفعه لنا بارك الله فيك

[RaggiTech]

بالتوفيق ان شاء الله

تحياتي لك
اخوك مؤمن

[أسامة أحمد]

أرجوا أن يكون هذا هو طلبك لقد صنعت مثال بسيط جداً جداً من دون أي دوال لعدم التعقيد

[ATTACH]817[/ATTACH]

[محترف البرمجة اوي]

أسامة أحمد كتب :أرجوا أن يكون هذا هو طلبك لقد صنعت مثال بسيط جداً جداً من دون أي دوال لعدم التعقيد

[ATTACH]817[/ATTACH]

عزيزي أسامة تحيه لك مع الاسف انا لا اريد وضع الكلاس في المشوع وانت تضع الكلاس ؟
كذلك جربت المثال وعند التشغيل يظهر الخطأ كم بالصورة التالية



اشكرك من القلب على تعبك معي بس مع الاسف لم يعمل المشروع والله العظيم

[محترف البرمجة اوي]

Raggi Tech كتب :بالتوفيق ان شاء الله

تحياتي لك
اخوك مؤمن

عزيزي الفاضل نعم هذا الذي انا ابحث عنه
المشروع عمل معي بدون اي خطأ ولله الحمد وطبعاً بفضل الله ثم بفضلك
بس انا من طبعي عندما اجد مشروع يعجبني احب اعمل المشروع من جديد من الصفر
ومع الاسف كل ما افتح مشروع جديد واحاول اطبق جميع الخطوات واشغل المشروع
لا يعمل لماذا هل عند تصميم المشروع تعمل انت حاجه انا لا اعملها ؟

ارجوك استاذي تشرح طريقة تصميم المشروع حتى استطيع اطبق الطريقة الله يدخلك الجنة
يارب اللهم استجب
:o

[أسامة أحمد]

هذا هو بعد التعديل الست تقصد ان الصورة تتغير ولما تنتهي الصور يفتح الفورم

[ATTACH]823[/ATTACH]