05-10-12, 05:16 PM
05-10-12, 05:24 PM
07-10-12, 07:00 PM
استاذ عمر المبدع تحيه
لو سمحت ممكن النظر في الكود وجعله سهل حتى اعرف اطبق الكود لو سمحت
اعتقد وضعك للصورة هذه
على خلفية الفورم مباشرة سببت لي مشكلة ولم استطع تطبيق الكود ويظهر لي خطأ عندما اطبق الكود على مشروع جديد
شاهد الصورة التالية للتوضيح اكثر استاذي العزيز
ممكن تعمل الكود بدون وضع صورة خلفية للفورم وتضع جميع الصور داخل ملف المصدر
حتى لا ينتج خطأ عندي وقت تطبيق الكود على مشروع جديد بارك الله فيك
:o
لو سمحت ممكن النظر في الكود وجعله سهل حتى اعرف اطبق الكود لو سمحت
اعتقد وضعك للصورة هذه
على خلفية الفورم مباشرة سببت لي مشكلة ولم استطع تطبيق الكود ويظهر لي خطأ عندما اطبق الكود على مشروع جديد
شاهد الصورة التالية للتوضيح اكثر استاذي العزيز
ممكن تعمل الكود بدون وضع صورة خلفية للفورم وتضع جميع الصور داخل ملف المصدر
حتى لا ينتج خطأ عندي وقت تطبيق الكود على مشروع جديد بارك الله فيك
:o
07-10-12, 08:47 PM
أخي محترف البرمجة اوي
افتح مشروع جديد وقم بإدراج جميع الصور السابقة
الأن انسخ جميع الأكواد الموجوده في المشروع الأول
الأن أذهب الأجراء التالي
واستبدله بهذا الإجراء
بحيث يأخذ الصورة الأخيرة عند تحميل الفورم بدلا من الصوره التي كانت خلفية للمشروع السابق
الأن أذهب للكود التالي
واستبدله بهذا الكود
هنا أزلنا منه خاصية الرجوع للخلفية لان مشروعنا الجديد لايملك خلفية الموجوده في المشروع السابقه
الأن جرب المشروع
افتح مشروع جديد وقم بإدراج جميع الصور السابقة
الأن انسخ جميع الأكواد الموجوده في المشروع الأول
الأن أذهب الأجراء التالي
كود :
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هنا أزلنا منه خاصية الرجوع للخلفية لان مشروعنا الجديد لايملك خلفية الموجوده في المشروع السابقه
الأن جرب المشروع
09-10-12, 01:55 AM
والله طبقت الشرح بس مع الاسف يظهر خطأ عند تشغيل المشروع
اعمل المشروع انت ثم ارفعه لنا بارك الله فيك
اعمل المشروع انت ثم ارفعه لنا بارك الله فيك
09-10-12, 10:58 AM
09-10-12, 05:46 PM
09-10-12, 06:59 PM
أسامة أحمد كتب :أرجوا أن يكون هذا هو طلبك لقد صنعت مثال بسيط جداً جداً من دون أي دوال لعدم التعقيد
[ATTACH]817[/ATTACH]
عزيزي أسامة تحيه لك مع الاسف انا لا اريد وضع الكلاس في المشوع وانت تضع الكلاس ؟
كذلك جربت المثال وعند التشغيل يظهر الخطأ كم بالصورة التالية
اشكرك من القلب على تعبك معي بس مع الاسف لم يعمل المشروع والله العظيم
09-10-12, 07:08 PM
09-10-12, 07:24 PM