(19-04-20, 03:23 AM)asemshahen5 كتب : اليوزر كنترول عندك عدلها زي مانت عايز و ضف خصائص عليها بقدر مانت عايز المثال اتوضع عشان تعدل فيه على كيفك و اي استفسار متترددش و الله الموفق .
حبيبي يا قائد انا هنا عدلت بس في النص بحيث ان تكون كلمه hello فوق وباقي النص تحت انا مش عارف اظبط النقطه دي بحيث كلمه هالو تكون الخط بولد ثقيل ونوع الخط اريال ولونه اسود
وباقي النص لونه اخطر ونوع الخط اريال
اما بقي الصوره من اليسار برضو مش عارف اوصلها انا اسف والله ثقلت عليك جدااا
20-04-20, 02:55 PM (آخر تعديل لهذه المشاركة : 20-04-20, 03:12 PM {2} بواسطة asemshahen5.)
(20-04-20, 10:16 AM)اليوم السابع كتب :
(19-04-20, 06:36 PM)asemshahen5 كتب : هذا المثال بعد التطوير .
ده كده فوق المطلوب بشويه وفوق الممتاز كمان انا شاكر ليك جدااا اخ عاصم
واعذرني علي عد الرد كنت امر بوعكه صحيه
معافى باذن الله المهم انك بخير و الحمد لله و الشكر لله رب العالمين .
(20-04-20, 12:39 PM)atefkhalf2004 كتب : السادة بالنسبة لمثال اظهار الرسائل
.zip MyNotificationXT.zip
اظهر 28 خطا
واضح ان هناك شيء لا بد من ادراجة import له
انا اعمل علي فيجوال 2008
دائما اعمل مشروع جديد ثم انسخ الفورم داخل المشروع الجديد
ظهرت الاخطا
اخي العزير انا عامل المثال على فيجوال 2012 ليعمل المشروع معاك عليك ان تعمل التالي :
1- اعمل يوزر كنترول باسم : Notification.vb
و افتح الملف : Notification.Designer.vb بالنوت باد و انسخ كل مابه و الصقه بنفس اسم الملف بمشروعك بعد فتح نفس الملف بالنوت باد طبعا لاتنسى اضافة الصور الموجودة بمجلد الريسورس الى مشروعك يبقى عليك اضافة زر و اداة FlowLayoutPanel الى الفورم 1 و اكتب هذا الكود في الزر :
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim TitelFN As Font = New Font("Arial", 10, FontStyle.Bold) Dim BadyFN As Font = New Font("Arial", 8) ShowNotification("Hello", TitelFN, Color.Black, "Welcome Back To Circle", BadyFN, Color.Green, FlowLayoutPanel1, Image.FromFile(".\ImageXT\doc1.png"), 6) End Sub
Public Module NotificationShow ''' <summary> ''' اداة عرض التنبيه الجديدة من العاصم للبرمجيات ''' </summary> ''' <param name="TitelXT">عنوان التنبيه</param> ''' <param name="TitelFontXT">خط عنوان التنبيه</param> ''' <param name="TitelForeColoreXT">لون خط عنوان التنبيه</param> ''' <param name="BadyXT">رسالة التنبيه</param> ''' <param name="BadyFontXT">خط رسالة التنبيه</param> ''' <param name="BadyForeColoreXT">لون خط رسالة التنبيه</param> ''' <param name="ImagePic">الصورة التي ستظهر على التنبيه</param> ''' <param name="ContanerXT">الحاوية التي سيعرض فيها التنبيه</param> ''' <param name="SecendShow">عدد الثواني التي سيعرض فيها التنبيه قبل الاغلاق</param> ''' <remarks>WWW.AL-ASEM.SOMEE.COM</remarks> Public Sub ShowNotification(TitelXT As String, TitelFontXT As Font, TitelForeColoreXT As Color, BadyXT As String, BadyFontXT As Font, BadyForeColoreXT As Color, ContanerXT As Control, ImagePic As Image, Optional SecendShow As Integer = 5) Dim NotificationXT As New Notification() Dim xxx As Image = My.Resources.DBBK NotificationXT.ImageXT = If(ImagePic Is Nothing, xxx, ImagePic) '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ NotificationXT.TitelLabelXT = TitelXT NotificationXT.TitelLabelFontXT = TitelFontXT NotificationXT.TitelLabelForeColoreXT = TitelForeColoreXT '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ NotificationXT.BadyLabelXT = BadyXT NotificationXT.BadyLabelFontXT = BadyFontXT NotificationXT.BadyLabelForeColoreXT = BadyForeColoreXT '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ NotificationXT.TimerIntervalXT = SecendShow * 1000 ContanerXT.Width = NotificationXT.Width + 6 NotificationXT.BorderStyle = BorderStyle.FixedSingle ContanerXT.Controls.Add(NotificationXT) End Sub End Module
و لا تنسى حذف نفس الكود من Class Notification اي الكود الخاص بالاداة .
